R plot：仅绘制线性回归线的一部分

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")))