# NOT RUN {
#START_TAG_TEST
doc.filename = "addPlot_example.pptx"
# set default font size to 24
options( "ReporteRs-fontsize" = 24 )
doc = pptx( title = "title" )
# add a slide with layout "Title and Content"
doc = addSlide( doc, slide.layout = "Title and Content" )
doc = addTitle( doc, "Title example 1" )
# Add a base plot
doc = addPlot( doc, fun = plot
, x = rnorm( 100 ), y = rnorm (100 )
, main = "base plot main title"
)
# Add a base plot at a specified location
doc = addPlot( doc, fun = plot
, x = rnorm( 100 ), y = rnorm (100 ), col = "red"
, main = "small shape", pointsize=5
, offx = 7, offy = 0, width = 3, height = 2
)
# add a slide with layout "Title and Content"
doc = addSlide( doc, slide.layout = "Title and Content" )
doc = addTitle( doc, "Title example 2" )
# load ggplot2
if( requireNamespace("ggplot2", quietly = TRUE) ){
# create a ggplot2 plot
myplot = ggplot2::qplot(Sepal.Length, Petal.Length, data = iris
, color = Species, size = Petal.Width, alpha = I(0.7) )
# Add myplot into object doc
# myplot is assigned to argument 'x' because function 'print' on ggplot
# objects is expecting argument 'x'.
doc = addPlot( doc = doc, fun = print, x = myplot )
}
# Write the object
writeDoc( doc, file = doc.filename )
#STOP_TAG_TEST
# }
Run the code above in your browser using DataLab