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