自传说ggplot的R

Question

数据框：

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

图：

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

输出：

http://imgur.com/a/U62PU

当我做这个传说写着 '蓝色'，“红色'，'不适用'，'不适用'。如何从图例中删除NAs，因此它只能说'蓝色，红色'？

Answer 1

您可以随时在您内部设置breaksscale_color_manual。像这样的东西应该工作：

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

我们只保留了前两个组，因为我们要重新标记，只在传说red 2个价值观和blue