R语言如何对数据框多列批量应用tabyl函数生成统计交叉表

方案1：for循环直接逐个输出（最直观） #

如果只是需要运行时直接查看每个变量的统计结果，输出和你手动调用的布局、标签完全一致，用简单的for循环即可：

# 定义要批量处理的变量名
vars <- c("x1", "x2", "x3")

for (var in vars) {
  # 打印变量名作为区分标题，可根据需要调整
  cat("===== 变量", var, "的统计结果 =====\n")
  print(tabulate(df, var))
  cat("\n")
}

如果是在RMarkdown中使用，给代码块设置results = 'asis'参数，输出会直接渲染为带标题的规范表格。

方案2：lapply存命名列表（适合需要后续调用结果的场景） #

如果需要把结果保存下来后续分析、导出，用lapply生成命名列表即可，完全保留原tabyl的结构和标签：

vars <- c("x1", "x2", "x3")
# 生成命名列表，列表名对应变量名
result_list <- setNames(lapply(vars, function(v) tabulate(df, v)), vars)

# 调用时和手动调用的结果完全一致
result_list$x1
result_list$x2
result_list$x3

方案3：purrr::walk批量输出（tidyverse生态友好） #

如果你习惯使用tidyverse工具链，用purrr::walk处理这类需要打印、导出等副作用的场景更简洁：

library(purrr)
vars <- c("x1", "x2", "x3")

walk(vars, ~{
  cat("===== 变量", .x, "的统计结果 =====\n")
  print(tabulate(df, .x))
  cat("\n")
})

拓展：合并为单个总表 #

如果需要把所有变量的统计结果合并为一个总表方便批量导出，可以用map_dfr批量绑定：

library(purrr)
library(dplyr)
vars <- c("x1", "x2", "x3")

total_result <- map_dfr(vars, ~{
  tabulate(df, .x) %>%
    mutate(所属变量 = .x, .before = 1) # 新增列标记结果对应的变量
})

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