如何将显着性标签添加到具有离散 x 轴值的成对箱线图？

如何解决如何将显着性标签添加到具有离散 x 轴值的成对箱线图？

正如标题所说，我正在尝试将重要的星星添加到带有成对箱线图和带有 geom_signif 的离散 x 轴的箱线图中。是否有可能将 xmin 和 xmax 值设置在成对箱线图之一之上？正如您在绘图的附图中看到的那样，我设法显示了“Behandlung”（= K 和 T）差异的显着性水平，但我还需要给出硅“-”和硅“之间的显着性水平” +'。

Plot

这是创建图像的代码：

blf <- data.frame(min.blattlf = c(34,28,27,22,23,34,39,21,24,25,26,29,20,19,18,17,15),Behandlung = c('K','K','T','T'),Silizium = c('-','-','+','+'))

ggplot(data = blf,aes(x = Behandlung,y = Min.blattleitfähigkeit,fill = Silizium)) +
  geom_Boxplot(outlier.size = 2) + 
  theme_bw() + 
  labs(x = 'Behandlung',y = expression(paste("min. blattleitfähigkeit ",(mmol~m^-2~s^-1)))) +
  geom_signif(annotations = "***",y_position = 41,xmin = c('K'),xmax = 'T')
  theme(axis.title.x = element_text(size = 12,margin(b = 0,unit = "pt")),axis.title.y = element_text(size = 12,margin(l = 0,axis.text.x = element_text(size = 10),axis.text.y = element_text(size = 10),axis.ticks.length = unit(5,"pt"),legend.title = element_text(size = 12),legend.text = element_text(size = 12))

如果它不能与 ggsignif 一起使用，还有其他可能的解决方案吗？

感谢您的帮助，莫