R - 在地图上绘制销售量

Question

我正在尝试使用ggplot2和ggmap绘制地图上的销售量。 我尝试用这些线条做到这一点，但当然情节不对，因为地图较暗，我最集中的客户（但这并不意味着在那些地方我有更高的销售量）：

ggmap(my.map,extent="device")+
      stat_density2d(data=sales.data,aes(x=lon,y=lat,fill=..level..,alpha=..level..),
         size=0.01,bins=20,geom="polygon")+ scale_fill_gradient(low = "green", high = "red")
              +scale_alpha(range=c(0,0.3),guide=FALSE)

数据集包含3列：lon，lat和销量。显然，我希望地图在销量最大的坐标附近变得“更暗”。 有没有R函数可以做到这一点？

由于