如何将R输出表格转为可编辑Word文档？遇XML错误求解决

实用工具包方案 #

• flextable + officer组合：这是目前生成可编辑Word表格最稳定的方案，示例代码如下：

  library(flextable)
  library(officer)
  
  # 构造示例数据框
  df <- data.frame(
    姓名 = c("张三", "李四"),
    年龄 = c(25, 30),
    职业 = c("程序员", "设计师")
  )
  
  # 创建可编辑表格对象并调整格式
  ft <- flextable(df)
  ft <- autofit(ft) # 自动适配列宽
  
  # 生成Word文档并插入表格
  doc <- read_docx()
  doc <- body_add_flextable(doc, ft)
  print(doc, target = "可编辑表格.docx")
  

• huxtable快捷方案：代码更简洁，同样支持导出可编辑表格：

  library(huxtable)
  
  ht <- hux(df)
  quick_docx(ht, file = "可编辑表格.docx")
  

XML错误的常见排查点 #

结合你遇到的问题，XML错误基本跑不出这几个原因：

• 包版本不兼容：officer、flextable依赖的xml2等底层包版本过旧会触发解析错误，直接执行update.packages(c("flextable", "officer", "xml2"))更新所有相关包。
• 文件路径有问题：保存路径含中文、空格或特殊字符（比如&、*）会干扰XML解析，换成纯英文路径试试，比如print(doc, target = "C:/editable_table.docx")。
• 表格内容含XML保留字符：数据里如果有<、>、&这类字符，需要先转义，比如用gsub("&", "&", df$目标列名)处理后再生成表格。
• 用了已废弃的包：比如早年的ReporteRs包已经停止维护，用它生成表格大概率出XML错误，直接换成上面的维护中包就行。

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