Как настроить линию регрессии в графике X XY диаграммы рассеяния?

Question

Я хотел бы ограничить линию регрессии диаграммы XY так, чтобы линия проходила или ограничивала пределы диапазона x, а не пробегала всю длину графика графика.

Моя проблема: Когда я использую 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))