转自：https://guangchuangyu.github.io/cn/2019/04/export-office/
在PPT中编辑你的图
这里我们需要一个神器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中，也是矢量的。
可以导出各种文件
这个包提供了各种函数，你可以通过graph2doc导出到Word，还支持通过graph2office导出到LibreOffice。
graph2bitmap
graph2doc
graph2eps
graph2jpg
graph2office
graph2pdf
graph2png
graph2ppt
graph2svg
graph2tif
graph2vector
而且更为良心的是，连表格也是支持的。
table2csv
table2csv2
table2doc
table2excel
table2html
table2office
table2ppt
table2spreadsheet
table2tex