我太懂你这种批量处理表格的烦恼了！之前的问题出在每次调用read_docx()都会新建一个全新的Word文档对象，所以循环的时候每次都生成了单独的文件。解决思路很简单：先创建一个统一的文档容器，然后把所有表格依次塞进去就行！

完整解决方案代码 #

library(tidyverse)
library(flextable)
library(officer)

# 基础数据框
df <- data.frame(
  school = c("A", "B", "A", "B", "A", "B"),
  students = c(round(runif(6, 1, 10), 0)),
  grade = c(1, 1, 2, 2, 3, 3)
)

# 生成包含flextable对象和对应学校名称的列表
ft_list <- df %>% 
  group_by(school) %>% 
  nest() %>% 
  mutate(
    ftables = map(data, flextable),
    # 保留学校名称，方便后续加标题
    school_title = school
  )

# 1. 初始化一个空的Word文档对象
doc <- read_docx()

# 2. 遍历所有表格，逐个添加到同一个文档里
# 这里用walk2可以同时处理学校标题和表格，让报告更清晰
walk2(ft_list$school_title, ft_list$ftables, function(title, table) {
  # 添加表格对应的学校标题（用heading 2样式，你可以根据需求改）
  doc <<- body_add_par(doc, paste("学校:", title), style = "heading 2")
  # 添加表格
  doc <<- body_add_flextable(doc, table)
  # 加个空行分隔不同表格，可读性更好
  doc <<- body_add_par(doc, "")
})

# 3. 导出最终的Word文档
print(doc, target = "所有学校数据表格.docx")

关键知识点解释 #

• 为什么用walk/walk2而不是map？：因为我们不需要返回新对象，只是要对doc对象进行修改操作，walk专门用于这种“副作用”操作（比如修改外部对象、导出文件）。
• <<-的作用：因为在walk2的匿名函数里，直接用<-只会修改函数内部的局部变量，用<<-可以修改外部环境中的doc对象，确保所有表格都添加到同一个文档里。
• 额外优化：给每个表格加上对应学校的标题，并用Word内置样式格式化，让你的报告更专业，符合美观需求。

如果你不需要标题，也可以简化成更简洁的版本：

doc <- read_docx()
walk(ft_list$ftables, ~ doc <<- body_add_flextable(doc, .x))
print(doc, target = "批量表格输出.docx")

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