Geom Punkt Visualisierung Problem in R

Question

Dies ist eine Frage im Zusammenhang mit der vorherigen Frage (Anpassung legend.title, legende.text und Legende Farbe in ggplot2). Ich habe Probleme, die Farbe der Geom-Punkte (Run and Walk Segmentierung) im Plot zu ändern. Kann mir bitte jemand dabei helfen? Gibt es eine andere Möglichkeit, dass ich bessere Visualisierungen für die Segmentierung haben kann? Dank

er<- ggmap(sq_map2) + 
    geom_point(data = sisquoc, size = 8, aes(fill = Segmentation)) + 
    geom_line(data = sisquoc, size = 3, aes(color =SpeedMeterPerSecond)) + 
    geom_text(data = sisquoc, aes(label = paste(" ", 
              as.character(Location_ids), 
    sep="")), 
      angle = 60, hjust = 0, color = "sienna4",size = 6) 

    gg<- er + labs(x ="Longitude", y = "Latitude") + 
    theme(axis.title = element_text(size=20), 
     panel.background = element_rect(fill = "white",size = 0.5, linetype = 
             "dotted"), 
     panel.grid.major = element_line(size = 0.5, linetype = 
    'dotted',colour 
             = "black"), 
     panel.grid.minor = element_line(size = 0.5, linetype = 
    'dotted',colour 
             = "black"), 
     panel.border = element_rect(colour = "black", fill=NA, size=0.5), 
     axis.text.y = element_text(size=18), 
     axis.text.x = element_text(size=18)) 

    gg + theme(legend.position="right", 
      legend.title = element_text(colour="Black", size=18), 
      legend.text = element_text(colour="black", size = 15), 
      legend.background = element_rect(fill="grey90", 
              size=0.5, linetype="solid", 
              colour ="black")) + 
    scale_color_continuous(name="Speed (m/s)\n") 

Answer 1

Ich nehme an, dass Sie die Farbe der Punkte in der Handlung ändern möchten. versuchen + scale_fill_manual(values = c("Run" = "black","Walk" = "grey"))

Answer 2

Für geom_point zur Verwendung von aes(fill=...) Sie machen Formen auswählen, die Werte zusätzlich zu Farbwerten füllen nehmen, sonst geom_point nimmt aes(colour=...). Füllen Sie das entsprechende aes hier, da Sie bereits aes(colour=...) für geom_line verwenden.

Siehe mögliche Formen 21 bis 25, die here

Try Werte annehmen füllen:

ggmap(sq_map2) + 
    geom_point(data = sisquoc, size = 8, aes(fill = Segmentation, shape = Segmentation) + 
    scale_shape_manual(values=c(21, 24)) 

Sie weitere Werte füllen definieren können beispielsweise unter Verwendung scale_fill_manual(values=c("red", "blue"))