R: agregar leyenda a ggmap (ggplot2) al usar anotar

FYI: Soy bastante nuevo en ggplot2 y ggmap, así que me disculpo por el código descuidado, pero es la única forma en que he podido trazar conjuntos de grupos de puntos donde cada grupo tiene su propio color. También mi sistema operativo es Ubuntu.

Estoy intentando agregar una leyenda a un objeto ggmap y, en particular, a una leyenda con un degradado continuo que hace la transición de los colores. ¿Algún consejo? He probado el atributo de leyenda en ggmap pero no parece estar funcionando. A continuación es lo que tengo hasta ahora.

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")

Respuestas a la pregunta(1)

Su respuesta a la pregunta