在ggplot条形图中的每个x轴内的多个条之间添加显着性星号

问题描述

我正在尝试在ggplot条形图中指出与我的每个x轴标签中的控件相比有哪些明显不同的处理方法。 我将分类法作为x轴,每个分类中有四个不同的条形,将每种分类法的实验处理和生长指示为y轴。

我附上了使用提供的代码(从代码中消除了误差线)以及一些虚拟数据(其中“ Y”表示控制的重要性)制作的示例图的屏幕截图(如果更容易,请随意编号)

我曾经尝试使用geom_signif,但似乎无法在同一x轴列中添加多个比较结果,从而表明仅列之间存在差异。

我还尝试用每个星号的值绘制geom_point,但无法将星号与其各自的处理条对齐。

任何帮助将不胜感激。

ggplot(Experiment,aes(x=Taxa,y=Growth,fill=Treatment)) + 
  geom_bar(stat="identity",size=0.5,color="black",position=position_dodge())+
  scale_fill_manual(values=colorsvalue,name = expression(paste(Treatment)),labels=leglabs,position="top")+
  ylab(expression( Growth~ (day^{-1})))+
  theme_classic()+
  theme (axis.title.x=element_blank()) +
  scale_x_discrete (labels = xlabs)+
  theme (axis.text.x = element_text(angle=90,hjust=1,size=10))+
  theme(text = element_text(size=20))

enter image description here

样本数据

enter image description here

解决方法

暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!

如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@)