如何解决如何在条形图中为错误栏添加图例条目?
我想知道是否可以在 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 错误标签):
提前致谢!
解决方法
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。