रिग्रेशन लाइन

Question

से विचलन प्लॉटिंग (मैं एक = 0 और बी = 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) 

बस मेरे इरादे के मैन्युअल स्केच, मैंने बस उदाहरण के लिए एक बिंदु को लेबल किया। खींची गई रेखा को पतला होना चाहिए।

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

... और अगर आप खड़ी चाहते हैं सीधा ऑफसेट करने का विरोध किया था, यहाँ एक बिल्कुल स्पष्ट विकल्प है:

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))