This package is intended to allow for easy reuse of themes I've made for various projects.
ggplot(mpg, aes(displ, cty, color = factor(year))) +
geom_point() +
theme_nuclear() +
labs(title = "Much Deterrence.",
subtitle = "Very Scary. Wow.",
caption = "@syknapptic")
mpg %>%
filter(manufacturer %in% c("audi", "chevrolet", "dodge", "ford")) %>%
ggplot(aes(displ, hwy, color = cyl)) +
geom_jitter(show.legend = TRUE) +
scale_color_continuous(low = "orange", high = "red") +
facet_wrap(~ manufacturer, scales = "free") +
theme_nuclear() +
theme(legend.position = "right") +
labs(title = "Many Delivery Systems.",
subtitle = "So Fusion. Wow.",
caption = "@syknapptic")