[英]adding plots to a ppt in R
使用reportRs pacakge,我正在嘗試將多個圖形(.png/.jpg)添加到pptx 文件中,這些圖形命名為例如test-0、test-1、test-2 等。 這些圖形是從名為例如 test 的 pdf 中提取的,使用 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")
您可以嘗試使用 list.files 函數查找文件夾中名為 Test 的 png 文件的數量。 示例代碼:
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"))
}
你也可以試試 eoffice 包:
install.package("eoffice")
fig<-infigure("figes",savegg=T)
topptx(fig,file="test.pptx")
##or
infigure("figs",showfig=T)
topptx(fig,file="test.pptx")
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.