R-график: рисование только части линейной линии регрессии

Question

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

sale5 <- c(6, 4, 9, 7, 6, 12, 8, 10, 9, 13) 
plot(sale5) 
abline(lsfit(tail(1:10,4), tail(sale5,4))) 

Но линии регрессии продолжается весь путь обратно.

Как я могу нарисовать только часть линии регрессии, чтобы линия регрессии не продолжалась дальше, чем четыре точки в этом случае?

Благодарим за помощь.

Answer 1

Мне нравится использовать ?clip для такого рода задачи:

plot(sale5) 
clip(7,10,min(sale5),max(sale5)) 
abline(lsfit(tail(1:10,4), tail(sale5,4))) 
# reset clipping to the extent of the plot region 
do.call("clip", as.list(par("usr")))