# NOT RUN {
if( require("ggplot2") ){
  doc <- read_docx()
  gg_plot <- ggplot(data = iris ) +
    geom_point(mapping = aes(Sepal.Length, Petal.Length))
  if( capabilities(what = "png") )
    doc <- body_add_gg(doc, value = gg_plot, style = "centered" )
  print(doc, target = tempfile(fileext = ".docx") )
}
# }
Run the code above in your browser using DataLab