回归线不通过点的云

Question

---

代码是这里下面的代码。

altura <- read.table("altura.txt", header=T, quote="\"") 
altura <- cbind(altura, altura$Esposa/altura$X.Marido, altura$X.Marido/altura$Esposa) 
is.data.frame(altura) 
names(altura) <- c("marido","esposa","r1","r2") 
with(altura,plot(marido~esposa)) 
g1 <- lm(altura$esposa~altura$marido) 
summary(g1) 
abline(g1$coefficients) 
abline(0,1,lty=5) 
with(altura,plot(esposa~marido)) 
g2 <- lm(altura$marido~altura$esposa) 
summary(g2) 
abline(g2$coefficients) 
abline(0,1,lty=5) 
cor(altura$marido,altura$esposa) 

简单回归线不通过点云。 abline使用汇总函数中的正确截距。这不是第一次发生。如你所见，在这两个图表中，我就是这个问题。一条线通过点，另一条线在下面。

Answer 1

我想我看到：您G2型号： g2 <- lm(altura$marido~altura$esposa应该with(altura,plot(marido~esposa))去你with(altura,plot(esposa~marido))

有它如

set.seed(1021) 

x <- rnorm(100) 
y <- 3*x + rnorm(100) 
m1 <- lm(y~x) 
plot(y~x) 
abline(m1$coefficients) 
m2 <- lm(x~y) 
abline(m2$coefficients, col = 'red') 

您正在密谋要将黑的副红线反之亦然。