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

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

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

実行コマンド

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

###データ例の作成#####
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))
########

#クロス集計表の作成
#実数:table,addmarginsコマンドの組み合わせ
addmargins(table(TestData[, 1], TestData[, 2]))

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

#割合:table,prop.table,addmargins,roundコマンドの組み合わせ
round(addmargins(prop.table(table(TestData[, 1], TestData[, 2]))) * 100, 2)

　　　　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

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