在ggplot boxplot中标记单个框

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)