在R中添加部分水平线和ggplot2

Question

我有以下数据：

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

我想创建一个如下图：

我无法在x = 50处从点到垂直线添加水平线。 这些线（蓝色）已在上图中手动绘制。 我尝试了下面的代码，但它不起作用：

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

Answer 1

试试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")