средняя линия группы ggplot

Question

Попытка добавить среднюю линию для каждой группы на гистограмму. Получать одну и ту же ошибку каждый раз:

Error in FUN(X[[i]], ...) : object 'Count' not found


ggplot(df_melted2  %>% 
         filter(EDNAME =='Blanchardstown-Corduff'), aes(Resource, Count, fill=Resource)) + 
  geom_bar(stat="identity", position = position_dodge()) +
  facet_wrap(~ EDNAME, scales = "free") +
  coord_flip() +
  theme(panel.background = element_blank())  +
  geom_point(data = df_melted2 %>% 
               group_by(Resource) %>% 
               summarise(Mean_Resource = mean(Count))) 

Он отлично работает без попытки добавить среднюю строку:

ggplot(df_melted2  %>% 
         filter(EDNAME =='Blanchardstown-Corduff'), aes(Resource, Count, fill=Resource)) + 
  geom_bar(stat="identity", position = position_dodge()) +
  facet_wrap(~ EDNAME, scales = "free") +
  coord_flip() +
  theme(panel.background = element_blank()) 

Почему он не распознает столбец «Счетчик» и как я получить общие групповые средние линии на диаграмме?

введите описание изображения здесь

Answer 1

Серьезный недосмотр с моей стороны. Обобщенный столбец должен иметь то же имя, что и исходный, и я дал ему новое имя.

ggplot(df_melted2  %>% 
         filter(EDNAME =='Blanchardstown-Corduff'), aes(Resource, Count, fill=Resource)) + 
  geom_bar(stat="identity", position = position_dodge()) +
  facet_wrap(~ EDNAME, scales = "free") +
  coord_flip() +
  theme(panel.background = element_blank())  +
  geom_point(data = df_melted2 %>% 
               group_by(Resource) %>% 
               summarise(***Count*** = mean(Count)))