使用R中的注释将线段整齐地绘制到绘图的末尾（轴）

我试图使用R中的注释在散点图的顶部绘制两条线段。这些线段应在图的右下角形成一个正方形，但正如您在下面的示例代码中所看到的，垂直线段未到达图的底部，即x轴

datas=data.frame(x=c(-1, 3, 2),y=c(-2,2,1.5))
q = qplot(x, y, data=datas) + theme_bw() + theme(aspect.ratio=1, legend.position="bottom")+xlab("X")+ylab("Y")
q + annotate("segment", x = -0.5, xend = -0.5, y = -5, yend = 0.5, colour = "black") + annotate("segment", x = -0.5, xend = 4, y = 0.5, yend = 0.5, colour = "black")

如下所示，我尝试将第一个垂直段的y值从-5改为-6，希望它现在能到达x轴，但所发生的是x轴也向下移动，所以仍然有一个空间

datas=data.frame(x=c(-1, 3, 2),y=c(-2,2,1.5))
q = qplot(x, y, data=datas) + theme_bw() + theme(aspect.ratio=1, legend.position="bottom")+xlab("X")+ylab("Y")
q + annotate("segment", x = -0.5, xend = -0.5, y = -6, yend = 0.5, colour = "black") + annotate("segment", x = -0.5, xend = 4, y = 0.5, yend = 0.5, colour = "black")

---

有什么想法吗

添加scale_y_continuousexpand=c0,0这正是我想要的。谢谢