Quarto循环输出gtsummary表格无法渲染的解决求助

核心问题 #

Quarto/knitr在处理循环内的表格输出时，不会自动捕获knitr::knit_print的结果，必须明确将输出标记为原样输出（asis），才能在HTML中正常渲染。

解决方案1：使用purrr::walk + knitr::asis_output #

用purrr::walk遍历分组变量，生成表格后将knitr::knit_print的结果用knitr::asis_output包裹并打印，确保Quarto识别并渲染表格：

library(gtsummary)
library(titanic)
library(purrr)
library(knitr)

# 预处理泰坦尼克数据集
titanic_df <- as.data.frame(Titanic) %>%
  tidyr::uncount(Freq)

# 定义需要循环的分组变量
group_vars <- c("Survived", "Sex")

walk(group_vars, function(var) {
  # 生成带统计检验的gtsummary表格
  tbl <- titanic_df %>%
    tbl_summary(by = all_of(var)) %>%
    add_p() %>%
    modify_caption(paste("按", var, "分组的描述性统计"))
  
  # 输出表格到Quarto
  print(asis_output(knit_print(tbl)))
})

解决方案2：基础for循环实现 #

如果习惯用基础for循环，同样需要用asis_output包裹输出：

library(gtsummary)
library(titanic)
library(knitr)

titanic_df <- as.data.frame(Titanic) %>%
  tidyr::uncount(Freq)

group_vars <- c("Survived", "Sex")

for (var in group_vars) {
  tbl <- titanic_df %>%
    tbl_summary(by = all_of(var)) %>%
    add_p() %>%
    modify_caption(paste("按", var, "分组的描述性统计"))
  
  # 关键：用asis_output标记输出，避免渲染失败
  cat(asis_output(knit_print(tbl)))
}

注意事项 #

• 代码块默认参数results='markup'即可，无需额外修改。
• 用modify_caption()给每个表格添加自定义标题，标题会自动在HTML中显示。
• 不要直接使用cat(knitr::knit_print(tbl))，knit_print返回的是带格式的对象，必须用asis_output包裹后再输出，否则会破坏渲染结构。

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