Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
ridges <- df_plays_cov %>%
filter(epa > -2) %>%
filter(epa < 2)
ggplot(ridges, aes(x = epa, y = most_freq_cov, fill = most_freq_cov)) +
geom_density_ridges() +
theme_ridges() +
labs(x = "EPA Allowed",
y = "Coverage",
title = "EPA Ridge for Each Coverage",
caption = "By Tej Seth | @mfbanalytics | Data from the Big Data Bowl") +
theme(
plot.title = element_text(size = 14, hjust = 0.5, face = "bold"),
legend.position = "None"
) +
geom_vline(xintercept = 0, color = "black", linetype = "solid", alpha=1.0) +
scale_x_continuous(breaks = scales::pretty_breaks(n = 10))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment