Построить аппроксимированную линию в пределах определенного диапазона R

Используя R, я хотел бы построить линейную зависимость между двумя переменными, но я хотел бы, чтобы подогнанная линия присутствовала только в пределах диапазона данных.

Например, если у меня есть следующий код, я хотел бы, чтобы линия существовала только из значений x и y 1:10 (с параметрами по умолчанию эта линия выходит за пределы диапазона точек данных).

x <- 1:10
y <- 1:10
plot(x,y)
abline(lm(y~x))