如何在RStudio中导出保留格式的gt表格至Word文档？

问题背景 #

使用gt包创建了带自定义样式的表格，直接用gtsave()导出docx时所有自定义格式丢失；引入webshot2和rmarkdown包尝试保留格式后，触发pandoc错误：

Unknown output format doc
Pandoc can convert to DOCX, but not to DOC.
Error: pandoc document conversion failed with error 22

期望导出效果与RStudio Viewer中显示的一致：

错误原因 #

1. 原生docx导出限制：gt包原生的docx导出不支持部分高级自定义样式（如谷歌字体、跨列标题样式、自定义文字颜色），导致格式丢失。
2. pandoc格式识别错误：安装webshot2后，gtsave会优先通过网页转docx的方式导出，但内部调用pandoc时误将输出格式指定为doc而非docx，触发格式不支持的报错。

解决方案 #

方案1：修复webshot2导出流程（推荐） #

明确指定gtsave()使用webshot方法，并确保pandoc识别正确的docx格式，同时设置合适的视图宽度避免表格截断：

# 导出时指定webshot方法和视图宽度
gtsave(gt_sampletabledata, filename = "gt_sampledata.docx", method = "webshot", vwidth = 1200)

前置检查：确保webshot2的chromium依赖已安装，运行以下命令完成安装：

webshot2::install_chromium()

方案2：手动HTML转docx（备选） #

如果方案1仍报错，可先导出为HTML，再用pandoc手动转换为docx：

# 第一步：导出为HTML格式
gtsave(gt_sampletabledata, "gt_sampledata.html")

# 第二步：用pandoc转换为docx
rmarkdown::pandoc_convert(input = "gt_sampledata.html", output = "gt_sampledata.docx", from = "html", to = "docx")

完整测试代码 #

使用提供的测试数据集，可直接运行验证：

library(tidyverse)
library(gt)
library(webshot2)
library(rmarkdown)

# 加载测试数据集
sampletabledata <- structure(list(`Number of Pets in Household` = c("0", "1", "2", 
"3", "4", "5", "6", "7", "(Missing)", "Total"), `15/16` = c(1, 
446, 294, 42, 6, 5, 2, 0, 146, 942), `16/17` = c(0, 641, 574, 
82, 12, 3, 1, 0, 610, 1923), `17/18` = c(1, 799, 747, 112, 30, 
5, 1, 0, 1662, 3357), `18/19` = c(0, 805, 807, 67, 15, 6, 1, 
1, 2108, 3810), `19/20` = c(0, 1260, 787, 74, 19, 4, 3, 0, 1748, 
3895), `20/21` = c(1, 1510, 854, 102, 22, 8, 3, 0, 1387, 3887
), `21/22` = c(1, 1746, 971, 121, 19, 5, 1, 0, 1699, 4563), `22/23` = c(26, 
1531, 1064, 162, 42, 8, 4, 1, 4469, 7307), `23/24` = c(6, 445, 
300, 48, 7, 2, 0, 1, 810, 1619)), row.names = c(NA, -10L), spec = structure(list(
    cols = list(`Number of Pets in Household` = structure(list(), class = c("collector_character", 
    "collector")), `15/16` = structure(list(), class = c("collector_double", 
    "collector")), `16/17` = structure(list(), class = c("collector_double", 
    "collector")), `17/18` = structure(list(), class = c("collector_double", 
    "collector")), `18/19` = structure(list(), class = c("collector_double", 
    "collector")), `19/20` = structure(list(), class = c("collector_double", 
    "collector")), `20/21` = structure(list(), class = c("collector_double", 
    "collector")), `21/22` = structure(list(), class = c("collector_double", 
    "collector")), `22/23` = structure(list(), class = c("collector_double", 
    "collector")), `23/24` = structure(list(), class = c("collector_double", 
    "collector"))), default = structure(list(), class = c("collector_guess", 
    "collector")), delim = ","), class = "col_spec"), problems = NULL, class = c("spec_tbl_df", 
"tbl_df", "tbl", "data.frame"))

# 创建带样式的gt表格
gt_sampletabledata <- gt(sampletabledata) %>%
  tab_header(title="Count of Households with Pets") %>%
  opt_align_table_header(align='left') %>%
  tab_spanner(label="Fiscal Year", columns=c(`15/16`,`16/17`,`17/18`,`18/19`,`19/20`,`20/21`,`21/22`,`22/23`,`23/24`)) %>%
  tab_style(style=list(cell_text(color='#F76900',weight = 'bold')),locations=cells_column_labels()) %>%
  tab_style(style=list(cell_text(color='#000E54',weight = 'bold')),locations=cells_body(col=1)) %>%
  tab_style(style=list(cell_text(color='#F76900',weight = 'bold')),locations=cells_column_spanners()) %>%
  opt_table_font(google_font(name='Aptos'))

# 执行导出（推荐方案）
gtsave(gt_sampletabledata, filename = "gt_sampledata.docx", method = "webshot", vwidth = 1200)

注意事项 #

• vwidth参数可根据表格实际宽度调整，避免内容被截断
• 若网络无法加载谷歌字体Aptos，可替换为系统已安装字体，例如opt_table_font(font = "Arial")
• 确保pandoc版本为最新，避免格式兼容问题

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