Likert 数据的 R 频率表

我认为这是一项基本任务，但事实证明并非如此。我有一系列调查，需要将其转换为每个调查的频率表。例如，调查 1 包含 6 个问题，参与者有 5 个回答选项。对于每项调查，我需要生成一个表格，其中包含每个问题（在本示例中有 6 个），以及对每个问题的每个回答选项进行回答的参与者的百分比。

我一直在使用 prop.table，但一次只能针对一个问题执行此操作，而且我还没有弄清楚如何添加百分号，并且我在行名称中丢失了问题变量标题。

总的来说，我想将这些表格直接打印到Word文档中。我想我已经弄清楚了那部分，但现在我需要弄清楚表格。

我欢迎任何建议。谢谢！

EDIT

以下是我迄今为止使用一些示例 Likert 数据得到的结果：

q1<-c(2,2,3,3,3,4,4,4,5,5)
q2<-c(2,3,3,4,4,4,4,5,5,5)
q3<-c(2,2,2,3,4,4,4,5,5,5)
df<-data.frame(q1,q2,q3)
x<-prop.table(table(factor(df$q1,levels=1:5)))*100
y<-round(x,digits=1)`

这会产生与我需要的类似的东西。但是，我希望“q1”作为行名称出现在结果表中，我希望百分比有％符号，并且我需要一种方法将两个额外的“q2”“q3”行合并到同一行中桌子。

希望有帮助。谢谢。

q1<-c(2,2,3,3,3,4,4,4,5,5)
q2<-c(2,3,3,4,4,4,4,5,5,5)
q3<-c(2,2,2,3,4,4,4,5,5,5)
df<-data.frame(q1,q2,q3)

library(expss)
# add value lables for preserving empty categories
val_lab(df) = autonum(1:5)
res = df
for(each in colnames(df)){
    res = res %>% 
        tab_cells(list(each)) %>% 
        tab_cols(vars(each)) %>% 
        tab_stat_rpct(total_row_position = "none")
}


res = res %>% tab_pivot() 
# add percentage sign
recode(res[,-1]) = other ~ function(x) ifelse(is.na(x), NA, paste0(round(x, 0), "%"))
res

# |    |  1 |   2 |   3 |   4 |   5 |
# | -- | -- | --- | --- | --- | --- |
# | q1 |    | 20% | 30% | 30% | 20% |
# | q2 |    | 10% | 20% | 40% | 30% |
# | q3 |    | 30% | 10% | 30% | 30% |

如果你使用knitr那么下面的代码将会有所帮助：

library(knitr)
res %>% kable