Custom Legend in ggplot für R

Question

Datenrahmen:

df <- data.frame('X' = c('a','a','b','b','c','c','d','d'), 'legend' = c('a','b','a','b','c','d','c','d'), 'Y' = c(100,50,50,100,150,100,150,100)) 

Graph:

ggplot(data=df, aes(x=X, y=Y, group=legend, colour=legend)) + 
geom_line(size = 1) + 
geom_point(size = 3) + 
scale_color_manual(values=c("blue", "red","blue", "red"), labels = c('blue','red')) + 
scale_x_discrete(labels = c('Group 1','Group 1','Group 2','Group 2')) 

Ausgang:

http://imgur.com/a/U62PU

Wenn ich dies tun, die Legende 'blauen' liest " rot ',' NA ',' NA '. Wie entferne ich die NAs von der Legende, so dass es nur "blau, rot" sagt?

Answer 1

Sie könnten immer die breaks in Ihnen scale_color_manual setzen. So etwas sollte funktionieren:

ggplot(data=df, aes(x=X, y=Y, group=legend, colour=legend)) + 
    geom_line(size = 1) + 
    geom_point(size = 3) + 
    scale_color_manual(values=c("blue", "red","blue", "red"), 
        labels = c('blue','red'), breaks = c("a", "b")) + #Set the breaks here 
    scale_x_discrete(labels = c('Group 1','Group 1','Group 2','Group 2')) 

Wir halten nur die ersten beiden Gruppen, da wir nur relabel haben wollen zwei Werte in der Legende red und blue