控制R中最佳拟合线的长度

Question

我绘制了一张最适合的图表。但是，我想确保线不接触y轴或x轴。有没有办法控制它的长度？

我目前正在使用代码：

plot(Perimeter~Average.tortuosity, data=T.R,xlim=c(0,5), xlab="Path tortuosity", ylab="Territory perimeter", pch=19)
abline(lm(Perimeter~Average.tortuosity, data=T.R))

由于

Answer 1

如果您只想绘制部分回归线，则必须自己提取点数。 Abline绘制了一条“线”，它在两个方向上无限延伸。但您可以使用predict函数为y获取x。

#sample data
dd<-data.frame(x=1:10, y=cumsum(runif(10)))

plot(y~x, dd)
mm<-lm(y~x, dd)

#lines from 4 to 8
nx<-c(4,8)
ny<-predict(mm, newdata=data.frame(x=nx))
lines(nx,ny, col="red")

导致