ggplot2 盒图+显著性线 compire <- list(c('1','2'),c('1','4')) ggplot(info,aes(x=cluster,y=value))+ stat_boxplot(geom = 'errorbar',width=0.2,lwd=2)+ geom_boxplot(lwd=1)+ geom_signif(comparisons = compire,test = t.test,step_increase = 0.1,map_signif_level = T