Export mehr Plots von R in ppt

fand ich eine Funktion hier eine ppt mit einer Rutsche für einen Plot in R. Hier erstellt zu schaffen, ist der Link zu dieser Funktion: R: Function to export currently active R plot to Powerpoint/Word/LibreOffice Export mehr Plots von R in ppt

ich mein Programm möchte hinzufügen mehrere Folien (jeweils mit einem Diagramm).

Ich benutze derzeit: export2ppt(file="plot.pptx") Aber ich kann nicht herausfinden, wie ich ein zweites Diagramm zu der gleichen Datei hinzufügen.

Quelle

2016-04-11 user2506015

'addPlot (' die in Ihrer fucntion verwendet hat neue Liste mit Grundstück, so dass Sie es mehr als ein Mal, wenn wont – Batanichek

Sie doc schaffen hier zusätzliche Plot hinzufügen können. - - Sie brauchen es nur einmal pro Datei 'if (type ==" PPT ") {doc = pptx(); doc = addSlide (doc, slide.layout =" Leer "); pagesize = dim (doc) $ slide. dim} else {doc = docx(); pagesize = dim (doc) $ page-dim (doc) $ ränder [c (4,3)]} pageaspectr = pagesize ["width"]/pagesize ["height"] ' – Batanichek

Ich habe das gesehen, dachte aber, dass die zweite Datei, die die Funktion export2ppt (file =" plot.pptx ") wieder verwendet, eine neue Folie hinzufügt, stattdessen überschreibt sie die erste erstellte pptx mit einer neuen mit einem neuen Graphen darin. – user2506015

Versuchen Sie zum Beispiel

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")

Quelle

2016-04-11 14:12:19 Batanichek

Export mehr Plots von R in ppt

Antwort

Verwandte Themen