# NOT RUN {
library(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 = "body_add_gg.docx" )
# }
Run the code above in your browser using DataCamp Workspace