Маркировка отдельных ящиков в боксе ggplot

Question

Я добавил значимые буквы к этому графику в powerpoint. Я хотел бы добавить буквы значимости над каждым блоком в R. Могу ли я изменить свой код ggplot, чтобы включить буквы над каждым блоком?

код:

p1 <- ggplot(beta_data, 
             aes(x=reorder(interaction, distwu,FUN = median),
                            y=distwu, fill=interaction)) +
  geom_boxplot()+ 
  theme(legend.position="none", axis.text.x = element_text(angle = 45, hjust = 1))  +
  labs(x="Treatment interaction", y = "Distance to centroid") + 
  ylim(0,1.0)

Answer 1

Сделайте жизнь проще с автоматическим размещением stat_summary, Вы не поделились данными, поэтому вот пример:

ggplot(mtcars, aes(factor(cyl), mpg)) +
  geom_boxplot() +
  stat_summary(geom = 'text', label = letters[1:3], fun.y = max, vjust = -1)