绘制R中的残差

Question

我想在回归线和图中的点之间添加线条，但我找不到解决方案。

这是我目前的情节

zz_fm <-lm(x ~ y)
plot(y,x, xlim = c(0,100),ylim=c(0,110))
abline(zz_fm, col ="green")

有人可以帮助我吗？