library(ggplot2)
p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg,
colour = factor(gear))) + facet_grid(vs~am)
p + theme_dark_bg()
p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg,
colour = factor(gear))) + facet_grid(vs~am)
p + theme_light_bg()
Run the code above in your browser using DataLab