小编Dee*_*eep的帖子

我想在我的 geom_bar 图上绘制误差线。我知道您可以调整 aes(ymax, ymin) 以仅显示上条或下条。

但是，我有一些负平均值和正平均值，我想分别显示误差线。

这里有一些示例代码和数据可以玩

library(ggplot)    
myData <- aggregate(mtcars$mpg,
                        by = list(cyl = mtcars$cyl, gears = mtcars$gear),
                        FUN = function(x) c(mean = mean(x), sd = sd(x),
                                            n = length(x)))
    myData <- do.call(data.frame, myData)
    myData$se <- myData$x.sd / sqrt(myData$x.n)

colnames(myData) <- c("cyl", "gears", "mean", "sd", "n", "se")
myData$names <- c(paste(myData$cyl, "cyl /",
                        myData$gears, " gear"))

myData$sign <- c(1, -1, 1, 1, -1, 1, -1, 1)

myDataN <- mutate(myData, mean_new = mean*sign, se_new=se+30)
dodge <- position_dodge(width = 0.9)
limits …