如何在R中用sjPlot的sjt.xtab生成多份列联表至单个输出文件

当然可以实现！下面提供两种实用方法，帮你批量生成列联表并汇总到单个输出文件中：

方法一：循环生成并合并HTML文件 #

这种方法适合快速生成HTML格式的汇总报告，核心思路是遍历所有因变量，生成每个列联表的HTML代码片段，最后拼接成完整的HTML文件。

代码示例 #

# 加载所需包
library(sjPlot)

# 生成可复现数据（固定随机种子保证结果一致）
set.seed(123)
data <- data.frame(
  group = sample(LETTERS[1:3], 50, replace = T),
  var_1 = sample(c("Yes", "No"), 50, replace = T),
  var_2 = sample(c("Low","Mid","High"), 50, replace = T),
  var_3 = sample(c("Yes","No","Don't know"), 50, replace = T)
)

# 定义自变量和因变量列表
independent_var <- data$group
dependent_vars <- list(data$var_1, data$var_2, data$var_3)
var_labels <- c("var_1", "var_2", "var_3")

# 初始化存储HTML片段的向量
html_segments <- c()

# 循环生成每个列联表的HTML代码
for (i in seq_along(dependent_vars)) {
  # 生成HTML代码（不直接写入文件）
  tab_code <- sjt.xtab(
    independent_var,
    dependent_vars[[i]],
    title = paste("列联表：group vs", var_labels[i]),
    file = NULL # 设为NULL返回HTML代码而非写入文件
  )$output
  
  html_segments <- c(html_segments, tab_code)
}

# 拼接完整HTML结构并写入文件
full_html <- paste(
  "<!DOCTYPE html>",
  "<html><head><title>批量列联表汇总</title></head><body>",
  paste(html_segments, collapse = "<hr>"), # 用水平线分隔表格
  "</body></html>",
  sep = "\n"
)

writeLines(full_html, "批量列联表汇总.html")

关键说明 #

• file = NULL 让sjt.xtab返回HTML代码而非直接写入文件，方便后续拼接
• 用<hr>标签分隔不同列联表，提升可读性
• 可通过sjt.xtab的参数自定义表格样式、统计量（如卡方检验结果）等

方法二：用R Markdown生成规范报告（支持HTML/DOCX） #

如果需要生成DOCX格式或结构化的正式报告，推荐使用R Markdown，可一键生成多格式输出。

示例R Markdown代码（保存为列联表报告.Rmd） #

---
title: "group变量与多因变量列联表汇总"
output:
  html_document: default
  word_document: default # 取消注释即可生成DOCX格式
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library(sjPlot)
set.seed(123)
data <- data.frame(
  group = sample(LETTERS[1:3], 50, replace = T),
  var_1 = sample(c("Yes", "No"), 50, replace = T),
  var_2 = sample(c("Low","Mid","High"), 50, replace = T),
  var_3 = sample(c("Yes","No","Don't know"), 50, replace = T)
)

列联表汇总 #

# 遍历因变量生成表格
dep_vars <- c("var_1", "var_2", "var_3")
for (var in dep_vars) {
  cat(paste("### 列联表：group vs", var), "\n\n")
  sjt.xtab(
    data$group,
    data[[var]],
    title = NULL, # 用Markdown标题替代内置标题，样式更统一
    file = NULL
  )
  cat("\n\n") # 添加空行分隔表格
}

### 使用方法
1. 将代码保存为`.Rmd`文件
2. 在RStudio中点击「Knit」按钮，选择生成HTML或DOCX格式报告

### 优势
- 支持直接输出DOCX，满足办公文档需求
- 可自由添加文本说明、其他图表，生成结构化报告
- 可通过R Markdown主题参数自定义整体样式

内容的提问来源于stack exchange，提问作者Maciej B.