使用Quarto渲染gt表格至Word时循环内表格格式异常求助

问题描述 #

使用Quarto将gt生成的表格渲染至Word文件时，输出内容未以标准表格形式呈现，而是显示为非结构化的文本内容。相关代码如下：

tbl_smry <- function(factor_ = 'manufacturer'){
  mpg %>% 
    rename(factor = factor_) %>% 
    group_by(year, factor) %>% 
    count() %>% 
    ungroup() %>% 
    gt()
  
}

for (x in c('manufacturer', 'model')) {
  tbl_smry(factor_ = x) %>% 
    print()
}

期望在Word中得到格式化的标准表格。

解决方法 #

方案1：直接在代码块中输出gt对象（推荐） #

循环中使用print()只会输出gt对象的文本表示，Quarto无法将其转换为Word表格。直接在Quarto代码块中逐个输出gt对象即可：

library(gt)
library(dplyr)

tbl_smry <- function(factor_ = 'manufacturer'){
  mpg %>% 
    rename(factor = all_of(factor_)) %>%  # 避免rename的语法警告
    group_by(year, factor) %>% 
    count() %>% 
    ungroup() %>% 
    gt()
}

# 直接输出表格，Quarto会自动渲染为Word格式
tbl_smry('manufacturer')
tbl_smry('model')

方案2：循环生成并保存独立表格后嵌入Word #

若需通过批量生成表格整合到Word，可先将每个gt表格保存为单独的Word文件，再在Quarto中引用：

for (x in c('manufacturer', 'model')) {
  tbl <- tbl_smry(factor_ = x)
  gt_save(tbl, filename = paste0("table_", x, ".docx"))
}

在Quarto文档中嵌入表格：

---
title: "GT Tables in Word"
format: docx
---

## 制造商统计表格
```{r, echo=FALSE}
include_docx("table_manufacturer.docx")

车型统计表格 #

include_docx("table_model.docx")

### 方案3：改用knitr::kable()（兼容优先）
如果不需要gt的高级样式，可使用对Word兼容性更好的`knitr::kable()`：
```r
library(knitr)
library(dplyr)

tbl_smry <- function(factor_ = 'manufacturer'){
  mpg %>% 
    rename(factor = all_of(factor_)) %>% 
    group_by(year, factor) %>% 
    count() %>% 
    ungroup() %>% 
    kable()
}

for (x in c('manufacturer', 'model')) {
  print(tbl_smry(factor_ = x))
}

核心原因 #

Quarto渲染Word时，需要直接捕获gt对象的渲染输出；而循环中的print()仅在控制台输出对象的文本描述，无法被Quarto识别并转换为Word的表格结构。直接输出gt对象时，Quarto会调用其专属的Word渲染器，生成标准表格。

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