tibble 的交叉表变量并使输出可读

crosstab variables of tibble and make the output readable

我必须对 tibble 的变量进行交叉制表。我为此使用了 table(),但输出不容易阅读。

有没有办法格式化输出以使其更易于阅读。

谢谢

library(tidyverse)

# random arrays of 0 and 1
a <- sample(c(0, 1, 2, 3, 4, 5), replace = TRUE, size = 100)
b <- sample(c(0, 1, 2, 3, 4, 5), replace = TRUE, size = 100)

tbl <- tibble(a, b)

cross_tab <- table(tbl$a, tbl$b)

cross_tab

我对这些类型的表格使用 expss

library(expss)
cro(tbl$a,tbl$b) %>% htmlTable()

您可以在上面的命令之前加上 expss 命令 apply_labels 来格式化变量和值名称。有关详细信息,请参阅文档。