Example

Let’s have a demo. I have made a video for impatients:

First load packages:

library(officer)
library(flextable)
library(rvg)
library(mschart)
library(magrittr)
library(ggplot2)

We will use the following dataset:

Download file data.RDS

data <- readRDS("../../static/files/melanoma.RDS")
regulartable(data) %>% theme_vanilla() %>% autofit() 

First let’s create a ggplot object:

gg <- ggplot(data, aes(x = Ulceration , y = Mean, colour = Gender, size = n)) + 
  geom_point() + 
  facet_wrap(~Status ) + 
  theme_minimal()
gg

Then a summary table:

ft <- regulartable(data = head(data)) %>% 
  theme_booktabs() %>% 
  set_header_labels( n = "#", Mean = "\u03D1", SD = "\u03C3") %>% 
  color(i = ~ n < 4, color = "wheat") %>% 
  autofit() 
ft

A Microsoft chart:

scatter_ms <- ms_scatterchart(data = data, x = "Mean", y = "n", group = "Status")

And gather them in a new PowerPoint document:

read_pptx() %>% 
  # add a slide then the flextable
  add_slide(layout = "Title and Content", master = "Office Theme") %>% 
  ph_with_flextable(ft, type="body" ) %>% 
  # add a slide then the ggplot
  add_slide(layout = "Title and Content", master = "Office Theme") %>% 
  ph_with_vg(code = print(gg), type="body", bg = "transparent") %>% 
  # add a slide then the microsoft chart
  add_slide(layout = "Title and Content", master = "Office Theme") %>% 
  ph_with_chart(chart = scatter_ms, type="body") %>% 
  # generate pptx
  print(target = "../../static/files/melanoma.pptx") %>% 
  invisible()

Download file melanoma.pptx - view with office web viewer

Documentation

The documentation of the packages can be found here:

• officer: https://davidgohel.github.io/officer
• flextable: https://davidgohel.github.io/flextable
• mschart: https://ardata-fr.github.io/mschart

What’s next

I will work later on:

1. Fix issues if any.
2. Add a minimal support for Excel files with flextables, vector graphics.
3. Add pages headers and footers support for Word files.