如何将gt表格导出保存为Excel或Word格式文件

完全不需要重新在Excel中制作表格，用以下方法即可快速导出，内容和基础样式的保留度可以满足大部分出版社的要求：

导出Excel格式 #

可以通过临时HTML中转的方式实现，操作简单且兼容性好，代码示例如下：

# 加载依赖包，未安装可先运行 install.packages(c("gt", "rio"))
library(gt)
library(rio)

# 将你的gt表格对象（示例中为my_gt_table）先存为临时HTML文件
gtsave(my_gt_table, "temp_gt_table.html")
# 读取HTML中的表格内容直接导出为xlsx格式
export(import("temp_gt_table.html"), "final_table.xlsx")

导出Word格式 #

两种可选路径，可根据你的表格复杂度选择：

• 路径1：先按上述方法导出Excel文件，直接将Excel中的表格复制粘贴到Word文档中，大部分样式会自动保留，仅需微调即可
• 路径2：通过gtExtra包的对应方法直接导出为docx文件，代码示例如下：

# 加载依赖包，未安装可先运行 install.packages(c("gt", "officer", "gtExtra"))
library(gt)
library(officer)
library(gtExtra)

# 直接导出gt对象为Word文件
my_gt_table %>% 
  as_word(output = "final_table.docx")

如果你的gt表格包含自定义复杂样式（如特殊色值、嵌套表头、自定义合并单元格），导出后可能存在少量格式偏差，仅需在对应编辑器中微调几分钟即可，完全无需重做整个表格。
只有当你的gt表格包含大量交互元素、极度复杂的条件格式且导出后格式丢失率超过70%时，才考虑重新制作，90%以上的常规出版表格用上述方法即可10分钟内完成导出调整。

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