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