# NOT RUN {
if (require(ggplot2)) {
p <- ggplot(mtcars, aes(x = hp, y = mpg, color = factor(cyl))) +
geom_point() + facet_wrap(~ am) + geom_smooth()
p + theme_grey()
p + theme_mdsr()
}
# }
Run the code above in your browser using DataLab