Добавление треугольников на блокпост с использованием R и ggplot2

Question

Я строю простой коробочный участок (без усов) с кодом R ниже. Мне нужно аннотировать или добавить треугольники к этому сюжету, но я не уверен, что лучший подход для достижения этой цели. Вот изображение того, как должен выглядеть сюжет. Любая помощь с благодарностью, спасибо!

library(ggplot2)
p <- ggplot(mtcars, aes(factor(cyl), mpg, color=factor(cyl)))
p <- p + geom_boxplot(outlier.size = 0, coef = 0)

p + coord_flip() + 
  scale_color_manual(values=c("#6498AD", "#BA401A", "#b1bd21", "#E9B207")) +  
  theme(axis.line=element_blank(), 
        axis.text.x=element_blank(),
        axis.text.y=element_blank(), 
        axis.ticks=element_blank(),
        axis.title.x=element_blank(), 
        axis.title.y=element_blank(), 
        legend.position="none",
        panel.background=element_blank(), 
        panel.border=element_blank(), 
        panel.grid.major=element_blank(),
        panel.grid.minor=element_blank(), 
        plot.background=element_blank())