Добавление стандартного отклонения в barplot () в R

В R у меня есть следующий фрейм данных:

  Group mean  sd
1     1   21.2  5.202563
2     2   28.4  6.113737
3     3   21.8  2.529822

Я хотел бы создать гистограмму со средствами и стандартными отклонениями в виде стрелок поверх средств, как в этом примере: введите описание изображения здесь

Это код, который у меня есть на данный момент:

barCenters <- barplot(height = Ymeans12stdev$mean,main = "Average Time per Group",
                  xlab = "Group", ylab = "Time")

Однако мне не удается добавить столбцы стандартного отклонения. Кто-нибудь может это решить? :)


r bar-chart standard-deviation
person Afke    schedule 30.03.2018    source источник
comment
Возможный дубликат сгруппированного штрихового графика в R с полосами ошибок   -  person nghauran    schedule 30.03.2018

Ответы (1)


arrow_upward
4
arrow_downward

с базой R вы можете использовать функциональные стрелки ():

barCenters <- barplot(height = Ymeans12stdev$mean,
                      main = "Average Time per Group", xlab = "Group", ylab = "Time")
arrows(barCenters, Ymeans12stdev$mean-Ymeans12stdev$sd,
       barCenters, Ymeans12stdev$mean+Ymeans12stdev$sd,angle=90,code=3)

аргумент angle=90 указывает рисование «плоских» стрелок (т. е. горизонтальную полосу поверх вертикальной), а аргумент code=3 указывает рисование стрелок на обоих концах вертикальной линии. Вы можете добавить аргумент length для увеличения / уменьшения размера горизонтальных полос стрелок.

person xraynaud    schedule 30.03.2018