stat_density2d(aes(fill = ..level..), alpha = .5, h = .02, n = 300, geom = "polygon", data = accident_before) + scale_fil
