如何在Quarto渲染PDF时批量输出modelsummary模型汇总表？

以下是解决批量生成问题的两种最优方案，解决循环无输出、purrr编译错误的核心是确保LaTeX代码被正确注入Quarto渲染流，同时避免语法冲突：

方案1：基础循环（易上手、易统一修改） #

直接通过自定义函数封装表格生成逻辑，用knitr::asis_output()强制将LaTeX代码传递给Quarto渲染上下文，解决循环无输出问题。

# 1. 准备多模型示例（替换为你的实际模型列表）
models <- list(
  m1 = lm(mpg ~ cyl, data = mtcars),
  m2 = lm(mpg ~ cyl + disp, data = mtcars),
  m3 = lm(mpg ~ cyl + disp + hp, data = mtcars)
)

# 2. 自定义统一渲染函数（所有公共配置集中在这里）
render_model_table <- function(model, model_name) {
  # 生成LaTeX格式表格，统一设置样式
  tab <- modelsummary(
    model,
    output = "latex",
    title = paste("回归模型：", model_name),
    fmt = "%.3f",  # 系数格式
    stars = c("*" = 0.1, "**" = 0.05, "***" = 0.01),  # 显著性星号
    notes = c("数据来源：mtcars数据集")  # 统一脚注
  )
  # 注入LaTeX代码，添加垂直间距避免编译冲突
  knitr::asis_output(c(tab, "\n\\vspace{1em}\n"))
}

# 3. 循环生成所有表格
for (nm in names(models)) {
  render_model_table(models[[nm]], nm)
}

方案2：purrr批量处理（解决编译错误） #

之前的\@xverbatim错误源于多表格LaTeX代码未正确分隔，通过invisible()避免列表输出干扰，同时强制每个表格的代码独立：

library(purrr)

# 用imap同时获取模型对象和名称
imap(models, function(mod, nm) {
  tab <- modelsummary(
    mod,
    output = "latex",
    title = paste("回归模型：", nm),
    fmt = "%.3f",
    stars = c("*" = 0.1, "**" = 0.05, "***" = 0.01)
  )
  # 注入LaTeX并添加分隔符
  knitr::asis_output(c(tab, "\n\\vspace{1em}\n"))
}) %>% 
  # 阻止purrr返回的列表被打印为文本
  invisible()

关键注意事项 #

1. 统一修改技巧：所有表格的公共样式（系数格式、星号、脚注等）都放在自定义函数里，修改时只需调整函数参数，无需逐个修改modelsummary调用。
2. LaTeX编译避免冲突：用\\vspace{1em}在表格间添加垂直间距，确保每个表格的LaTeX代码独立，避免解析混乱。
3. 渲染上下文适配：必须用knitr::asis_output()而非cat()输出LaTeX，前者会将内容直接传递给Quarto的PDF渲染管道，后者仅输出到控制台。

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