... и если вам нужно вертикальное, а не перпендикулярное смещение, вот довольно простой вариант:
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))