r - 如何在 R 中更改 mrset 的列名？

Question

我正在尝试创建交叉表我有一个数据框，其中有多个选择问题。我正在使用外部和 expss 包从 SPSS 文件中导入数据框。我正在使用 mrset 函数创建多项选择问题。这是为了清楚起见的演示代码。

Banner1 = w %>% 
  tab_cells(mrset(as.category( temp1,counted_value = "Checked"))) %>%
  tab_cols(total(),mrset(as.category( temp2, counted_value = "Checked"))) %>% 
  tab_stat_cases(total_row_position = "none",label = "")
  tab_pivot(Banner1)

导入的数据表是这样的

               Total    Q12_1      Q12_2     Q12_3     Q12_4     Q12_5     
                 A        B          C         D          E        F        

Total Cases     803   34        18         14        38       37    

Q13_1           64        11         7      8     9    7                


Q13_2            12         54       54         43       13       12 


Q13_3           67           54      23          21          6      4

抱歉这里的对齐方式......所以这是导入的数据集。

谈到问题，正如您所看到的，该数据集的列标签是问题编号，而不是变量标签。对于单选问题，一切正常。有什么函数可以动态更改 mrset 函数的 colnames 吗？所需的输出应该是这样的。例如，

               Total    Apple     Mango    Banana    Orange     Grapes     
                 A        B          C         D          E        F        

Total Cases     803   34        18         14        38       37    

Apple           64        11         7      8     9    7                


Mango           12         54       54         43       13       12 


banana         67           54      23          21          6      4

任何帮助将不胜感激。