Skip to content

Instantly share code, notes, and snippets.

@baptiste
Last active January 17, 2018 20:30
Show Gist options
  • Save baptiste/f06578674f46d98ee35bb529dd22d954 to your computer and use it in GitHub Desktop.
Save baptiste/f06578674f46d98ee35bb529dd22d954 to your computer and use it in GitHub Desktop.
library(egg)
l <- list(list(data=mtcars, mapping=aes(mpg, wt)),
geom_path(),
aes(col=wt),
labs(title="Title"),
facet_wrap(~carb))
pl <- Reduce("+", l, init=ggplot(), accumulate = TRUE)
ggarrange(plots = pl,
labels = letters[seq_along(pl)],
label.args = list(gp = grid::gpar(font=4, cex = 1.2)))
@baptiste
Copy link
Author

screen shot 2018-01-18 at 9 27 51 am

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment