如何在条形图中为错误栏添加图例条目？

问题描述

我想知道是否可以在 R 中执行以下操作：

我正在做一个闪避条形图并使用几何误差条。我目前正在使用以下示例：

df <- read.table(
text = 
"group metric somevalue
T1 epsilon 63
T2 epsilon 91
T1 kappa 19
T2 kappa -3
T1 zulu  -5
T2 zulu 8",header=TRUE)

str(df)

df$metric <- factor(df$metric,levels = c("kappa","zulu","epsilon"))

df2 <- read.table(
text = 
"group metric deviation
T1 epsilon 20
T2 epsilon 10
T1 kappa 10
T2 kappa 20
T1 zulu  25
T2 zulu 10",header=TRUE)

lower <- df$somevalue - df2$deviation/2
head(lower)
upper <- df$somevalue + df2$deviation/2
head(upper)

thePlot <- ggplot(data=df,aes(x=metric,y=somevalue,fill=group)) + geom_bar(position = 'dodge',stat='identity') + coord_flip() + theme(panel.background = element_blank(),legend.position="bottom",legend.text=element_text(size=14),legend.title = element_blank(),axis.title.x = element_blank(),axis.title.y = element_blank())+ 
      scale_fill_manual(values=c("#CC6600","steelblue")) + ylim(-20,100) + geom_errorbar(aes(x = metric,ymin=lower,ymax=upper),position=position_dodge(1),width = 0.2,size = 1,color = "black") 
thePlot

我想在颜色标签旁边添加一个标签，但也要显示线元素（几何错误）。最终结果应如下所示（在图例中显示一条线和 std 错误标签）：

提前致谢！

解决方法

不是将误差条的颜色设置为 WELCOME 美学上的参数映射，它会自动为您提供图例条目，并通过 color 设置颜色和/或标签：>

scale_color_manual