R 对单个面上的文本进行多次注释

我来自这个post，回答如何将文本添加到文本到情节中.然而，我的问题不止于此，因为我需要在多个位置多次添加文本.注解函数似乎不起作用，我try 了geom_text，但不知何故我无法使其成为WOKR

我怎么能这样做，添加多个"+"，"++"或"*"

我在这里留下我的数据库:

p1 <- ggplot(data = df_plot2, aes( x = RQ_gapdh, y = gen, xmin = after_scale(1),
  fill = Color)) +
  geom_col(width = .5) +
    scale_fill_manual(values = c("indianred1", "olivedrab3" ))+
  labs(
    y = "Genes", x = expression(2^{-Delta*Delta*Ct}),
    title = "Gene expression",
    subtitles = "1 year post-intervention") +   
  guides(fill = "none") +
  facet_wrap(~grup_int,
    labeller = labeller(
      grup_int = c(
        "1" = "Olive oil",
        "2" = "Nuts",
        "3" = "Low-fat diet"
      )
    )
  )  + 
  theme(axis.text.y = element_text(face = "italic", family = "serif"))+
   geom_vline(xintercept = 1, linetype = "dashed", color = "black")+
     scale_x_continuous(limits = c(0.75, 1.25), breaks = c(0.75, 1, 1.25))


df_plot2<- structure(list(gen = structure(c(11L, 11L, 11L, 10L, 10L, 10L, 
9L, 9L, 9L, 8L, 8L, 8L, 7L, 7L, 7L, 6L, 6L, 6L, 5L, 5L, 5L, 4L, 
4L, 4L, 3L, 3L, 3L, 2L, 2L, 2L, 1L, 1L, 1L), levels = c("SCARB1", 
"RXRB", "RXRA", "PPARG", "PPARD", "PPARA", "NR1H3", "NR1H2", 
"CAV1", "ABCG1", "ABCA1"), class = "factor"), grup_int = structure(c(3L, 
2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 
1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L, 3L, 2L, 1L
), levels = c("1", "2", "3"), class = "factor"), time = c("3", 
"3", "3", "3", "3", "3", "3", "3", "3", "3", "3", "3", "3", "3", 
"3", "3", "3", "3", "3", "3", "3", "3", "3", "3", "3", "3", "3", 
"3", "3", "3", "3", "3", "3"), RQ_gapdh = c(1.019, 1.218, 1.183, 
0.926, 1.132, 1.052, 0.944, 0.9, 0.947, 0.936, 1.117, 0.961, 
0.987, 1.182, 0.971, 1.008, 0.985, 0.951, 0.935, 1.149, 1.058, 
0.914, 1.01, 0.952, 0.913, 1.134, 1.112, 0.985, 1.074, 1.135, 
1.019, 1.138, 0.989), Color = structure(c(2L, 2L, 2L, 1L, 2L, 
2L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 1L, 1L, 2L, 2L, 
1L, 2L, 1L, 1L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 1L), levels = c("FALSE", 
"TRUE"), class = "factor")), row.names = c(8L, 19L, 30L, 11L, 
22L, 33L, 10L, 21L, 32L, 5L, 16L, 27L, 4L, 15L, 26L, 1L, 12L, 
23L, 2L, 13L, 24L, 3L, 14L, 25L, 6L, 17L, 28L, 7L, 18L, 29L, 
9L, 20L, 31L), class = "data.frame")