geom_errorbar верхних для положительного среднего и ниже среднего для отрицательного

Question

Я хотел бы построить линии погрешности на моем 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 <- aes(
       ymax = myDataN$mean_new + myDataN$se_new, 
       ymin = myDataN$mean_new - myDataN$se_new) 
        #ymax = myDataN$mean_new, #for upper 
        #ymin = myDataN$mean_new) #for lower 


p <- ggplot(data = myDataN, aes(x = names, y = mean_new, fill = names)) 

p + geom_bar(stat = "identity", position = dodge) + 
    geom_errorbar(limits, position = dodge, width = 0.25) + 
    theme(axis.text.x=element_blank(), axis.ticks.x=element_blank(), 
     axis.title.x=element_blank()) 

Благодарности -deep

Answer 1

Вы можете повторно определить границы так, что они являются условными на mean_new (будь то положительные или отрицательный):

limits <- aes(
    ymax = myDataN$mean_new + (myDataN$mean_new > 0)*myDataN$se_new, 
    ymin = myDataN$mean_new - (myDataN$mean_new < 0)*myDataN$se_new) 

Учитывая приведенное выше определение, вы получите следующий сюжет:

Может быть полезно удалить усов, которые касаются стержня. Однако я не могу понять, как это сделать в данный момент.