Используйте R и Latex для автоматизации отчетов Powerpoint

Можете ли вы автоматизировать PowerPoint из R? Т.е. запустить его, получить доступ к объектной модели и т.д.?

Если это так, вы сможете создавать таблицы непосредственно в PPT.

Это решение зависит от того, сможете ли вы отображать PDF-файлы там, где вы обычно используете PowerPoint.

Тебе понадобится:

1) LateX 2) R 3) Латексная упаковка Beamer.

Из них единственный, который вам, возможно, придется искать, это Beamer. Затем вы можете открыть новый латексный документ, присвоить ему тип документа «beamer», а затем написать «латекс» и «R», как в статье. Отправьте код в R, получите результаты, наберите результаты, и все готово. Я не возвращался к Powerpoint с тех пор, как узнал о Beamer.

Я вижу, что вам нужно оставаться в Powerpoint, так что этот совет, вероятно, бесполезен. При этом Beamer выводит в PDF, и я провел много презентаций, где все остальные использовали PowerPoint, и у меня никогда не было проблем.

Взгляните на sweave и odfSweave. Вы можете создавать отчеты R в виде pdf-файлов, используя sweave, а затем копировать/вставлять в PowerPoint, или использовать odfweave для создания отчета в виде odt-файла LibreOffice, затем открывать его и копировать/вставлять в PowerPoint из LibreOffice.

Возможно, R2PPT - лучшее решение. Другой вариант, который я начинаю изучать, — это создание сценария Visual Basic (.vbs), который открывает Powerpoint, вставляет слайды и вставляет EMF, сгенерированные R.

Пакет ReporteRs предназначен именно для этого рабочего процесса. Если ваш вывод может быть в формате pdf или html, обязательно рассмотрите knitr или slidify, которые не поддерживают .pptx. Но вот пример использования ReporteRs:

library('ReporteRs')

# set default font size to 24
options( "ReporteRs-fontsize" = 24 )

doc = pptx( )

# add a slide with layout "Title Slide"
doc = addSlide( doc, slide.layout = "Title Slide" )
#set the main title
doc = addTitle( doc, "Presentation About Cars" ) 

# add a slide with layout "Title and Content" then add content
doc = addSlide( doc, slide.layout = "Title and Content" )
doc = addTitle( doc, "Cars dataset", level = 1 )
data(mtcars)

library('ggplot2')
car_plot <- ggplot(mtcars, aes(x=hp, y=mpg, col=cyl)) + 
              geom_point() + geom_smooth() + 
              xlab('Horsepower (Hp)') + ylab('Miles per Gallon (MpG')


doc = addPlot( doc = doc, fun=print, x = car_plot )

doc = addSlide( doc, slide.layout = "Title and Content" )
doc = addTitle( doc, "More about cars dataset", level = 1 )
doc = addParagraph(doc, paste("The correlation between Hp and MpG is",
                              round(with(mtcars, cor(hp, mpg)),3))
                   )

writeDoc( doc, file = "presentation_about_cars.pptx" )

Взгляните на мой новый экспортный пакет, который только что вышел из CRAN и позволяет экспортировать графики и статистические таблицы из R в Powerpoint и Word. См. https://cran.r-project.org/web/packages/export/index.html и https://github.com/tomwenseleers/export .

Например:

install.packages("export")
library(export)

## export of ggplot2 plot
library(ggplot2)
qplot(Sepal.Length, Petal.Length, data = iris, color = Species, 
      size = Petal.Width, alpha = I(0.7))
# export to Powerpoint      
graph2ppt(file="ggplot2_plot.pptx", width=7, height=6) 
# export to Word
graph2doc(file="ggplot2_plot.docx", width=7, height=6)

## export of aov Anova output as table
fit=aov(yield ~ block + N * P + K, npk)
x=summary(fit)
# export to Powerpoint
table2ppt(x=x,file="table_aov.pptx")
table2ppt(x=x,file="table_aov.pptx",digits=4,append=TRUE)
table2ppt(x=x,file="table_aov.pptx",digits=4,digitspvals=1,
          font="Times New Roman",pointsize=16,append=TRUE)
# export to Word
table2doc(x=x)
# export to Excel
table2excel(x=x, file = "table_aov.xlsx",digits=4,digitspvals=1,
            sheetName = "Anova_table", add.rownames = TRUE)
# export to Latex
table2tex(x=x)