在 ggplot2 - 编程之家

如何解决在 ggplot2

你好，我有一个这样的数据集：

|腹足类 |东南 |网站 |位置|

| ---------- | ------ | ---- | -------- |

| 441,60 | 168,21 |桑迪|外|

| 275,40 | 48,61 |桑迪|内部|

| 288,00 | 66,05 |罗西亚|外|

| 560,00 | 319,71 |罗西亚|内部|

与平均丰度、标准误差、有机体集合的地点和位置。

我使用带有误差条的 ggplot 创建了一个条形图，并且出于布局原因使用了两个方面（创建两个级别的 x 标签：底部的站点，顶部的位置，都在绘图之外）使用以下代码：

TrialGastrop<- ggplot(df1,aes(x=Location,y=Gastropoda,fill=Location,color= Location)) + 
  geom_bar(stat="identity",width=.65,position=position_dodge(.8))+
  scale_fill_manual(values=c("grey","white"))+
  scale_color_manual(values = c("black","black")) +
  geom_errorbar(aes(ymin=Gastropoda-SE,ymax=Gastropoda+SE),width=.1,position=position_dodge(0.8))+
  facet_grid(~Site,scales = "free_x",space = "free_x",switch = "x")+ 
  ylab(expression("Mean abundance per" ~m^{"2"}))+
  theme(strip.placement = "outside",strip.background = element_rect(fill = "white",color = "black"),panel.grid.major = element_blank(),panel.grid.minor = element_blank(),panel.background = element_blank(),axis.line = element_line(colour = "black"),legend.position="none")+
  theme(axis.title.y = element_text(vjust = 0.5,margin = margin(t = 0,r = 20,b = 0,l = 0)))+
  labs(x=element_blank())

TrialGastrop

这给了我一个这样的图表（错误栏由于某种原因丢失，但在计算机上我实际上正在处理它们显示） Barplot comparing mean abundances across sites (sandy and rosia) with each two locations (outer and inner)

现在我想手动添加带有自定义值的重要括号，有些必须跨越方面，例如在第 1 条和第 3 条之间。我用“ggpubr”包试过了 stat_pvalue_manual(label = c("`custom1","custom2","custom3","custom4") 但我似乎找不到有效的解决方案。我也不确定，如何有选择地添加括号，例如，在 1 和 3 之间添加一个括号，在 1 和 2 之间添加一个括号，在 3 和 4 之间添加另一个括号。

感谢您的建议！