ggmap上的ggplot，颜色点依赖于值

Question

我的数据集表示蜂箱的位置(lat，long)，以及该位置中有多少蜂箱对寄生虫呈阳性。

在地图上绘制位置很好，但我想更改有寄生虫存在的点的颜色，例如标题‘积极’>0

我尝试过以下代码，但我不能将+添加到地图上，它告诉我不能将0添加到图中

myMap + ggplot(honeybee, aes(x= Long, y= Lat)) + 
  geom_point(aes(colour = cut(Positive, c(-1, 0, 5))), size = 1) +
  scale_color_manual( values = c("red", "black"), 
                     name = "Parasite", labels = c("Absent", "Present"))

从本质上讲，我希望上面的代码适合ggmap

Answer 1

我不确定您的地图是从哪里获得的，因为您没有包含数据，但这里是如何使用ggmap来实现的。不需要再次调用ggplot。只需将honeybee数据源直接包含在图层中即可

library(ggmap)
m <- get_map("New York City", zoom=14,maptype="toner",source="stamen")
myMap <- ggmap(m)
honeybee <- data.frame(Lat=runif(20,min=40.69, max=40.73),
                       Long=runif(20, min=-74.03, max=-73.98),
                       Positive = rnorm(20)) 


myMap + 
  geom_point(data=honeybee, 
             mapping=aes(x= Long, y= Lat, colour = Positive>0), 
             size = 5) +
  scale_color_manual( values = c("red", "yellow"), 
                      name = "Parasite", 
                      labels = c("Absent", "Present"))

它会产生

​