Как добавить несколько Vline на гистограмме с помощью ggplot2

Question

Я построил гистограмму, показал Гистограмма Я хочу добавить вертикальные линии, когда сумма вероятности дисбаланса распределения составляет 50%, 80% и 90%.

Я построил гистограмму, но не могу добавить вертикальные линии, описанные выше.

pl <- ggplot() + 
        geom_line(data = data.frame(power1, abs(t-c)), aes(x = abs(t-c), y = power1, color = "power"), size = 1) + 
        scale_y_continuous(labels = percent_format(), sec.axis = sec_axis(~.*.3, labels = percent_format(), name = "Probability of allocation imbalance")) + 
        geom_point(data = data.frame(power1, abs(t-c)), aes(x = abs(t-c), y = power1)) + 
        geom_histogram(data = Simple_Rand_simulation, aes(x = Imbalance_all, y = ..density..*3), color = "blue",
                 binwidth = density(Simple_Rand_simulation$Imbalance_all)$bw) + 
        labs(y = "Probability of power", x = "Allocation imbalance", colour = "Parameter") + 
        theme(legend.position = c(0.8, 0.9))

pl

Я ожидаю вертикальные линии, когда сумма вероятности дисбаланса распределения составляет 50%, 80% и 90%

Answer 1

Возможно, вам просто нужно использовать geom_vline(). Если они вам нужны в .5, .8 и точке .9, это будет:

pl + 
  geom_vline(xintercept = .5) + 
  geom_vline(xintercept = .8) + 
  geom_vline(xintercept = .9)

Но, конечно, вы можете кодировать эти значения в соответствии с вычислением совокупной вероятности.