r - geom_density2d 在 r 中绘制人口数据

Question

我真的需要一些帮助。我想在 R 中创建一个图，但我不知道应该如何加权。我在下面使用了这段代码，要点是等价的。我想是一个比另一个大得多。

library(ggplot2)
library(ggmap)

Cau_map <- get_map(location='Caucasus', maptype="satellite", zoom = 5)

Cau <- data.frame(
lat = c(41.1057, 38.2968),
lon = c(44.2105, 47.1744),
data = c(52, 7)
)




ggmap(Cau_map, extent='device') +
  geom_density2d(data=Cau, aes(x=lon, y=lat), color = "red", size=.3) +
  stat_density2d(data=Cau, aes(x=lon, y=lat,  fill = ..level.., alpha = ..level..), size = 0.08, bins = 6, geom = 'polygon')+
  scale_fill_gradient(low = "red", high = "red4", guide=FALSE) + scale_alpha(range = c(0, 1), guide = FALSE)

这就是我得到的：