Добавление графиков в ppt в R

Question

Используя reportRs pacakge, я пытаюсь добавить несколько графиков (.png/.jpg), которые называются, например, test-0,test-1,test-2 и т. Д. В файл pptx. Эти графики были извлечены из PDF-файла с именем, например, test, используя функцию im.convert. Я могу добавить их по отдельности, но не могу автоматизировать код для графиков, заголовка, номера слайда, даты и т. Д. В цикле, который может определить, сколько графиков с ' имя test'есть в папке, а затем импортируйте их в pptx один за другим в новый слайд на время и в один конечный файл pptx.

образец кода:

library(animation)
im.convert("Test.pdf", output = "Test.png", extra.opts="-density 150")

library("ReporteRs")
doc <- pptx()
doc <- pptx(template = templateDir)
doc <- addSlide( doc, slide.layout = 'Competative Landscape' )
doc <- addTitle(doc, paste("Test-0"))
doc <- addImage(doc, "Test-0.png")
:
:

:
:

doc <- addSlide( doc, slide.layout = 'Competative Landscape' )
doc <- addTitle(doc, paste("Test-3"))`enter code here`
doc <- addImage(doc, "Test-3.png")

Answer 1

Вы можете попробовать использовать функцию list.files, чтобы найти в папке количество файлов png с именем Test. образец кода:

list_of_files=list.files(path = "C:/output_folder", pattern = c("Test",".png"))
library("ReporteRs")
doc <- pptx()
doc <- pptx(template = templateDir)
for( i in 0:(length(list_of_files)-1))
{
  doc <- addSlide( doc, slide.layout = 'Competative Landscape' )
  doc <- addTitle(doc, paste0("Test-",i))
  doc <- addImage(doc, paste0("Test-",i,".png"))
}  

Answer 2

Вы также можете попробовать пакет eoffice:

install.package("eoffice")
fig<-infigure("figes",savegg=T)
topptx(fig,file="test.pptx")
##or 
infigure("figs",showfig=T)
topptx(fig,file="test.pptx")