Как добавить образец вертикальной линии в gplot?

Question

Рассмотрим график ниже, даваемый этим кодом:

require(ggplot2) 
my_data<-c(70, 71, 75, 78, 78, 79, 80, 81, 84, 85, 87, 87, 90, 91, 95, 95, 96, 96, 97, 98, 98, 100, 101, 102, 102, 102, 102, 104, 104, 104, 107, 107, 109, 110, 110, 110, 111, 112, 113, 113, 114, 115, 118, 118, 118, 120, 124, 131, 137, 137, 139, 145, 158, 160, 162, 165, 169, 177, 179, 180)  


qplot(my_data,dist, geom="line")+xlab("x values")+ylab("Density")+ 
geom_point()+ 
ggtitle("cool graph Distribution") + 
geom_line(color="black", size=0.1) + 
geom_line(stat = "vline", xintercept = "mean", colour = "red", size=1.1) 

приведенный график выглядит следующим образом:

Моя цель состоит в том, чтобы добавить еще одну синюю линию на графике, что:

1. Пересечение с кривой
2. Показать значение по оси X
3. Добавить заголовок поверх него

визуализировать его, он должен выглядеть следующим образом:

Я знаю, как добавить geom_line, но она идет снизу вверх, я хочу, чтобы «один точка пересечения 'с кривой.

Answer 1

Это действительно более или менее то же самое. Я предпочитаю использовать annotate для таких вещей. (Я хотел бы сделать вашу красную линию с аннотирования, а также лично.) Просто вычислить, где вы хотите вещи, чтобы пойти и добавить их к сюжету:

qplot(my_data,dist, geom="line")+xlab("x values")+ylab("Density")+ 
    geom_point()+ 
    ggtitle("cool graph Distribution") + 
    geom_line(color="black", size=0.1) + 
    geom_line(stat = "vline", xintercept = "mean", colour = "red", size=1.1) + 
    annotate(geom = "segment", x = 98, xend = 98, y = 0, 
      yend = dnorm(98, mean = mean(my_data), sd = sd(my_data)), 
      color = "blue") + 
    annotate(geom = "text", x = 98, y = -.02 * max(dist), label = "98") 

Я оставил титул в верхней части как " упражнение для читателя », это должно быть довольно просто, основываясь на уже существующих.