如何使用R自动更新Word中的自定义统计表格？

所需工具包 #

先安装并加载处理数据、生成表格和操作Word的必备包：

install.packages(c("dplyr", "flextable", "officer"))
library(dplyr)
library(flextable)
library(officer)

1. 数据统计与整理 #

先写一个通用函数，批量统计单列的频数、占比并追加合计行，再合并成目标格式：

# 原始数据
E1<- c("F","B","C","A","B","A","A","A","D","E","F")
E2 <- c("A","F","C","A","B","B","B","D","E","D","D")
data<-data.frame(E1,E2)

# 统计单列的频数、百分比，最后追加合计行
stat_single_col <- function(col_data) {
  total_n <- length(col_data)
  col_data %>%
    table() %>%
    as.data.frame(stringsAsFactors = FALSE) %>%
    rename(取值 = ".", 频数 = "Freq") %>%
    mutate(占比 = sprintf("%.1f%%", 频数/total_n*100)) %>%
    add_row(取值 = "合计", 频数 = total_n, 占比 = "100.0%")
}

# 分别统计E1、E2并合并成最终数据结构
stat_e1 <- stat_single_col(data$E1)
stat_e2 <- stat_single_col(data$E2)
final_data <- cbind(stat_e1, stat_e2[, -1])
colnames(final_data) <- c("", "E1_取值", "E1_占比", "E2_取值", "E2_占比")

2. 构建多层表头格式表格 #

用flextable生成符合要求的双层表头表格，并做基础美化：

# 初始化表格对象
ft <- flextable(final_data)

# 设置双层表头结构
ft <- set_header_labels(ft,
                        "" = "",
                        E1_取值 = "value",
                        E1_占比 = "% over total",
                        E2_取值 = "value",
                        E2_占比 = "% over total")
# 合并表头的上层单元格
ft <- merge_h(ft, part = "header")
# 添加顶层表头行
ft <- add_header_row(ft, values = c("", "E1", "E1", "E2", "E2"), top = TRUE)

# 基础美化：自动调整列宽、全局居中、合计行加粗
ft <- autofit(ft)
ft <- align(ft, align = "center", part = "all")
ft <- bold(ft, i = nrow(final_data), part = "body")

3. 输出到Word并实现自动更新 #

方式1：直接生成新Word文档 #

运行代码生成Word文件，后续数据变更时重新执行代码覆盖原文件即可更新：

save_as_docx(ft, path = "统计结果表格.docx")

方式2：插入到已有Word文档 #

如果需要将表格添加到现成的Word模板中，用officer操作：

# 读取现有文档（无则新建）
doc <- read_docx()
# 将表格插入文档
doc <- body_add_flextable(doc, ft)
# 保存文档
print(doc, target = "统计结果表格.docx")

自动更新逻辑 #

只要R中的data数据集发生变更，重新执行上述全部代码，就能得到更新后的Word表格。如果想更便捷，可以将代码保存为R脚本，每次改完数据直接运行脚本；也可编写R Markdown模板，每次渲染生成最新的Word文档。

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