Удалить errorbars из легенды (ggplot2)

Question

У меня есть участок нарисованный с помощью следующей команды:

ggplot(data=test_mod, aes(x=realDist , y=1-value, color=as.factor(foo) , size=as.factor(foo))) + 
    stat_summary(fun.y=mean, geom="line", alpha=0.85) + 
    stat_summary(fun.y=mean, geom="point", pch=21, fill="white", size=2) + 
    #stat_summary(fun.data=mean_cl_normal, geom="errorbar", width=8, size = 0.5) + 
    theme_bw(base_size = 15, base_family = "Palatino") + 
    theme(legend.key = element_blank()) 

И я получаю эту легенду:

Однако, когда я раскомментировать строку 3 от команды:

ggplot(data=test_mod, aes(x=realDist , y=1-value, color=as.factor(foo) , size=as.factor(foo))) + 
    stat_summary(fun.y=mean, geom="line", alpha=0.85) + 
    stat_summary(fun.y=mean, geom="point", pch=21, fill="white", size=2) + 
    stat_summary(fun.data=mean_cl_normal, geom="errorbar", width=8, size = 0.5) + 
    theme_bw(base_size = 15, base_family = "Palatino") + 
    theme(legend.key = element_blank()) 

Я получаю немного другую легенду:

Обратите внимание на крошечные линии, которые идут через точки после того, как я начал использовать errorbar для моего участка.

Как я могу избавиться от этих крошечных линий, появляющихся в моей легенде?

Answer 1

Вы можете отключить легенду для этого элемента с помощью show_guide=FALSE.show.legend=FALSE.

ggplot(data=test_mod, aes(x=realDist , y=1-value, color=as.factor(foo) , size=as.factor(foo))) + 
    stat_summary(fun.y=mean, geom="line", alpha=0.85) + 
    stat_summary(fun.y=mean, geom="point", pch=21, fill="white", size=2) + 
    stat_summary(fun.data=mean_cl_normal, geom="errorbar", width=8, size = 0.5, show.legend=FALSE) + 
    theme_bw(base_size = 15, base_family = "Palatino") + 
    theme(legend.key = element_blank()) 

Answer 2

Вы можете просто переключить положение строки кода ошибки, которая будет находиться над строкой «точка» кода. Таким образом, точки будут покрывать крошечные линии, а не наоборот.

ggplot(data=test_mod, aes(x=realDist , y=1-value, color=as.factor(foo) , size=as.factor(foo))) + 
    stat_summary(fun.y=mean, geom="line", alpha=0.85) + 
    stat_summary(fun.data=mean_cl_normal, geom="errorbar", width=8, size = 0.5) + 
    stat_summary(fun.y=mean, geom="point", pch=21, fill="white", size=2) + 
    theme_bw(base_size = 15, base_family = "Palatino") + 
    theme(legend.key = element_blank())