如何将ggplot2绘制的高质量图形导出至Word文档？

这里有几种实用方案，可避免截图导致的画质损失：

1. 导出高分辨率位图（PNG/TIFF） #

直接导出为高DPI的位图文件，插入Word后清晰度足够，操作简单：

library(ggplot2)
# 先生成你的图形
set.seed(1234)
wdata = data.frame(
  sex = factor(rep(c("F", "M"), each=200)),
  weight = c(rnorm(200, 55), rnorm(200, 58)))

p <- ggplot(wdata, aes(x = weight)) + 
  geom_area(stat = "bin", color= "black", fill="#00AFBB")

# 导出高DPI的PNG
ggsave("weight_plot.png", plot = p, dpi = 300, width = 6, height = 4, units = "in")

• dpi = 300是印刷级分辨率，插入Word后缩放不会模糊
• 可根据需求调整width和height控制图形尺寸

2. 使用officer包直接插入图形到Word #

通过officer包可以在R中直接生成Word文档并插入ggplot图形，全程无需手动操作：

library(officer)
library(ggplot2)

# 生成图形
p <- ggplot(wdata, aes(x = weight)) + 
  geom_area(stat = "bin", color= "black", fill="#00AFBB")

# 创建空Word文档
doc <- read_docx()
# 向文档中添加图形，设置宽高
doc <- body_add_gg(doc, value = p, width = 6, height = 4)
# 保存文档
print(doc, target = "ggplot_in_word.docx")

3. 导出为EMF矢量格式（Windows推荐） #

EMF是Windows支持的矢量图形格式，插入Word后仍保持矢量属性，缩放不失真：

ggsave("weight_plot.emf", plot = p, width = 6, height = 4)

• 注意：macOS对EMF支持有限，此方法更适合Windows用户

4. 用rmarkdown直接生成Word报告 #

如果需要整合代码、文字和图形生成完整报告，rmarkdown是最优选择：
创建一个.Rmd文件，内容如下：

---
title: "体重分布分析报告"
output: word_document
---

### 体重分布直方图
```{r, echo=FALSE, fig.width=6, fig.height=4}
library(ggplot2)
set.seed(1234)
wdata = data.frame(
  sex = factor(rep(c("F", "M"), each=200)),
  weight = c(rnorm(200, 55), rnorm(200, 58)))

ggplot(wdata, aes(x = weight)) + 
  geom_area(stat = "bin", color= "black", fill="#00AFBB")

点击RStudio中的"Knit"按钮，即可直接生成包含图形的Word文档。

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