使用ggplot2制作带有误差条的堆积条形图

Question

我将尝试使用ggplot2创建一个带误差条的堆积条形图，类似于下面的图表： 我已经使用了以下代码：

df <- data.frame(substrate = gl(6, 2, 12, labels=letters[1:6]),
                 depth = gl(2, 1, 12, labels=c("surf", "deep")),
                 mean = 10 * runif(12),
                 err = runif(12))
p <- ggplot(df, aes(x=depth, y=mean, fill=substrate)) + geom_bar(stat="identity") + coord_flip()
p + geom_errorbar(aes(x=depth, ymin=mean-err, ymax=mean+err))

这给了我这个： 看起来误差条的中心在平均值的位置，而不是在之前底物的平均值加上当前底物的平均值的位置。也就是说，误差条a的中心应该在a的平均值处，误差条b的中心应该在a的平均值加上b的平均值处，依此类推。

有没有人知道如何在ggplot2中实现这一点？

*我意识到有很好的理论原因不要以这种方式显示数据 - 但我们并不总能决定如何呈现我们的数据！

- Drew Steen

Answer 1

我想你可以使用geom_segment来完成这个任务，但是你的例子只有一个方向的条形图，这似乎更为智能。所以我用geom_segment拼凑了一些东西：

df <- data.frame(substrate = gl(6, 2, 12, labels=letters[1:6]),
                 depth = gl(2, 1, 12, labels=c("surf", "deep")),
                 mean = 10 * runif(12),
                 err = runif(12))
df <- ddply(df,.(depth),transform,ystart = cumsum(mean),yend = cumsum(mean) + err)
p <- ggplot(df, aes(x=depth, y=mean, fill=substrate)) + 
        geom_bar(stat="identity")
p + geom_segment(aes(xend = depth,y = ystart,yend = yend)) + 
        geom_point(aes(x = depth,y = yend),shape = "|",show_guide = FALSE) +
        coord_flip()

- joran

---

单向条更好 - 它们减少了条之间重叠的机会。 - Drew Steen