ge中的geom_density2d绘图人口数据

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)

这就是我得到的：