Может кто-нибудь предложить предложения о том, как лучше всего работать с прозрачностью и альфа-уровнями со многими слоями (со ссылкой наggplot2)? В приведенном ниже примере кода становится очень трудно увидеть границы отдельных штатов (например, Южная Каролина, Северная Каролина, Вирджиния).alpha=0.00001 но это, кажется, делает вещи хуже ...

library(ggplot2)

all_states = map_data("state")
set.seed(103)
df = data.frame(long=sample(-90:-70,100,T), lat=sample(30:45,100,T))
p = ggplot() + 
    geom_polygon(data=all_states, aes(x=long, y=lat, group=group), color="white", fill="grey80") + 
    stat_density2d(data=df, aes(x=long, y=lat, fill=..level.., alpha=..level..), # HELP HERE ???
                   size=2, bins=5, geom='polygon') +
    geom_point(data=df, aes(x=long, y=lat), 
               color="coral1", position=position_jitter(w=0.4,h=0.4), alpha=0.8) + 
    theme_bw()
p