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

#パッケージのインストール
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