How to annotate a horizontal line and a text in between two facet_grids?

tidyverse
1

Hi again. I still havent found any solution regarding this problem online.
I need a significant bar and the text of their p-value between two bars that come from two facet grids.

Shown below are my sample code, data, and graph.

set.seed(1000)
data = tibble(
  x=c("A", "B", "1", "2", "3"),
  type=c('A', "B", rep("C",3)),
  group=c('A', "B", rep("C",3)),
  y=sample(seq(0,100),5,replace=T))

q5 = ( ggplot(data, aes(x=x, y=y, fill=group)) +
         theme_classic()  + labs(x = '', y = '') +
         geom_bar(stat="identity", color="black") +
         facet_grid('. ~ group', scales="free", switch = "x", space='free') +
         theme(strip.placement = "outside") +
         scale_y_continuous(limits = c(0,100))
)
q5

neg.pos.line = tibble(
  type = c(rep("A",2), rep("B",2)),
  group = c(rep("A",2), rep("B",2)),
  x = c(1,1,1,1),
  y = c(69,85,85,45)
)

h5 = q5 + 
  geom_line(data = neg.pos.line,
            aes(x= x, y = y), inherit.aes = F) 
h5

This gives me the following graph.

Rplot
Rplot929×419 8.29 KB

I have so far been able to place a vertical line in the same facet as in groups A and B, but I can't seem to draw a geom_line in between A and B. I also do not know how to place a geom_text (i.e. p < 0.01 or n.s.) in between groups A and B.

Has anyone able to do something like this before? Please share your solution. Thank you very much!

2

Have a look at the {ggstatsplot} package.

3

I already have the stat results. I just have to plot the mean and the significance bar.

4

Yes but the {ggstatsplot} package wild both and is probably easier than manually drawing lines.