Среднее значение сгруппированного столбчатого графика

#r #ggplot2

#r #ggplot2

Вопрос:

Я хотел бы создать столбчатый график и добавить среднюю линию к каждой группе. Поскольку значения отрицательные, я изменил ось Y на противоположную. Столбчатый график успешно представлен с обратной осью Y.

Затем я добавил среднюю строку каждой группы (типа). К сожалению, средняя линия не рисуется по обратной оси Y. Средняя линия имеет неправильный знак, он положительный, но должен быть отрицательным.

Может ли кто-нибудь помочь мне и перенести среднюю линию в верхнюю половину оси Y, на столбчатый график?

Смотрите изображение текущего столбчатого графика со средним значением

Это используемый код до сих пор:

 library(scales)
p <- ggplot(data, aes(x=Type,y=Value, fill=Iteration)) 
  geom_bar(stat="identity", position = "dodge") 
  stat_summary(fun = mean, geom = "errorbar", 
               aes(ymax = ..y.., ymin = ..y.., group = Type),
               width = 1, linetype = "solid", color = "red") 
  scale_y_continuous(trans = "reverse")
  

Ответ №1:

Вы можете просто добавить — впереди, вот так:

 library(scales)
p <- ggplot(data, aes(x=Type,y=Value, fill=Iteration)) 
  geom_bar(stat="identity", position = "dodge") 
  stat_summary(fun = mean, geom = "errorbar", 
               aes(ymax = - ..y.., ymin = - ..y.., group = Type),
               width = 1, linetype = "solid", color = "red") 
  scale_y_continuous(trans = "reverse")