如何在R图形XY散点图中自定义回归线？

Question

我想约束一个XY散点图回归线，这样该线只能通过或覆盖x变量范围的限制，而不是遍历图表的完整范围。

我的问题：当我使用abline(lm(y~x))创建回归线时，它会延伸到整个图表。

有没有办法约束我最合适的线条范围？

感谢。

Answer 1

您可以使用clip：

plot(0:1,0:1)
usr <- par("usr")
clip(x1=0.5,x2=0.8,usr[3],usr[4])
abline(0,1)
do.call("clip", as.list(usr))

Answer 2

改为使用segments功能。

regression <- lm(y ~ x)
y_pred <- predict(regression)
which_x_max <- which.max(x)
which_x_min <- which.min(x)
segments(x0 = min(x), y0 = y_pred[which_x_min],
         x1 = max(x), y1 = y_pred[which_x_max])