我不会用illustrator，只会用ppt！

Original Y叔叔 YuLabSMU 2022-09-20

收录于合集 #交互式作图 5个

无意中发现神器，自己爽，

不如大家都来一起爽。

当年我准备考博的时候，健康院某PI（本来的意向导师）找我帮他在iMac上安装盗版的Papers（文献管理器）和Illustrator（PS的兄弟），安装后，跟我说：“我们做科研的，最重要的软件就是Papers和Illustrator。”，当然后来感觉挺坑我，就放弃了。

这么多年过去了，至今这两个软件我都没用过！我画图，追求的是全部由代码产生，至今还没有修图的需求，也就没有试过Illustrator了。

Illustrator必须有些门槛，而且关键是Adobe绑死在PDF上，实际上如果80%的问题都可以用PowerPoint解决，剩下那20%，反正也不常用。而PowerPoint的优点是没有门槛，傻瓜式操作，像我这种怀疑自己智商的人，都会用啊！

要是R画的图，能够在PowerPoint里面编辑就好了！
要是R画的图，能够在PowerPoint里面编辑就好了！
要是R画的图，能够在PowerPoint里面编辑就好了！

这里我们需要一个神器export包，安装很简单，因为在CRAN上。

install.packages("export")
library(export)

举个例子，下面这个图，用lattice画出来：

library(effects)
fit=lm(prestige ~ type + income*education, data=Prestige)
plot(Effect(c("income", "education"), fit),multiline=T, ci.style="bands")

画出来是这样子滴：

然后有了export包的助攻之后，我们只需要一句语句，就可以把这个图导出到PPT中去：

graph2ppt(file="effect plot.pptx", width=7, height=5)

然后只要你在PPT中取消组合，那么所有的元素都是分离的，而且是矢量格式，你可以修改字体，改大小，改颜色，等等。

改完之后，你如果想导出为PDF的话，那么图片在导出的PDF中，也是矢量的。不单是此处举例用的lattice，base plot和ggplot2都是支持的。

这个包提供了各种函数，你可以通过graph2doc导出到Word，还支持通过graph2office导出到LibreOffice。

而且更为良心的是，连表格也是支持的。

往期精彩