散点图，指示点的密度

Question

R的qplot函数有一个漂亮的alpha参数，用于着色散点图中较重的重合点。这是在行动：

http://www.decisionsciencenews.com/2010/07/01/maps-without-map-packages

我想知道如何在Mathematica中做同样的事情。 这里是从上面的文章中获取数据并绘制它的代码，没有漂亮的着色：

data = Rest@Import[
  "http://www.decisionsciencenews.com/wp-content/uploads/2010/07/latlong.zip", 
  "latlong.csv"]

ListPlot[data, PlotRange -> {{-130, -65}, {23.5, 50.5}}, Frame -> True]

问题是，如何添加点的阴影？

Answer 1

我认为这有几个不同的解决方案。如果您只想调整每个点的不透明度：

ListPlot[data, PlotRange -> {{-130, -65}, {23.5, 50.5}}, 
 Frame -> True, PlotStyle -> Opacity[0.5]]

这会产生与链接中的绘图非常相似的效果。

基于密度的自定义颜色映射是可能的，但我的实现还没有产生漂亮的图形。