Rで解析：クロス集計表の作成方法

割と作成頻度が高い「クロス集計表」作成方法の紹介です。知らなきゃ意外と悩みます。

実行コマンドはR version 4.2.2で確認しています。

実行コマンド

詳細はコメント、コマンドヘルプを確認してください。

###&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;#####
set.seed(1234)
n <- 150
TestData <- data.frame(Group = sample(paste0("Group", 1:3), n, replace = TRUE),
                       Effects = sample(c("Low", "Middle", "Hight"), n, replace = TRUE))
########

#&#12463;&#12525;&#12473;&#38598;&#35336;&#34920;&#12398;&#20316;&#25104;
#&#23455;&#25968;:table,addmargins&#12467;&#12510;&#12531;&#12489;&#12398;&#32068;&#12415;&#21512;&#12431;&#12379;
addmargins(table(TestData[, 1], TestData[, 2]))

&#12288;&#12288;&#12288;&#12288;Hight Low Middle Sum
Group1    12  18     13  43
Group2    23  16     18  57
Group3    16  15     19  50
Sum       51  49     50 150

#&#21106;&#21512;:table,prop.table,addmargins,round&#12467;&#12510;&#12531;&#12489;&#12398;&#32068;&#12415;&#21512;&#12431;&#12379;
round(addmargins(prop.table(table(TestData[, 1], TestData[, 2]))) * 100, 2)

&#12288;&#12288;&#12288;&#12288;Hight    Low Middle    Sum
Group1   8.00  12.00   8.67  28.67
Group2  15.33  10.67  12.00  38.00
Group3  10.67  10.00  12.67  33.33
Sum     34.00  32.67  33.33 100.00

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