将垂直和水平线段添加到图形中的点

Question

有没有一种方法可以将垂直和水平线段动态添加到图形中的点。我可以手动完成此操作，但是使用许多不同的点模式会花费很长时间。下面是我在R中创建的示例数据集。如果r中也没有解决方案，我可以使用python或java。

df<- data.frame(x=c(1,2,3,4,5,6,7,8,9),y=c(2,5,2,5,2,5,2,5,2),z=c('a','b','a','b','a','b','a','b','a'))

print(dput(df))


ggplot(df,aes(x,y,color=z))+geom_segment(aes(x = 2, y = 2, xend = 2, yend = 5),color='blue',size=1)+
  geom_segment(aes(x = 1, y = 2, xend = 3, yend = 2),color='blue',size=1)+
  geom_point(size=5)+scale_x_continuous(breaks = c(1,2,3,4,5,6,7,8,9,10,11))+
  annotate("text", x = 2, y = 2, label = "2 feet",size=6)+
  annotate("text", x = 2, y = 3.5, label = "3 feet",size=6)

下面是以前版本的链接，但并没有完全得到我需要的视觉效果。

compute distance and add lines ggplot