For Easy Reproducible Research

knitr::opts_chunk$set(echo = TRUE ,message=FALSE,warning=FALSE,comment=NA,eval=FALSE,
          fig.width=9,fig.asp=0.618,fig.align='center',out.width='70%')
require(rrtable)
require(ggplot2)

Introduction

If you are a data scientist or researcher, you will certainly be interested in reproducible research. With R package rrtable, you can make a MS Powerpoint file easily with a R code.

Make The Powerpoint File with R plot/ggplot

You can make the Powerpoint file easily with R plot with or without R code.

x=ggplot(mtcars,aes(x=wt,y=mpg))+geom_point()

You can make a Powerpoint file with this ggplot object.

plot2pptx(x)

If you want to show R code as well as plot, you can use R code string and set the echo argument TRUE.

x="ggplot(mtcars,aes(x=wt,y=mpg))+geom_point()"
plot2pptx(x,echo=TRUE,title="A ggplot")

By default, "Report.pptx" file will be generated

You can append a plot to existing Powerpoint file with a string of R code.

plot2pptx("plot(iris)",echo=TRUE,append=TRUE)

You can add R code on the slide by setting the argument echo TRUE.

Add a data.frame to the Powerpoint file

You can add a data.frame to the Powerpoint file.

table2pptx("head(iris)", echo=TRUE,append=TRUE)

Add the result of R code to the Powerpoint file

You can add the R code and the result of R code to the Powerpoint file

fit=lm(mpg~ wt*hp, data=mtcars)
Rcode2pptx("summary(fit)",append=TRUE)

Add the result of statistical analysis to the Powerpoint file

You can add the result of statistical analysis to the Powerpoint file

fit2=aov(yield ~ block + N * P + K, data = npk)
table2pptx(fit2,title="ANOVA result",append=TRUE,vanilla=TRUE)

Or

table2pptx("aov(yield ~ block + N * P + K, data = npk)",
           title="ANOVA result",echo=TRUE,append=TRUE,vanilla=TRUE)

You can use class of "matrix","lm","fitdistr","nls","aov","anova","glm","coxph","prcomp" or "summary.prcomp" object using table2pptx() file.

Adding the 2 plots/ggplots on a slide

You can add 2 plots on a slide side by side.

x=c("plot(iris)","ggplot(mtcars,aes(x=hp,y=mpg))+geom_point()")
plot2office(x,title="2 plots",parallel=TRUE,echo=TRUE,append=TRUE)

You can download sample Powerpoint file: Report.pptx - view with office web viewer

Shiny app using package rrtable

You can see the shiny app using package rrtable with the following R command.

shiny::runApp(system.file('pptxList',package='rrtable'))  

Press the load SampleData button of the shiny app and enjoy!



Try the rrtable package in your browser

Any scripts or data that you put into this service are public.

rrtable documentation built on April 2, 2020, 5:09 p.m.