# NOT RUN {
library(ggplot2)
d = data.frame(
x = 1:90,
y = rnorm(90),
red = rep(letters[1:3], 30),
blue = c(rep(1, 30), rep(2, 30), rep(3, 30)))
p <- ggplot(d) +
geom_point(aes(x = x, y = y)) +
facet_grid(red ~ blue)
tag_facet(p + theme_article())
p + theme_presentation()
# example of use with cairo device
# ggsave("fig_talk.pdf", p + theme_presentation("Source Sans Pro"),
# width=14, height=7, device = cairo_pdf, bg='transparent')
# }
Run the code above in your browser using DataLab