Как добавить отдельные панели ошибок в ggplot для каждого элемента на оси X?

Question

У меня есть этот график:

, который показывает рост мужчин и женщин вместе с доверительным интервалом 95% для среднего значения. Есть проблема в том, что я не могу показать один доверительный интервал для мужчин и один для женщин. Обе панели ошибок отображаются на обеих метках на оси x. Не могли бы вы помочь мне настроить мой код, чтобы он отображал женский CI (синим цветом) в диапазоне для женщин и мужской CI (красным цветом) для диапазона для мужчин?

Вот мой код сюжета:

gSE <- ggplot(data = sample.Height, aes(x=sample, y=heightIn)) +
  geom_point() + 
  geom_errorbar(aes(ymin=heightFemale.sampleMean-0.7970899, ymax=heightFemale.sampleMean+0.7970899), colour="blue", width=.1) +
  geom_errorbar(aes(ymin=heightMale.sampleMean-1.0322975, ymax=heightMale.sampleMean+1.0322975), colour="red", width=.1) +
  labs(title = "Male and Female Heights", x = "Gender", y = "Heights in Inches") +
  theme_light()
gSE

Thank you,

Answer 1

Сначала создадим простую таблицу вашего среднего значения и SE для использования с geom_errorbar. Тогда вам нужно только один раз включить geom_errorbar в ваш ggplot.

. Вот пример с подготовленными данными:

library(tidyverse)

sample.Stats <- sample.Height %>%
  group_by(sample) %>%
  summarise_all(funs(mean, se = sd(.)/sqrt(n())))

gSE <- ggplot() +
  geom_point(data = sample.Height, aes(x=sample, y=heightIn)) + 
  geom_errorbar(data=sample.Stats, aes(x=sample, ymin=mean-se, ymax=mean+se, color=sample), width=.1) +
  labs(title = "Male and Female Heights", x = "Gender", y = "Heights in Inches") +
  theme_light()

gSE

Сюжет

Данные

sample.Height <- data.frame(
  sample = c("Female", "Female", "Female", "Male", "Male", "Male"),
  heightIn = c(61, 60, 59, 66, 72, 70)
)