抛弃AI？R出图直接对接PPT修改矢量图

生信喵

背景

之前投稿的图，都是R画出pdf然后去AI编辑。实际很多用的是ppt编辑，遂寻找R导出ppt的格式，然后使用ppt修改。

解决方案

使用export包

让R导出ppt的格式

install.packages("export",destdir = 'C:/Users/Administrator/software/R/RStudiowork/R-4.5.1/downloaded_packages')
library(export)

举例

library(carData) # 包含Prestige数据集
library(car)     # 用于线性模型和Effect函数（它依赖于effects包）
library(effects) # 直接包含Effect函数
fit=lm(prestige~type+income*education,data=Prestige)
plot(Effect(c("income","education"),fit),multiline=T,ci.style="bands")

把这个图ppt的格式：

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

ppt打开，取消组合，那么所有的元素都是分离的，而且是矢量格式，你可以修改字体，改大小，改颜色，等等。

改完后，导出PDF，在导出的PDF中也是矢量的。不单是例子用的lattice，base plot和ggplot2都是支持的。

可以导出各种文件

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

• graph2bitmap
• graph2doc
• graph2eps
• graph2jpg
• graph2office
• graph2pdf
• graph2png
• graph2ppt
• graph2svg
• graph2tif
• graph2vector

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

• table2csv
• table2csv2
• table2doc
• table2excel
• table2html
• table2office
• table2ppt
• table2spreadsheet
• table2tex