Adding Figure Captions to Plots

[annychih]

I didn't like the idea of saving each pair of charts to individual png files because each of our scripts actually generate 3 sets of charts (Reading, Writing, Numeracy) and I didn't want those Writing charts to be completely useless (in case we wanted to do something to them later), so I was fiddling with RStudio trying a few different ways to try and add a single figure caption for code chunks that included 2 charts. These are some of the things that technically worked but didn't produce anything nice (the graphs were generally too small). I'm putting them here for reference:

library(grid)

library(png)

library(gridExtra)

This makes them too small:

fig1a <- rasterGrob(as.raster(readPNG("../img/bar_plot_numeracy.png")))

fig1b <- rasterGrob(as.raster(readPNG("../img/bar_plot_reading.png")))

grid.arrange(arrangeGrob(fig1a, fig1b, nrow = 1, ncol = 2, widths = c(2,2)))

This didn't work:

library(ggplot2)

multiplot(fig1a, fig1b, cols =2)

This wasn't any better:

library(cowplot)

plot_grid(fig1a, fig1b, ncol = 2)

doesn't work:

fib1a <- readPNG("../img/bar_plot_numeracy.png")

fig1b <- readPNG("../img/bar_plot_reading.png")

grid.raster(fig1a, fig1b)

This was just as bad:

library(cowplot)

library(ggplot2)

p1 <- ggdraw() + draw_image('../img/bar_plot_numeracy.png', scale = 2)

p2 <- ggdraw() + draw_image('../img/bar_plot_reading.png', scale = 2)

plot_grid(p1, p2)

putting this outside in the regular markdown area didn't work either

{width=100px} #{width=100px}

[annychih]

I ended up changing each of the scripts to output one png file for both boxplots.