当然有更省心的办法！不用再折腾Excel中转，直接用R的几个工具包就能把你的sum_tab数据集导出成10行4列的可编辑Word表格，给你两种实用方案：

方案一：用flextable + officer（推荐，支持自定义样式） #

这是做Word表格最常用的组合，能轻松调整表格格式，导出的表格在Word里完全可编辑：

# 首次使用先安装依赖包
install.packages(c("flextable", "officer"))

# 加载包
library(flextable)
library(officer)

# 将sum_tab转换为flextable对象
ft <- flextable(sum_tab)

# 可选：自定义表格样式（比如居中对齐、自动调整列宽）
ft <- ft %>%
  set_table_properties(width = 1, layout = "autofit") %>%  # 让表格适配页面宽度
  align(align = "center", part = "all")  # 所有内容居中

# 导出到Word文档
save_as_docx(ft, path = "汇总表格.docx")

如果需要更复杂的格式（比如表头加粗、设置边框颜色、调整字体），flextable都能实现，你可以根据需求加更多样式调整代码。

方案二：用huxtable（快速导出，适合不需要复杂格式的场景） #

要是你只需要快速导出，不想折腾样式，huxtable的quick_docx函数一步就能搞定：

# 安装包
install.packages("huxtable")

# 加载包并导出
library(huxtable)
quick_docx(sum_tab, file = "快速汇总表格.docx")

小提示 #

• 导出前可以用dim(sum_tab)确认下数据是10行4列，确保导出的表格符合预期；
• 导出的Word文件默认存在当前工作目录，用getwd()可以查看目录路径，也可以在path/file参数里写绝对路径（比如"C:/Users/xxx/Desktop/汇总表格.docx"）指定保存位置。

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