# NOT RUN {
library(ggplot2)
p <- ggplot(iris, aes(Sepal.Width, Sepal.Length)) +
geom_point() +
facet_wrap(~ Species)
p + dark_theme_gray() # geom defaults changed
p + theme_gray() # oh no! geoms are not visible on light background
invert_geom_defaults() # geom defaults changed back
p + theme_gray() # back to normal
# }
Run the code above in your browser using DataLab