RStudio 使用 kable 打印包含多个变量和百分比的表格

问：

我想使用kable创建一个与Word编织的表格。我可以为一个变量创建所需的表，但我想在一个表中显示多个变量。 数据：

library(tidyr)
library(knitr)
library(tidyverse)

df <- data.frame(
             rating1=c("Very important", "Important", "Unimportant", "Unimportant", "Very important", "Important"),
             rating2=c("Important", "Important", "Neutral", "Unimportant", "Unimportant", " Very unimportant"),
             rating3=c( "Unimportant", "Unimportant", " Very unimportant", "Neutral", "Unimportant", " Very unimportant"))

这是我到目前为止对一个变量的了解，我希望对多个变量也是如此。但我希望布局不同：变量名称作为左侧的行，然后是 5 个答案选项中每个选项的 n 和 % 列（总共 11 列）。

df %>%
  filter(!is.na(rating1)) %>%
  count(rating1, sort = TRUE) %>%
  mutate(percent = round(100 * (n / sum(n)), 1)) %>%
  arrange(desc(n)) %>%
  add_row(rating1 = "**Total**", n = sum(.$n), percent = 100) %>%
  kable(align = "lcc", col.names = c('**Rating 1**', '**n**', '**%**'))