两种传说中ggmap

Question

我跑这个代码：

columbus <- get_map('columbus', zoom = 11) 

ColumbusMap <- ggmap(columbus, extent = "device", legend = "topleft") 
Warning message: 
`panel.margin` is deprecated. Please use `panel.spacing` property instead 

ColumbusMap + 
    stat_density2d(aes(x = longitude, y = latitude, 
        fill = ..level.., 
        alpha = ..level..), 
       size = 2, bins = 4, data=all[all$year==2006,], geom = "polygon") + 
    scale_fill_gradient(low="red", high="royalblue") 

我得到两个传说，一个灰色的和颜色之一，而我只想要一个颜色。

Answer 1

尝试增加guides(alpha=FALSE)到您的代码的结尾，就像这样：

ColumbusMap + 
    stat_density2d(aes(x = longitude, y = latitude, 
        fill = ..level.., 
        alpha = ..level..), 
       size = 2, bins = 4, data=all[all$year==2006,], geom = "polygon") + 
    scale_fill_gradient(low="red", high="royalblue") + 
    guides(alpha=FALSE) 

任何时候你在里面AES加填充，alpha或颜色（），你会得到一个传奇。幸运的是，如图所示，通过使用guides（）可以很容易地删除它们。