library(ggridges) # Gives us geom_density_ridges()
ggplot(md_speeding, aes(x = speed_over, y = month)) + 
  geom_density_ridges(bandwidth = 2) +
  xlim(1, 35)