как установить пропорции слайда с помощью пакета ReporteRs

Я начал играться с пакетом ReporteRs и завис на простой проблеме. Я пытаюсь получить определенный формат для слайдов, например, для показа на проекторе 1280x1024 без каких-либо полос... Но слайды, созданные ReporteRs, имеют странные размеры. Есть ли способ установить размер слайдов как-то?

Вот пример кода:

require(ReporteRs)
require(ggplot2)

myplot <- qplot(Sepal.Length, Petal.Length, 
               data=iris, color=Species, 
               size=Petal.Width, alpha=I(0.7))

# Create a new document
mydoc <- pptx(title="EVG demo")

mydoc <- addSlide(mydoc, "Content with Caption")
mydoc <- addTitle(mydoc, "Vector graphics format versus raster format")
mydoc <- addPlot(mydoc, function() print(myplot), vector.graphic=TRUE)
mydoc <- addPlot(mydoc, function() print(myplot), vector.graphic=FALSE)

writeDoc(mydoc, file="EVG_example.pptx")

r reporters
person drmariod    schedule 19.10.2016    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Думаю, я просто понял это сам. Я сохранил пустой документ PowerPoint с ожидаемыми соотношениями как template.pptx и использовал его при использовании функции pptx()...

myplot <- qplot(Sepal.Length, Petal.Length, 
               data=iris, color=Species, 
               size=Petal.Width, alpha=I(0.7) )

# Create a new document
mydoc <- pptx(title="EVG demo", template='template.pptx')

mydoc <- addSlide(mydoc, "Content with Caption")
mydoc <- addTitle(mydoc, "Vector graphics format versus raster format")
mydoc <- addPlot(mydoc, function() print(myplot), vector.graphic=TRUE)
mydoc <- addParagraph(mydoc, 'test test 1 2 3')

writeDoc(mydoc, file="EVG_example.pptx")
person drmariod    schedule 19.10.2016
comment
@DavidGohel Да, на самом деле я понял это через два часа после того, как написал это, что все, о чем я просил, есть в вашей документации ... Кстати, отличный пакет! - person drmariod; 20.10.2016