R 显示计数而不是“计数”；级别“；使用stat_density2d

我的目标是描绘道路交叉口中不同数量交通冲突的位置。我的数据包括我们在给定时间段内观察到的所有冲突，这些冲突被编码到一个.CSV文件中，其中包含以下字段“冲突时间”、“TTC”（表示碰撞时间）、“Lat”、“Lon”和“冲突类型”。我认为最好的方法是在R中使用“ggmap+stat_density2d”函数。我使用以下代码：

df = read.csv(filename, header = TRUE)
int.map = get_map(location = c(mean.long, mean.lat), zoom = 20, maptype = "satellite")
int.map = ggmap(int.map, extent ="device", legend = "right")'''
int.map +stat_density2d(data = new_xdf, aes(x, y, fill = ..levels.., alpha = ..levels..),
                                 geom = "polygon")
int.map + scale_fill_gradientn(guide = "colourbar", colours = rev(brewer.pal(7,"Spectral")),
                                         name = "Conflict Density")

输出是一张非常好的地图，正确地描绘了冲突热点。我的问题是，在图例中，它给出了由“stat_density2d（）”函数自动计算的“levels”值。我试图寻找一种方法来显示，比如说，图例栏上每个关卡内所有冲突点的计数，但没有结果

我确实发现下面的链接处理了一个类似的问题，但问题是它创建了一个新的数据帧（new_xdf），它比原始数据中的点多得多。因此，在该程序中确定的计数似乎对我没有用处，因为我希望在图例栏中显示原始数据中冲突点的确切数量

提前谢谢

编辑：链接到示例数据文件

---

您需要包含足够的数据来说明您遇到的问题。@42-我已经添加了指向示例数据文件的链接