割と作成頻度が高い「クロス集計表」作成方法の紹介です。知らなきゃ意外と悩みます。
実行コマンドは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
少しでも、あなたの解析が楽になりますように!!