R中的重叠热图

我是R的新手，我试图解决这个问题，寻找其他问题，但我做不到。我使用ggplot2和ggmap创建的不同热图存在重叠问题。当绘制地图时，它可以单独工作。只有当我尝试将它们绘制在一起时，错误才会出现：

“填充”的比例已存在。为“填充”添加另一个比例，该比例将替换现有比例

出现了

这是我的代码：

us_map_g_str <- get_map(location = "detroit", zoom = 10)

ggmap(us_map_g_str, extent = "device") + 
  geom_density2d(data = data1, 
                 aes(x=as.numeric(lon), y = as.numeric(lat)), 
                 size = 0.3) + 
  stat_density2d(data = data1, 
                 aes(x = as.numeric(lon), y = as.numeric(lat),
                     fill = ..level.., alpha = ..level..),
                 size = 0.3, bins = 500, geom = "polygon") + 
  scale_fill_gradient(low = "green", high = "red") + 
  scale_alpha(range = c(0, 0.3), guide = FALSE) + 
  geom_density2d(data = data2, 
                 aes(x = as.numeric(lon), y = as.numeric(lat)), 
                 size = 0.3) + 
  stat_density2d(data = data2, 
                 aes(x = as.numeric(lon), y = as.numeric(lat),
                     fill = ..level.., alpha = ..level..), 
                 size = 0.3, bins = 500, geom = "polygon") + 
  scale_fill_gradient(low = "blue", high = "black") + 
  scale_alpha(range = c(0, 0.3), guide = FALSE) + 
  geom_density2d(data = data3, 
                 aes(x = as.numeric(lon), y = as.numeric(lat)), 
                 size = 0.3) + 
  stat_density2d(data = data3, 
                 aes(x = as.numeric(lon), y = as.numeric(lat),  
                     fill = ..level.., alpha = ..level..), 
                 size = 0.3, bins = 500, geom = "polygon") + 
  scale_fill_gradient(low = "yellow", high = "orange") + 
  scale_alpha(range = c(0, 0.3), guide = FALSE)

---

us\u map\u g\u str这是预期的行为。每个ggplot2图形有一个填充比例和一个颜色比例。您可以合并Grob，但这意味着在
网格
/
Grob
层工作。这里有一些提示：我认为它远没有那么复杂。应该有某种方法不会完全改变现有的代码，也就是你在本地计算机上发布的链接。我们无法访问它。我如何在这里发布我在R上得到的绘图？@U.Cremona这并不简单，除非您可以为每个填充级别创建一个大因子，然后使用
scale\U fill\U manual
，但这样您就有了一个大而无用的图例。每个图表一个填充/颜色/大小/等比例。时期