Case of base graphs

The example below creates a PowerPoint document in your current working directory. The document contains one slide with 2 panels :

• The first panel contains an editable box plot
• The second panel contains a raster format

The PowerPoint document created by the R code below is available here : R software and ReporteRs package - create an editable base graph

library('ReporteRs')
# Create a new powerpoint document
doc <- pptx()
# Add a new slide into the ppt document 
doc <- addSlide(doc, "Two Content" )
# add a slide title
doc<- addTitle(doc, "Editable vector graphics format versus raster format" )
# A function for creating a box plot
boxplotFunc<- function(){
      boxplot(len ~ dose, data = ToothGrowth, 
        col=2:4,main = "Guinea Pigs' Tooth Growth",
        xlab = "Vitamin C dose mg",
        ylab = "tooth length")
      }
# Add an editable box plot
doc <- addPlot(doc, boxplotFunc, vector.graphic = TRUE )
# Add a raster box plot
doc <- addPlot(doc, boxplotFunc, vector.graphic = FALSE )
# write the document to a file
writeDoc(doc, file = "editable-graph.pptx")

Open the created PowerPoint and try to edit the first box plot by changing the fill colors, line types, etc…

Case of graphs generated using ggplot2

ggplot2 is a powerful R package, implemented by Hadley Wickham, for producing a visually appealing charts.

Install and load it as follow :

install.packages('ggplot2') # Install
library('ggplot2') # Load

Create an editable plot with ggplot2 :

library('ReporteRs')
library(ggplot2)
# Create a new powerpoint document
doc <- pptx()
# Add a new slide into the ppt document 
doc <- addSlide(doc, "Two Content" )
# add a slide title
doc<- addTitle(doc, "Editable vector graphics format versus raster format" )
# A function for creating a box plot
bp <- ggplot(data=PlantGrowth, aes(x=group, y=weight, fill=group))+
        geom_boxplot()
# Add an editable box plot
doc <- addPlot(doc, function() print(bp), vector.graphic = TRUE )
# Add a raster box plot
doc <- addPlot(doc, function() print(bp), vector.graphic = FALSE )
# write the document to a file
writeDoc(doc, file = "editable-ggplot2.pptx")

The PowerPoint document created by the R code above is available here : R software and ReporteRs package - create an editable ggplot2