R语言: 将绘图导出为 .pptx

使用 eoffice 包

https://mp.weixin.qq.com/s/G-EBOUpr1j2FBcAXapUIQA

kk <- iris
p1 <- ggplot()+geom_point(data = kk, aes(x=Sepal.Length, y=Sepal.Width))

topptx(p1,"/home/zhiyong/Desktop/YYYYYYYYYY/plot.pptx")   '#将绘图导出为 .pptx

Note: 从 R 中导出 .pptx 以后，可以用 Miscrosoft PowerPoint 或者 Mac Keynote 直接打开进行修改