geom_segementに凡例を追加

Question

「仕事の順序」というタイトルを持つ下のgeom_segementプロットにタイトルを追加するには、タイトルの下に「タイプ1」というテキストの赤い線と「タイプ」のテキストを含む青い線が表示されます2 "？

ありがとうございます。

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

aesでcolorにグループ化変数の地図と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")) 

また、値の設定をスキップできますが、あなたはその後、"none"がデフォルトとしてguide = "legend"を含める必要がある、scale_color_identityを使用することができます。

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