Построение отклонений от линии регрессии

Я хочу построить линию регрессии с (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)

Просто набросок моего намерения, я просто пометил одну точку, например, для примера. Нарисованная линия требует тонкой линии.