如何使用ggplot2在多个组的条形图上叠加表示重要性的线？

Question

我正在尝试在条形图中添加线条以指示两个观察值之间的显着性。对于我的情节my bar plot，我想在前两个x轴观察上方添加一条线，表明存在显着差异，即BDD生气和控制生气之间，就像在其他线程中所做的那样，但不是有多个组，例如：Example bar plot

与此处所做的类似：Indicating the statistically significant difference in bar graph USING R

MY PLOT CODE：

p <- ggplot(faces_data_accuracy, aes(x=Condition, y=Mean, fill=Group)) + 
  geom_bar(position=position_dodge(), stat="identity") + 
  geom_errorbar(aes(ymin=Mean-se, ymax=Mean+se), #ADD ERROR BARS
                width=.2,                    # Width of the error bars
                position=position_dodge(.9)) +
  ylab("Percentage of Correct Responses")+
  xlab("Emotion")+
  theme_bw()+
  theme(
    plot.background = element_blank()
    ,panel.grid.major = element_blank()
    ,panel.grid.minor = element_blank()
    ,panel.border = element_blank() 
  ) +
  theme(axis.line = element_line(color = 'grey')) +
  scale_fill_brewer(palette="Paired") 

所以我已经创建了一个具有p值坐标的数据框并将其绘制为文本：

  label.df <- data.frame(Condition = c("Angry", "Angry"), Mean = c(86, 87), Group = c("BDD","Control"))
  arc.df <- data.frame(Condition = x, Mean = y)
  p+geom_text(data = label.df, label = "p=0.028")+
    geom_line(data = arc.df, aes(Condition+1, Mean+10))

但无论我做什么，我似乎无法添加一条线。你能帮我在y轴上的80号位置加一条线来连接两个愤怒的观察点，如示例图吗？

Answer 1

我认为包ggsignif正是你所追求的（https://cran.r-project.org/web/packages/ggsignif/index.html）。您尚未提供数据，但我猜测+geom_signif(comparisons=list(c('BDD','Control')))应该接近您所需的数据。

考虑插图中提供的示例：

library(ggplot2)
library(ggsignif)
ggplot(mpg, aes(class, hwy)) +
  geom_boxplot() +
  geom_signif(comparisons = list(c("compact", "pickup"),
                                 c("subcompact", "suv")))