pptにプロットを追加するR

Question

reportRs pacakgeを使用して、いくつかのグラフ（.png/.jpg）を追加しようとしています。 test-0、test-1、test-2などをpptxファイルに追加します。これらのグラフは、例えば以下のようなpdfから抽出されている。 im.convert関数を使ってテストします。個別に追加することはできますが、グラフ、タイトル、スライド番号、日付などのコードを自動化することはできません。ループ内で 'test'という名前のグラフがいくつあるかを把握してから新しいスライドと1つの最終的なpptxファイルで1つずつ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

あなたは、フォルダ内の名前テストとPNGファイルのnummberを見つけるために、list.files機能を使用して試みることができます。 サンプルコード：

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