geom_density2d地块人口数据（r）

我真的需要一些帮助。我想在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)

库（ggplot2）
图书馆（ggmap）
你说的“比别人大”是什么意思。哪一点，多大尺寸？我有两点。第一个“大小、重量或某物”是52，第二个是7。我想表示较大的值（52）被稀释到较小的值（7）。这很难重现，也不是很清楚。请进一步详细说明您的问题（请参阅一些以及解决方案的预期外观。抱歉！现在我已经编辑了该问题！现在您可以尝试该代码。我喜欢ditribution map（例如：），但我需要有关该过程的帮助。