Rで解析：”for”コマンド処理の管理にとっても便利です「magicfor」パッケージ

“for”コマンドの処理毎の結果を”list”、”data.frame”または”vector”に保存するパッケージです。特に”list”に保存する「magic_result」コマンドがオススメです。

使用方法は”for”コマンドの処理内容を「magic_for」コマンドと「magic_result」「magic_result_as_dataframe」「magic_result_as_vector」のいずれかのコマンドで囲うだけです。

非常に便利なパッケージです。「magic_for」コマンドの内容を確認するだけでも参考になります。

・magicforのGitHub
https://github.com/hoxo-m/magicfor

パッケージバージョンは0.1.0。実行コマンドはR version 4.2.2で確認しています。

パッケージのインストール

下記、コマンドを実行してください。

#パッケージのインストール
install.packages("devtools")
devtools::install_github("hoxo-m/magicfor")

実行コマンド

詳細はコメント、パッケージのヘルプを確認してください。

#パッケージの読み込み
library("magicfor")

###データ例の作成#####
n <- 100
TestData <- data.frame(Group = sample(paste0("Group", 1:5), n, replace = TRUE),
                       Data1 = rnorm(n),
                       Data2 = rnorm(n) + rnorm(n) + rnorm(n),
                       Data3 = sample(1:5, n, replace = TRUE),
                       Data4 = sample(LETTERS[1:26], n, replace = TRUE))
#######

#forコマンド前に実行:magic_forコマンド
magic_for(print)

#処理
for(i in seq(unique(TestData[, 4]))) {
  
  #Data3の数値でTestDataを抽出
  Data <- subset(TestData, TestData[, 4] == i)
  print(Data)
  
  #Data4の文字でTestDataを抽出
  #抽出内容を作成
  ExCharData <- sample(LETTERS[1:26], i, replace = TRUE)
  print(ExCharData)
  #抽出
  Char <- subset(TestData, TestData[, 5] %in% ExCharData)
  print(Char)
}

#listで結果を取得:magic_resultコマンド
TestResult <- magic_result()
#内容を確認
str(TestResult)
List of 3
$ Data      :List of 5
..$ :'data.frame':	26 obs. of  5 variables:
  #省略
  $ ExCharData:List of 5
..$ : chr "T"
#省略
$ Char      :List of 5
..$ :'data.frame':	7 obs. of  5 variables:
  
#data.frameで結果を取得:magic_result_as_dataframeコマンド
TestResultDF <- magic_result_as_dataframe()
#内容を確認
TestResultDF

少しでも、あなた解析が楽になりますように！！