r - 将Tukey的重要性字母添加到箱线图中

我正在尝试在yaxis上创建一个带有计数(MedMean)的ggplot的箱形图，并在xaxis上创建各种独立样本(Site_Name)。

ggplot(medianlist,aes(x=reorder(Site_Name,MedMean,FUN=median),y=MedMean))+
geom_boxplot()

我想在框中添加Tukey的重要字母。
谢谢

最佳答案

使用agricolae::HSD.test你可以做

library(dplyr)
library(agricolae)
library(ggplot2)
iris.summarized = iris %>% group_by(Species) %>% summarize(Max.Petal.Length=max(Petal.Length))
hsd=HSD.test(aov(Petal.Length~Species,data=iris), "Species", group=T)
ggplot(iris,aes(x=reorder(Species,Petal.Length,FUN = median),y=Petal.Length))+geom_boxplot()+geom_text(data=iris.summarized,aes(x=Species,y=0.2+Max.Petal.Length,label=hsd$groups$groups),vjust=0)

关于r - 将Tukey的重要性字母添加到箱线图中，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/48625620/