R - Hinzufügen einer Legende zu ggmap (ggplot2) unter Verwendung von annotate

Zu Ihrer Information: Ich bin ziemlich neu in ggplot2 und ggmap, also entschuldige ich mich für den schlechten Code, aber es ist die einzige Möglichkeit, Gruppen von Punkten zu zeichnen, bei denen jede Gruppe ihre eigene Farbe hat. Auch mein os ist Ubuntu.

Ich versuche, eine Legende zu einem ggmap-Objekt hinzuzufügen, insbesondere eine Legende mit einem kontinuierlichen Farbverlauf, der die Farben wechselt. Irgendein Rat? Ich habe das Legendenattribut in ggmap ausprobiert, aber es scheint nicht zu funktionieren. Unten ist, was ich bisher habe.

syd = get_map(location = center, zoom = zoom, maptype = type,color = "bw")

(SYDmap = ggmap(syd, extent = "panel",legend="right")+ annotate('point',x=lng[[1]],xend=max(lng[[1]]),y=lat[[1]],yend=max(lat[[1]]),colour=colorval[1],cex=cexval,pch=pchval))

for(i in 2:(topnum - 1))
  SYDmap<- SYDmap + annotate('point',x=lng[[i]],xend=max(lng[[i]]),y=lat[[i]],yend=max(lat[[i]]),colour=colorval[i],cex=cexval,pch=pchval)

i=topnum;  (SYDmap <-   SYDmap + annotate('point',x=lng[[i]],xend=max(lng[[i]]),y=lat[[i]],yend=max(lat[[i]]),colour=colorval[i],cex=cexval,pch=pchval)) + guides(fill = "colourbar")

Antworten auf die Frage(1)

Ihre Antwort auf die Frage