如何在Rmarkdown中使用janitor和kable纵向拆分三向交叉表

你现在的代码使用tabyl(a, b, c)传入三个变量，会默认把c的不同分组的交叉表横向拼接成一个宽表，所以呈现为并排状态。要拆分纵向排列可使用以下两种方案：

方案1：直接拆分tabyl返回的列表 #

tabyl传入三个变量时会返回列表结构，每个元素对应c的一个分组的交叉表，你直接分别输出每个元素的kable即可：

# 批量生成所有分组的交叉表
crosstab_res <- df %>% 
  tabyl(a, b, c) %>% 
  adorn_totals(c("row", "col"))

# 分别输出每个分组的表格
crosstab_res[[1]] %>% kable(caption = "c = 1")
crosstab_res[[2]] %>% kable(caption = "c = 2")

方案2：按c分组批量生成表格 #

如果c的取值数量不固定，可以用分组拆分+遍历的方式批量生成所有分组的表格：

# 已加载tidyverse的话无需单独加载purrr
library(purrr)

df %>% 
  group_split(c) %>% 
  walk(~ {
    .x %>% 
      tabyl(a, b) %>% 
      adorn_totals(c("row", "col")) %>% 
      kable(caption = paste0("c = ", unique(.x$c))) %>% 
      print() # 循环内必须显式调用print才能正常渲染表格
  })

两种方案生成的表格都会纵向依次排列，每个表格对应c的一个分组，不会出现并排显示的情况。

内容的提问来源于stack exchange，提问作者sbac