寻找使用“expss”包完成以下任务的最快方法。
有了一个很棒的“expss”包,我们可以轻松地进行交叉制表(它具有交叉制表的其他优点和有用的功能。),我们可以轻松地对多个变量进行交叉制表,如下所示。
#install.packages("expss")
library("expss")
data(mtcars)
var1 <- "vs, am, gear, carb"
var_names = trimws(unlist(strsplit(var1, split = ",")))
mtcars %>%
tab_prepend_values %>%
tab_cols(total(), ..[(var_names)]) %>%
tab_cells(cyl) %>%
tab_stat_cpct() %>%
tab_pivot()
上面给出的输出为:(列 %)
#Total vs am gear carb
0 1 0 1 3 4 5 1 2 3 4 6 8
cyl 4 34.4 5.6 71.4 15.8 61.5 6.7 66.7 40 71.4 60
6 21.9 16.7 28.6 21.1 23.1 13.3 33.3 20 28.6 40 100
8 43.8 77.8 63.2 15.4 80.0 40 40 100 60 100
#Total cases 32.0 18.0 14.0 19.0 13.0 15.0 12.0 5 7.0 10 3 10 1 1
但是,正在寻找一种方法来创建如下表:
CYL | VS = 0 | AM = 1 | Gear = 4 or Gear = 5 | Carb (All)
4 5.56 61.54 58.82 34.38
6 16.67 23.08 29.41 21.88
8 77.78 15.38 11.76 43.75
Total(col%) 100.00 100.00 100.00 100.00
虽然我可以使用 dplyr 和 join 函数来实现这一点,但这太复杂了,因为我们必须在运行时或动态地传递变量。
任何帮助都将是可观的。谢谢!!