R语言：如何在Word文档书签位置插入ggplot图形？

问题出在body_replace_img_at_bkm函数要求传入**external_img类型的对象**，直接传入ggplot生成的图形对象会触发报错。解决思路是先把ggplot图形导出为图片文件，再转换成external_img对象后替换书签位置。

完整解决代码 #

library(officer)
library(ggplot2)

# 读取Word模板
template <- read_docx("C:/Users/Documents/template.docx")

# 1. 把ggplot图形导出为临时png文件
temp_plot_path <- tempfile(fileext = ".png")
ggsave(
  filename = temp_plot_path,
  plot = plot1, # 你的ggplot对象
  width = 6,    # 调整图片宽度
  height = 4,   # 调整图片高度
  dpi = 300     # 控制图片清晰度
)

# 2. 将图片路径转换为external_img对象
plot_img <- external_img(src = temp_plot_path, width = 6, height = 4)

# 3. 替换书签位置的内容
template <- body_replace_img_at_bkm(template, bookmark = "plot1", value = plot_img)

# 保存修改后的文档
print(template, target = "C:/Users/Documents/template_updated.docx")

关键说明 #

• 使用tempfile()生成临时文件路径，无需手动创建和清理图片文件，运行后临时文件会自动被系统回收。
• ggsave的width、height参数要和external_img里的参数对应，保证插入Word的图片尺寸符合预期。
• 确保Word模板里的书签名称plot1和代码里的完全一致，包括大小写。

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