如何在R圖形XY散點圖中自定義迴歸線？

Question

我想約束一個XY散點圖迴歸線，以便該線只通過或覆蓋變量範圍的極限，而不是貫穿圖圖的整個範圍。

我的問題：當我使用abline(lm(y~x))創建一條迴歸線時，它遍及整個圖。

有沒有一種方法來限制我最適合的線的範圍？

謝謝。

Answer 1

改用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]) 

Answer 2

您可以使用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))