以ggplot2等包为基础的R语言可视化是科研人员非常喜爱的一个方式，不过我也在这个上遇到了些问题。就是导出高分辨率的图片之后，插入到word里，就显得模糊不清（压缩得非常厉害）。如果不压缩的话，word动辄100M以上。最近刚好有了一个解决方式，就来介绍下。

这也是某期刊图的修改要求，必须提供.cdr文件。当然测试后发现，.cdr输出的tif即使被压缩，也能很清晰。

这里谈谈怎么做。首先R目前是没法直接输出.cdr格式的文件的，根据网上的经验就是用emf这个格式，能够输出Corel Draw能读取的矢量文件，导入后再做些微调。

但是R输出emf没有像tiff和jpeg那样的语句，主要使用的是savePlot函数。

这里摘下R的帮助文档再来解释这个函数

Usage

savePlot(filename = "Rplot", type = c("wmf", "emf", "png", "jpg", "jpeg", "bmp", "tif", "tiff", "ps", "eps", "pdf"), device = dev.cur(), restoreConsole = TRUE)

Arguments

filename The filename under which to save the plot. Tilde-expansion (see path.expand is supported.

type The type of plot, Windows metafile, PNG, JPEG, BMP (Windows bitmap format), TIFF, PostScript or PDF.

device A device number of a windows device, by default the current device.

restoreConsole See the ‘Details’ section of windows.

一个参数一个参数来解释吧。 filename：很好理解，就是你要输出的图片路径和名称，用字符串类型。如“C:/Rplot"。不必加后缀。 type：输出格式。 device：Windows设备的设备编号，默认为当前设备，这个参数。 restoreConsole：这个参数也是跟windows图形设备相关的。

实际使用时，后两个参数默认就可以。主要是针对前两个参数。

接下来用一个案例来展示下操作。使用的是R语言默认的mtcars数据。用plot绘图和ggplot2绘图各测试一遍。但是笔者就如网上所说在Rstudio中运行savePlot报错。

事实上这个语句只能在原生的Rgui中运行。因此将R代码存成脚本，在Rgui中直接用source调用写好的脚本即可。

plot只需直接绘图语句。而ggplot则需要多一句print语句，才能输出图片。

运行完后，打开corel draw，按下图进行操作。

这样就能把emf转变成全部可编辑的矢量了。

当然Rstudio也有个方法。就是使用复制到剪贴板的功能，然后粘贴到Corel Draw里面。

这就是将R导入到Corel Draw前期工作。相比与之前压缩得非常厉害的图片，我感觉Corel Draw输出的图片质量非常高。此外，后面搜索时，我也发现了R的一个包：devEMF: EMF Graphics Output Device。可以输出emf，这样在Rstudio里也可以操作了。

参考博客： R语言可以这么玩 |高质量图片这样导出！