原创 使用R语言为学术出版制作高分辨率的图像

陆勤 2019-10-25 231768 0 0

### 问题提出 我们做学术研究，时常需要把大部分结果做可视化，便于总结，分享和传播。我们如何制造能够符合学术出版的高分辨率图形呢？ ### 解决方法 学术出版物，为图形的格式化有明确的要求，经常用的图形格式：TIFF格式，EPS格式或者PDF格式，其他图形格式不提倡，甚至是不允许，因为存在图形的压缩或者失真。 ### 使用R语言制造高分辨率的图像 1 数据准备 ``` x1 <- seq(-3.14, 3.14, length.out = 100) y1 <- sin(x1) ``` 2 制造TIFF格式图片 ``` tiff("plot1.tiff", width = 4, height = 4, units = 'in', res = 300) plot(x1, y1) invisible(dev.off()) ``` 3 制造EPS格式 ``` cairo_ps('plot2.eps') plot(x1, y1) invisible(dev.off()) ``` EPS格式的图片可以直接插入Word里面显示 4 制造PDF格式 ``` pdf('plot3.pdf', width = 4, height = 4) plot(x1, y1) invisible(dev.off()) ``` 或者 利用ggplot2包的函数ggsave()来制造上述格式的图片，参考代码如下。 ``` # 使用R语言自带的women数据集 pic <- ggplot(data = women, aes(x = height, y = weight)) + geom_point() + theme_classic() print(pic) # 数据保存 ggsave('pic1.tiff', plot = pic, height = 5, width = 5, units = 'in', dpi = 600) ggsave('pic2.eps', plot = pic, height = 5, width = 5, units = 'in') ggsave('pic3.pdf', plot = pic, height = 5, width = 5, units = 'in') ``` <br/><br/><b>版权声明：</b>作者保留权利。文章为作者独立观点，不代表数据人网立场。严禁修改，转载请注明原文链接:http://www.shujuren.org/article/19809.html<br/><b>数据人网：</b>数据人学习，交流和分享的平台，诚邀您创造和分享数据知识，共建和共享数据智库。