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

我画了一张图，图中有一条最合适的线。但是，我想确保直线没有接触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))

---

谢谢

如果您只想绘制部分回归线，您必须自己提取点。Abline绘制了一条在两个方向上无限延伸的“线”。但是您可以使用

predict

函数为任何

x

获取

y

#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")

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

#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")

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

#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")

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

#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")

#示例数据
dd可能未使用
abline
。您可能必须使用
段
或类似的东西。可能不使用
abline
。您可能必须使用
段
或类似的东西。可能不使用
abline
。您可能必须使用
段
或类似的东西。可能不使用
abline
。您可能必须使用
段
或类似的东西。