更改 stat_density_2d 图例以显示犯罪数量

问题描述

我正在尝试为圣路易斯市的部分地区制作犯罪密度图。以下是数据示例：

df <- data.frame(crime = c("assault","homicide","burglary","larceny","larceny"),lon = c(-90.25233,-90.25494,-90.25194,-90.25613,-90.24882),lat = c(38.65320,38.66046,38.65503,38.65624,38.65747))

我的目标是制作一个密度图，表示每个 bin 中的犯罪数量（即 0-5 次犯罪、5-10 次犯罪等）。这是我迄今为止尝试过的代码。

library(ggmap)
map <- get_googlemap(center = c(lon = -90.2514,lat = 38.6540),zoom = 15)
ggmap(map)+
  stat_density_2d(
      aes(x = lon,y = lat,fill = ..level..,alpha = .6),size = .1,bins = 4,data = df,geom = "polygon"
    )

密度图看起来准确，但考虑到只有 5 个点，图例的值太大了。我的问题是：如何调整图例以反映每个垃圾箱中的犯罪数量？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）