使用segment函数绘制线条

Question

我试图在我的观察值和拟合值之间绘制线条。但不知怎的，我一直在收到错误。我正在使用segments来执行此操作。以下是我的剧本：

mdl<-lm(yld ~ year,data=asm);summary(mdl)
plot(yld ~ year,data=asm,pch=16,xlab="Year",ylab=expression(paste("Raw rice yield (kg/ha)")))
abline(mdl)
x0 <- x1 <- mdl$mdl$year
y0 <- mdl$mdl$yld
y1 <- fitted(mdl)
segments(x0, y0, x1, y1, col="red", lwd=2)

Error in segments(x0, y0, x1, y1, col = "red", lwd = 2) : 
invalid first argument

有谁能告诉我这里我做错了什么？当我运行x0时，它显示为NULL。 x1和y1（NULL）相同。这是问题，我该如何纠正呢

由于