Rで解析:繰り返し処理が簡単！apply関数の紹介

繰り返し処理のコマンドにapply関数があります。ベクトル、マトリックス、データフレームに対して処理が可能です。
便利なので紹介します。処理内容はコマンド内を確認してください。

コマンド紹介

#&#12486;&#12473;&#12488;&#12487;&#12540;&#12479;&#12398;&#20316;&#25104;
TestData <- matrix(rnorm(1000), nrow = 100, ncol = 10)

#apply&#38306;&#25968;&#12398;&#32057;&#20171;
#apply(&#20966;&#29702;&#12377;&#12427;&#12487;&#12540;&#12479;, &#21015;&#12399;1&#12289;&#34892;&#12399;2, &#20966;&#29702;&#12377;&#12427;&#12467;&#12510;&#12531;&#12489;(mean, sd, sum&#12394;&#12393;&#12398;&#22522;&#26412;&#12467;&#12510;&#12531;&#12489;&#12394;&#12393;))

#&#21015;&#12395;&#23550;&#12377;&#12427;&#20966;&#29702;, &#24179;&#22343;&#12434;&#27714;&#12417;&#12427;
apply(TestData, 1, mean)

#&#34892;&#12395;&#23550;&#12377;&#12427;&#20966;&#29702;, &#24179;&#22343;&#12434;&#27714;&#12417;&#12427;
apply(TestData, 2, mean)

#&#12458;&#12522;&#12472;&#12490;&#12523;&#12398;&#20966;&#29702;, &#21508;&#25968;&#20516;&#12364;&#20840;&#20307;&#12398;&#24179;&#22343;&#12424;&#12426;&#22823;&#12365;&#12369;&#12428;&#12400;&#65297;&#12289;&#23567;&#12373;&#12369;&#12428;&#12400;0&#12395;&#22793;&#25563;
apply(TestData, 1, function(x) ifelse(x > mean(TestData), 1, 0))

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