ReporteRs 패키지로 슬라이드 비율을 설정하는 방법

Question

간단한 문제로 ReporteRs 패키지와 함께 놀기 시작했습니다. ma 슬라이드의 특정 형식을 얻으려고합니다. 예를 들어 막대가없는 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") 

Answer 1

난 그냥 내 자신에 그것을 알아 낸 것 같아요 : 여기

은 예제 코드입니다. 나는 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")