Проблемы со stat_summary по группам

Моя конечная цель здесь - stat_summaryдобавить итоговые строки к сюжету, используя существующее членство в группах. У меня проблемы с нанесением линий на график, и, хотя я понимаю проблему, я не могу понять, как ее избежать.

Пример:

library(ggplot2)
df <- data.frame(low=c(20,24,18,16), 
                 mid=c(60,61,48,45), 
                 high=c(80,75,81,83), 
                 category=factor(seq(1:4)), 
                 membership=factor(c(1,1,2,2)))

p <- ggplot(df, aes(x=category, y=mid)) +
  geom_linerange(aes(ymin=low, ymax=high)) +
  geom_point(shape=95, size=8)
p

Это дает график каждой из четырех категорий:

Первый шаг - использовать stat_summaryдля добавления строки, показывающей средства ymin, yи ymax, например, так:

p + 
  stat_summary(data=df, aes(x="Aggregate", ymin=mean(low), y=mean(mid), ymax=mean(high)), 
               fun.data="mean", geom="linerange", inherit.aes=F) +
  stat_summary(data=df, aes(x="Aggregate", y=mid), fun.y="mean", geom="point", 
               size=8, shape=95)

Но когда я пытаюсь использовать членство dfдля создания средств внутри групп, я сталкиваюсь с проблемами linerange(хотя с pointграфиками все в порядке).

p + 
  stat_summary(data=df, aes(x="Aggregates", ymin=low, y=mid, ymax=high, group=membership), 
               fun.ymin="mean", fun.y="mean", fun.ymax="mean", geom="linerange", 
               inherit.aes=F, position_dodge(0.5))
  stat_summary(data=df, aes(x="Aggregates", y=mid, group=membership), 
               fun.y="mean", geom="point", size=8, shape=95, position_dodge(0.5))

Я знаю из ggplot_build(p)этого ymin= y= ymax, поэтому на графике ничего не отображается. Однако, если я использую fun.dataвместо fun.ymin/, fun.ymaxя получаю сообщения об отсутствии требований yminи ymaxэстетики.

$data[[3]]
      x group ymin    y ymax 
1 5.125     2 46.5 46.5 46.5 
2 4.875     1 60.5 60.5 60.5 

Любая помощь будет оценена по достоинству!