ggplot(data, aes(x=x, y=y)) + stat_bin_2d(geom="point", aes(fill=..density..), drop=TRUE, bins=200) + theme_bw() + theme(legend.position="none")