Как построить среднее геометрическое с доверительными интервалами в ggplot2 R?
У меня есть набор данных, для которого я хочу вычислить среднее геометрическое и начальный доверительный интервал. Данные имеют "статус" и "индекс" в диапазоне от 0 до 1.
Я хочу знать:
(а) есть ли вариант, когда fun.y = mean может быть заменен определенной геометрической средней функцией в ggplot2?
(б) Как построить соответствующие доверительные интервалы, учитывая это среднее значение, используя ggplot?
Вот код, который я пытался вычислить.
status <- c("low","low","low","low","high","high","high","high")
index <- c(0.6,0.1,0.6,0.1,0.35,0.35,0.35, 0.35)
df <- data.frame(status, index)
pd <- position_dodge(0.82)
ggplot(df, aes(x=status, y=index, color = status)) + ylim(0,1) + theme_bw() + geom_point(position = pd, size = 1.5)+ stat_summary(aes(color = status),geom="errorbar", fun.data=mean_cl_boot, width = 0.2, size = 0.8, position = pd)+
stat_summary(aes(group = status),fun.y=mean, position = pd, geom = "point", size = 4 )