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")

実行コマンド

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

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
library("magicfor")

###&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;#####
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&#12467;&#12510;&#12531;&#12489;&#21069;&#12395;&#23455;&#34892;:magic_for&#12467;&#12510;&#12531;&#12489;
magic_for(print)

#&#20966;&#29702;
for(i in seq(unique(TestData[, 4]))) {
  
  #Data3&#12398;&#25968;&#20516;&#12391;TestData&#12434;&#25277;&#20986;
  Data <- subset(TestData, TestData[, 4] == i)
  print(Data)
  
  #Data4&#12398;&#25991;&#23383;&#12391;TestData&#12434;&#25277;&#20986;
  #&#25277;&#20986;&#20869;&#23481;&#12434;&#20316;&#25104;
  ExCharData <- sample(LETTERS[1:26], i, replace = TRUE)
  print(ExCharData)
  #&#25277;&#20986;
  Char <- subset(TestData, TestData[, 5] %in% ExCharData)
  print(Char)
}

#list&#12391;&#32080;&#26524;&#12434;&#21462;&#24471;:magic_result&#12467;&#12510;&#12531;&#12489;
TestResult <- magic_result()
#&#20869;&#23481;&#12434;&#30906;&#35469;
str(TestResult)
List of 3
$ Data      :List of 5
..$ :'data.frame':	26 obs. of  5 variables:
  #&#30465;&#30053;
  $ ExCharData:List of 5
..$ : chr "T"
#&#30465;&#30053;
$ Char      :List of 5
..$ :'data.frame':	7 obs. of  5 variables:
  
#data.frame&#12391;&#32080;&#26524;&#12434;&#21462;&#24471;:magic_result_as_dataframe&#12467;&#12510;&#12531;&#12489;
TestResultDF <- magic_result_as_dataframe()
#&#20869;&#23481;&#12434;&#30906;&#35469;
TestResultDF

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