如何在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])