Theme inspired by fivethirtyeight.com plots

(qplot(hp, mpg, data= subset(mtcars, cyl != 5),
        geom="point", color = factor(cyl))
 + ggtitle("Horsepower, mpg and cylinders")
 + geom_smooth(method = "lm", se = FALSE)
 + scale_color_fivethirtyeight()
 + theme_fivethirtyeight())

plot of chunk theme_fivethirtyeight