我需要帶有交叉表的多項選擇題，包括R編程中的總計。 以下是我要尋找的

Question

我通過使用帶有交叉表的R創建頻率表。 不知何故，我無法創建帶有交叉表的多項選擇題。 有人可以指導我我們到底需要如何編寫代碼。

這是我的數據集：

預期成績：

Answer 1

在R中有很多交叉表的方法。
一個解法：

library(tidyverse)

data <- data.frame(
  q1 = sample(x = c("yes", "no"), size = 10, replace = TRUE),
  q2_1 = sample(x = 0:1, size = 10, replace = TRUE),
  q2_2 = sample(x = 0:1, size = 10, replace = TRUE),
  q2_3 = sample(x = 0:1, size = 10, replace = TRUE),
  q2_4 = sample(x = 0:1, size = 10, replace = TRUE)
)

head(data)

   q1 q2_1 q2_2 q2_3 q2_4
1 yes    0    0    0    0
2 yes    0    0    1    1
3  no    1    1    0    1
4  no    0    0    0    0
5  no    1    0    1    0
6  no    1    1    0    0

#long format data

longdata <- gather(data,key = "q2","value"  ,-q1)

ftable(longdata)

         value 0 1
q1  q2            
no  q2_1       4 3
    q2_2       3 4
    q2_3       5 2
    q2_4       5 2
yes q2_1       2 1
    q2_2       2 1
    q2_3       1 2
    q2_4       1 2