Пожалуйста, прости, если мой вопрос очень простой. Поэтому я создал этот сюжет с помощью:
library(ggpubr)
df <- data.frame("prop" = c(102.73,260.65), "Name" = c("All Genes","RG Genes"))
my_comparisons <- list(c("All Genes","RG Genes"))
p <-ggbarplot(df, x="Name", y="prop",fill="Name",legend ="",color = "white",palette = "jco",xlab = FALSE,ylab="cis eqtl per gene")
p + annotate("text", x = 1.5, y = 280, label = "p = 0.00578", size = 3.5) + annotate("rect", xmin = 1, xmax = 2, ymin = 270, ymax =270, alpha=1,colour = "black")+ geom_vline(xintercept = 1:2)
Проблема в том, что этот сюжет выглядит не очень хорошо. Мне нужно, чтобы эти вертикальные линии вокруг значения p были короткими, а не проходили над горизонтальной линией, просто чуть ниже горизонтальной линии.