r - 将几个图从 R 导出到 ppt

Question

我在这里找到了一个函数，可以为在 R 中创建的绘图创建一个带有幻灯片的 ppt。
这是该函数的链接:R: Function to export currently active R plot to Powerpoint/Word/LibreOffice

我希望我的程序添加几张幻灯片(每个幻灯片包含一个图)。

我目前使用:export2ppt(file="plot.pptx")但我不知道如何在同一个文件中添加第二个图。

Answer 1

尝试例如

library(ReporteRs)
doc =pptx( ) # create pptx
doc=addSlide(doc,"Title and Content") # add slide
doc<-addTitle(doc,"first") # add title
fun_1<-function(){
  plot(mpg ~ wt,  data = mtcars)
}
doc <- addPlot(doc, fun= fun_1,vector.graphic =FALSE )  # add plot

doc=addSlide(doc,"Title and Content") # add slide
doc<-addTitle(doc,"Second") # add title

fun_2<-function(){
  plot(mpg ~ cyl,  data = mtcars)
}
doc <- addPlot(doc, fun= fun_2,vector.graphic =FALSE ) # add plot
writeDoc(doc, "r-2.pptx" )