我正在尝试使用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 -axis也向下移动，因此仍有空间。
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")
任何想法！？