Tracciamento di deviazioni dalla linea di regressione

Question

Voglio tracciare una linea di regressione con (a = 0 eb = 1) e aggiungere le deviazioni punto individuali da questo insieme all'individuazione del punto dati con nome.

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) 

Solo uno schizzo manuale delle mie intenzioni, ho appena etichettato un singolo punto, ad esempio. La linea disegnata ha bisogno di un sottile.

Answer 1

dev.new(width=4, height=4) 
plot(xvar, yvar, asp=1) 

a = 0 
b = 1 

abline (a, b, col = "red", lty = 2) 

myd$xint = with(myd, (b*yvar + xvar - b*a)/(b^2 + 1)) 
myd$yint = with(myd, (b*yvar + b*xvar + a)/(b^2 + 1)) 

with(myd, segments(xvar, yvar, xint, yint)) 
with(myd, text(xvar, yvar, labels=namelab, pos=3, cex=0.5)) 

Answer 2

... e se si voleva verticale al contrario di offset perpendicolari, qui è una scelta abbastanza semplice:

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) 

Per questo per lavorare per qualsiasi valore di aeb, utilizzare:

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