Как добавить среднюю (или срединную) линию в geom_bar?

Question

Мне нужно добавить среднее или медиану к гистограмме, не знаю, почему она не работает:

      data_GP %>%
      group_by(Customer, Year, Customer_category) %>%
      dplyr::summarise(GP_value = mean(GP),
                       REV_value = mean(REV),
                       GP_percent = mean(GP)/mean(REV)) %>%

      filter(., GP_percent > -1, Customer_category == "regular", Year == 2019) %>%
      ggplot(.,aes(x = Customer, y = GP_value)) +
      stat_summary(fun.y=mean, geom="line") +
      geom_bar(alpha = 0.5, stat = "identity")

Итак, в основном я хотел бы показать одну строку на geom_bar, показывающую среднее (или медиана) значение для всех наблюдений. Ошибка появляется и уходит:

geom_path: каждая группа состоит только из одного наблюдения. Нужно ли настроить группу эстети c?