R 绘制回归线的偏差

我想用（a=0和b=1）绘制一条回归线，并添加与此的个别点偏差，同时用名称标识数据点

set.seed(123)
namelab <- paste ("ET", 1:10, sep = "")
xvar <- 1:10
yvar <- rnorm(10, 5, 5)
myd <- data.frame(namelab, xvar, yvar)
plot(xvar, yvar)
abline (a= 0, b = 1, col = "red", lty = 2)

set.seed（123）
名称实验室
…如果您确实想要垂直偏移而不是垂直偏移，这里有一个非常简单的选项：

set.seed(123)
namelab <- paste ("ET", 1:10, sep = "")
xvar <- 1:10
yvar <- rnorm(10, 5, 5)

plot(xvar, yvar)
abline (a= 0, b = 1, col = "red", lty = 2)
segments(xvar,yvar,xvar,xvar)
text(xvar,yvar,namelab,pos=3)

可能重复：但确实要绘制垂直偏移吗？回归通常使垂直偏移最小化。@John Colby，我打算做的和链接建议的有些不同。（1） 我不打算基于Y和X进行拟合（而是一条a=0，b=1的直线）（2）给它贴上标签。然而，如果我的搜索引擎能够找到上面的帖子…我会自己解决我的问题。。。thanks@John当前位置上面链接中的提问者显然知道普通回归仅使用y偏差。你有没有这样做还不太清楚。您应该确保Deming回归（也称为正交回归、总体最小二乘回归）的xy偏差确实是您想要说明的。它们不是普通回归使用的工具。@john，当我第一次遇到OLS与总最小二乘法时，我很困惑。我在这里写了一篇博客：谢谢你。我一直在寻找一条直线的垂直度，并能找到它。您还将展示如何整齐地缩小SQ.Doubleplusgood的插图。
set.seed(123)
namelab <- paste ("ET", 1:10, sep = "")
xvar <- 1:10
yvar <- rnorm(10, 5, 5)

plot(xvar, yvar)
abline (a= 0, b = 1, col = "red", lty = 2)
segments(xvar,yvar,xvar,xvar)
text(xvar,yvar,namelab,pos=3)

segments(xvar,yvar,xvar,((xvar*b)+a))