Legende zu geom_segement hinzufügen

Question

Wie füge ich einen Titel zum geom_segement-Diagramm hinzu, das den Titel "Arbeitsauftrag" hat und unterhalb des Titels eine rote Linie mit dem Text "Typ 1" und eine blaue Linie mit dem Text "Typ" hat 2 "?

Vielen Dank.

df = data.frame(time1=as.POSIXct(c("2012-04-04 09:23:33","2012-04-04 11:33:55")), 
        time2=as.POSIXct(c("2012-04-04 10:05:04","2012-04-04 13:42:24")), 
        y1=c(1,2), 
        y2=c(1,2), 
        color = c("red","blue")) 
ggplot(df) + geom_segment(aes(x = time1, y = y1, xend = time2, yend = y2), 
      colour= df$color, size = 4, data = df) 

Answer 1

Ordnen Sie die Gruppenvariable zu color in aes und legen Sie den Namen, Werte, Pausen und Etiketten in scale_color_manual.

ggplot(df) + 
    geom_segment(aes(x = time1, y = y1, xend = time2, yend = y2, color = color), 
       size = 4, data = df) + 
    scale_color_manual(name = "work order", values = c("blue", "red"), 
        breaks = c("red", "blue"), labels = c("Type 1", "Type 2")) 

Sie könnten auch scale_color_identity verwenden, die die Einstellung der Werte erlaubt das Überspringen aber dann guide = "legend" wie es standardmäßig "none" umfassen müssen.

ggplot(df) + 
    geom_segment(aes(x = time1, y = y1, xend = time2, yend = y2, color = color), 
       size = 4, data = df) + 
    scale_color_identity(name = "work order", guide = "legend", 
        breaks = c("red", "blue"), labels = c("Type 1", "Type 2"))