回归线不会通过点云

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

e.g

{{1}}

您正在绘制您想要黑色的红线，反之亦然。