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

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.

data = tibble(
  x=c("A", "B", "1", "2", "3"),
  type=c('A', "B", rep("C",3)),
  group=c('A', "B", rep("C",3)),

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))

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) 

This gives me the following graph.

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!

Have a look at the {ggstatsplot} package.

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

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

This topic was automatically closed 21 days after the last reply. New replies are no longer allowed.

If you have a query related to it or one of the replies, start a new topic and refer back with a link.