如何在R中循环指定列生成加权交叉表并导出为多种格式文件

需求背景 #

需要使用多个Y变量和单个X变量批量生成交叉表，每个Y变量对应独立表格。因Stata的tab命令不支持频率权重，选用R的descr包crosstab函数实现加权计算，同时配合kableExtra生成美观的格式化表格。

原循环存在的问题 #

• 只能遍历数据框全部列，无法指定需要处理的目标列
• 处理后的列名被替换为col，丢失原始变量名
• 无多格式（HTML/DOCX/Excel）导出实现方法

完整实现代码 #

注：代码中dat为你的数据集对象，若你的数据集命名不同请自行替换

1. 依赖包加载 #

# 安装缺失包可执行：install.packages(c("descr","kableExtra","officer","flextable","openxlsx"))
library(descr)
library(kableExtra)
library(officer)
library(flextable)
library(openxlsx)

2. 自定义参数+批量生成交叉表 #

# 自定义需要处理的Y变量列表，按需增删即可，无需遍历全量列
target_y_vars <- c("Q1A_3L", "Q1B_3L", "Q1C_3L", "Q1D_3L", "Q1E_3L", 
                   "Q1F_3L", "Q1G_3L", "Q1H_3L", "Q1I_3L", "Q1J_3L",
                   "Q1K_3L", "Q1L_3L", "Q1M_3L", "Q1N_3L", "Q1O_3L",
                   "Q1P_3L", "Q1Q_3L", "Q2_3L")
# 固定X变量和权重列
x_var <- "survey_yr"
weight_var <- "weight"
# 初始化结果存储容器，方便后续导出
all_crosstabs <- list()

# 循环生成交叉表
for (y_col in target_y_vars) {
  # 按变量名调用列，保留原始变量标识
  ct <- crosstab(dat[[y_col]], dat[[x_var]], 
                 weight = dat[[weight_var]], 
                 total.c = T, plot = F)
  ct_tab <- descr:::CreateNewTab(ct)
  # 存储带变量名的表格
  all_crosstabs[[y_col]] <- ct_tab
  
  # 实时打印带变量名的美观HTML表格
  print(
    kable(ct_tab, caption = paste0(y_col, " 与调查年份交叉表")) %>%
      kable_classic(full_width = F, html_font = "Cambria")
  )
}

多格式导出方案 #

导出为HTML汇总文件（所有表格在同一文件） #

html_output <- ""
for (y_name in names(all_crosstabs)) {
  tab_html <- kable(all_crosstabs[[y_name]], caption = paste0(y_name, " 与调查年份交叉表")) %>%
    kable_classic(full_width = F, html_font = "Cambria") %>%
    as.character()
  html_output <- paste0(html_output, tab_html, "<br><hr><br>")
}
writeLines(html_output, "加权交叉表汇总.html")

导出为DOCX文件（每个表格分页展示） #

doc <- read_docx()
for (y_name in names(all_crosstabs)) {
  # 添加变量名作为表格标题
  doc <- body_add_par(doc, paste0(y_name, " 与调查年份交叉表"), style = "heading 2")
  # 转换为适配Word的表格格式
  ft <- flextable(as.data.frame(all_crosstabs[[y_name]])) %>%
    theme_booktabs() %>%
    font(fontname = "Cambria", part = "all") %>%
    autofit()
  doc <- body_add_flextable(doc, ft)
  # 插入分页符
  doc <- body_add_break(doc)
}
print(doc, target = "加权交叉表汇总.docx")

导出为Excel文件（每个变量对应独立sheet） #

wb <- createWorkbook()
for (y_name in names(all_crosstabs)) {
  # 用变量名作为sheet名称
  addWorksheet(wb, y_name)
  # 写入表格标题
  writeData(wb, sheet = y_name, x = paste0(y_name, " 与调查年份交叉表"), startRow = 1)
  # 写入交叉表数据
  writeData(wb, sheet = y_name, x = all_crosstabs[[y_name]], startRow = 3)
}
saveWorkbook(wb, "加权交叉表汇总.xlsx", overwrite = TRUE)

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