Skip to content

Instantly share code, notes, and snippets.

@cpsievert

cpsievert/test_facets.R

Created July 24, 2014 21:52
Show Gist options
  • Save cpsievert/031ab1a1b18b360c866f to your computer and use it in GitHub Desktop.
Save cpsievert/031ab1a1b18b360c866f to your computer and use it in GitHub Desktop.
Download ZIP
Raw
test_facets.R
library(animint)
p <- ggplot(mtcars, aes(mpg, wt)) +
geom_point(colour='grey50', size = 4) +
geom_point(aes(colour = cyl))
p2 <- p + facet_wrap(cyl~am, nrow = 3)
animint2dir(list(plot = p2), "test")
p2a <- p + facet_grid(cyl~am)
animint2dir(list(plot = p2a), "test")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment