Dodawanie częściowe linie poziome z ggplot2 w R

Question

mam następujące dane:

mydf = read.table(text=" 
name a b 
x 10 15 
y 20 25 
z 35 45 
", header = T) 

Chcę utworzyć wykres w następujący sposób:

nie jestem w stanie dodać linie poziome od punktów do linii pionowej przy x = 50. Te linie (niebieskie) zostały narysowane ręcznie na powyższym rysunku. Próbowałem następujący kod, ale nie działa:

ggplot(mydf, aes(a, b)) + geom_point()+ 
    geom_vline(xintercept=50)+ 
    geom_line(aes(x=50,y=b, group=name)) 

Answer 1

Spróbuj geom_segment:

ggplot(mydf, aes(a, b)) + 
    geom_point()+ 
    geom_vline(xintercept=50) + 
    geom_segment(aes(x=a, xend=50, y=b, yend=b), colour="blue")