带有点密度指示的散点图

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]]

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

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