gistfile1.txt

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))