R中的柔性对角线图

如何绘制对角线（从左下角到上角） 右角）， 在任何给定的坐标范围内

比如说

> plot(c(-2,3), c(-1,5), type = "n", xlab="x", ylab="y", asp = 1)

或

我尝试使用以下命令创建abline，但失败：

> abline(0,1,col="red")

---

当前绘图区域的限制在

par（）$usr

中

lines( par()$usr[1:2], par()$usr[3:4] )

lines( par()$usr[1:2], par()$usr[3:4] )