我正在尝试在R中创建一个堆叠的条形图,并带有误差条,以表示我想要预定义而不是计算的值,但是每个条都有一个不同的值。
例如,如果我的数据框是:
x<-data.frame(
Period = c("B1","D1a"),
Sample = c("Glucose","Glucose"),
Mi = c(2,3),
M0 = c(4,6)
)
我可以使用以下代码绘制所需的条形图:
mx <- melt(x, id.vars=1:2)
ggplot(mx, aes(x=Period, y=value, fill=variable), xLabels=NA) +
geom_bar(stat="identity") +
facet_grid(~Sample) +
scale_fill_manual(values = c("grey69","black")) +
theme_bw() +
xlab("") +
ylab ("")
那么,如果我对每一个的置信区间为B1,Mi = 0.5,B1,M0 = 0.2,D1a,Mi = 0.1,D1a,M0 = 0.2,那么如何为每一个添加误差线
如何在条形图的每个部分上制作误差线?
谢谢
首先,将上限和下限添加到mx
数据框:
library(dplyr)
mx <- mx %>% group_by(Period) %>%
mutate(pos = cumsum(value)) %>%
ungroup() %>%
mutate(ci = c(.5, .1, .2, .2),
upper = pos + ci/2,
lower = pos - ci/2)
然后,将a添加geom_errorbar
到您的绘图中:
ggplot(mx, aes(x=Period, y=value, fill=variable), xLabels=NA) +
geom_bar(stat="identity") +
geom_errorbar(aes(ymin = lower, ymax = upper), width = .2, col = "red") +
facet_grid(~Sample) +
scale_fill_manual(values = c("grey69","black")) +
theme_bw() +
xlab("") +
ylab ("")
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句