使用 janitor::tabyl 将 data.frame 中的一个变量与所有其他变量制成表格

Question

数据：

product	q1	q2	q3
1	5	9	NA
1	6	7	NA
2	4	4	9
2	9	6	8
2	8	4	NA

这是一个小例子，但我的代码循环通过列 q2 并在到达 q3 时显示 Error: Selections can't have missing values. 不能将 Null 值更改为 0，因为它会改变平均值。

代码

for(i in 2:ncol(dataset)){
  column<-names(dataset[i])
  count<-tabyl(dataset,dataset[,i],product,show_na = FALSE,show_missing_levels = FALSE) %>% adorn_percentages("col") %>% adorn_pct_formatting(digits=0)
  print(column)
  print(count)
}

另外，q1,q2等是基于问题的产品排名，所以排名尺度是1-9，但是在数据集中有一些没有提到的尺度数字。即使频率为0，有没有办法显示所有比例值？

Answer 1

数据

x <- read.table(text = "product     q1  q2  q3
1   5   9   NA
1   6   7   NA
2   4   4   9
2   9   6   8
2   8   4   NA", header = TRUE)

要使表格显示您的 product 变量与所有其他列相比，您可以先将数据设置为“长”，然后使用您最初拥有的函数：

x %>%
  pivot_longer(q1:q3, "q", "value") %>%
  mutate(value = factor(value, levels = 1:9)) %>% # this is for your 1-9 scale
  tabyl(value, product, q, show_na = FALSE) %>%
  adorn_percentages("col") %>%
  adorn_pct_formatting(digits = 0) %>%
  adorn_title()

结果

$q1
       product    
 value       1   2
     1      0%  0%
     2      0%  0%
     3      0%  0%
     4      0% 33%
     5     50%  0%
     6     50%  0%
     7      0%  0%
     8      0% 33%
     9      0% 33%

$q2
       product    
 value       1   2
     1      0%  0%
     2      0%  0%
     3      0%  0%
     4      0% 67%
     5      0%  0%
     6      0% 33%
     7     50%  0%
     8      0%  0%
     9     50%  0%

$q3
       product    
 value       1   2
     1       -  0%
     2       -  0%
     3       -  0%
     4       -  0%
     5       -  0%
     6       -  0%
     7       -  0%
     8       - 50%
     9       - 50%