R ggplot2地图上按组划分的多个二维密度（统计数据2d）

晚上好,

我试图在一张地图上覆盖多个密度，但我不知道如何覆盖 1） 根据组变量为密度（而不是轮廓）上色。 2） 如何捕捉最小范围

我想看到的是彩色密度在整个地图上的透明度变化。但是，只有轮廓线会改变颜色。此外，由于某些地区的数据量很大，因此根本没有突出显示最低级别。我想知道是否有一种方法可以像log（count）一样而不是count来分解垃圾箱。我想我可以手动完成第二部分。但我不知道如何让密度填充颜色工作。下面提供了我的编码尝试。我真的很感谢你的帮助

ggmap(map, extent = "normal", maprange=FALSE) +
stat_density2d(aes(x = longitude, y = latitude, color=as.factor(cluster), alpha=..level..), data=test1, size=1, contour=TRUE)


t2 <- ggmap(map, extent = "normal", maprange=FALSE) %+% test1 + 
aes(x = longitude, y = latitude,  color=as.factor(cluster), fille= as.factor(cluster)) +
  geom_density2d() +
  stat_density2d(aes(fill =as.factor(cluster),  alpha = ..level..), size = 0.001, bins = 200, geom = 'polygon') +
  #scale_fill_descrete(low = "green", high = "red") +
  scale_alpha(range = c(0.000, 0.3), guide = FALSE) +
  coord_map(projection="mercator", xlim=c(attr(map, "bb")$ll.lon,
   attr(map, "bb")$ur.lon), ylim=c(attr(map, "bb")$ll.lat, attr(map, "bb")$ur.lat))

显然，我不能发布我的形象，因为缺乏声誉，但它不是很漂亮。

---

这是我得到的照片。实际上，地图上到处都是数据（有两组以上的数据，但这并不重要）。但我能增加覆盖率的唯一方法是增加垃圾箱的数量。

您能提供数据吗？同时，我想知道你是否在谈论这样的事情。谢谢你，我也许能从你发布的链接中找到我需要的东西；我以前从未见过这种讨论！但原则上，我不想把一个密度分成不同的类别，我需要多个密度在某些地方重叠。我还上传了一个数据示例。

  longitude latitude    timestamp mon wday time cluster
1  118.2892 30.15523 1/1/12 19:16   0    0  979       2
2  111.7409 30.78840  1/1/12 9:26   0    0 1569       3
3  111.7409 30.78840  1/1/12 9:23   0    0 1389       1
4  111.7410 30.76408  1/1/12 9:22   0    0 1329       2
5  111.7936 30.81234  1/1/12 9:21   0    0 1269       2
6  111.7908 30.81940  1/1/12 9:20   0    0 1209       4