Выделите одну полосу и пометьте каждую цифрами при использовании заливки

Question

Я пытаюсь создать график, где у меня есть х, у и заполнить. Я также хочу, чтобы самый большой бар выделялся больше, чем другие. Кроме того, я хотел бы обозначить каждый бар их средним доходом. Однако я сталкиваюсь с парой проблем.

код:

fruit <- df %>%
 filter(flavor == "FRUIT") %>%
   group_by(Promo_ad_both, Quarter) %>%
   summarise(avg_rev = mean(revenue)) %>%
ggplot(aes(x = Quarter, y = avg_rev, fill = reorder(Promo_ad_both, avg_rev))) +
geom_bar(stat = "identity", position = "dodge") +
ggtitle("Fruit Average Revenue by Quarter",
      sub = "Fourth Quarter with a small ad and Promo is best performer") +
xlab("Quarterly Revenue by Promo/Ad group") +
ylab("Average Revenue") +
guides(fill = guide_legend(title = "Promo and Ad type")) +
geom_text(aes(label= round(avg_rev, 0)), vjust=-0.2) +
theme_classic() +
coord_flip()

Вот что получается:

Я хочу, чтобы фиолетовый бар в 4-м квартале выделялся больше. Есть ли у кого-нибудь предложение пойти по этому поводу?

Спасибо!