word插入图片保持清晰度的一个小技巧

自己之前在写论文的时候配图的处理方式是： 使用R语言作图，然后导出为pdf格式，再使用Adobe Acrobat打开pdf文件，另存为tiif格式图片，然后再插入word，tiff格式的图片分辨率如果设置的稍微大一点的话文件就会非常大。插入word后即使分辨率很高有时候也不会很清楚。好像是word有一个设置是会对大图片进行压缩，以防止保存的文件过大（我不知道这个对不对，我印象里好像在哪里看见过这句话）。

今天在一个公众号看见推文 介绍pdf格式的图片如何插入到word里。看见有人留言 说： R可以输出metafile呀，直接粘贴到word里边，矢量图片，怎么放大都不失真 ，metafile是啥我还真不知道，之前也没有用到过。所以就打开Rstudio做个图试一下。

ggplot2 简单做一个散点图

library(ggplot2)
ggplot(iris,aes(x=Sepal.Length,y=Sepal.Width))+
  geom_point(aes(color=Species))+
  theme_minimal()

image.png

image.png

保存的结果是 以emf为后缀名的一个文件，直接双击默认用windows系统自带的画图软件打开

image.png

直接ctrl+A，然后复制可以粘贴到word里，word放大缩小清晰度是不变的。但是一个问题是右边和下边有很多空白区域，不知道如何去掉。

然后我去搜索了一下 emf格式的图片是什么东西，找到了一个介绍是

常见的矢量图包括：EPS，EMF和SVG。SVG适合于浏览器，EPS适合于LaTeX，EMF才适合Word。所以，如果在Word插图，最好是使用EMF格式。

这个时候想起了之前的一篇推文

devEMF这个R包可以用命令行来保存emf格式的图片

首先是安装

install.packages("devEMF")

命令号行导出图片

library(devEMF)
library(ggplot2)

emf(file="Rplot.emf")
p1<-ggplot(iris,aes(x=Sepal.Length,y=Sepal.Width))+
  geom_point(aes(color=Species))+
  theme_minimal()
print(p1)
dev.off()

image.png

这个保存的结果就没有了右边和下边的空白。这个不知道是什么原因。

接下来又遇到的问题是：有时候R语言作图还不能够完美，还学要借助其他软件更改一些细节，我比较习惯保存pdf格式，然后操作pdf文件，那么有没有办法可以将pdf格式的推按保存为emf格式呢？

欢迎大家留言相关的办法

我自己也来查找一下

欢迎大家关注我的公众号

小明的数据分析笔记本