R语言高清图片输出设置

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

解决方案思路:R+Corel Draw

这也是某期刊图的修改要求,必须提供.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语言可以这么玩 |高质量图片这样导出!

坚持原创技术分享,您的支持将鼓励我继续创作!