想要添加像图中plot(lm)里面的那条红线，不知道该怎么添加。那条红线应该是 条件均值 average(residual|X=xi)吧？其实我的x是从1到10的10个年份 (factor)。
想添加一条每年的残差的样本均值线
谢谢！

想作的图是 Y轴=标准残差  X轴= 年份（year）

fit<-lm(tax~year+income)
plot.default(rstandard(fit) ~ year,
             main="Residuals vs. year")
abline(h=0, lty=2)
想要添加： 每年的残差均值的一条线。

请指教！ 谢谢！