Линия регрессии наименьших квадратов не соответствует диаграмме рассеяния

Question

Я пытаюсь выяснить остаточные расстояния для ассоциации длина-масса и сталкиваюсь с проблемой, когда линия предсказанных значений вообще не совпадает с точками на диаграмме рассеяния, хотя я полагаю, что использую правильный код. Я приложил картину сюжета, который я получаю ... есть идеи, что происходит не так?

logTL<-log10(bd.1$TL)
logMass<-log10(bd.1$mass)

#linear relation bt log TL and log mass
lma<-lm(logMass~logTL)
summary(lma)

#plot and fit line to data
plot(logMass, logTL,xlab="log (base 10) total length", ylab="log (base 10) mass")
abline(coefficients(lma))

Answer 1

Я думаю, что вы должны поменять порядок logTL и logMass на вашем графике, т.е.

plot(logTL, logMass, xlab="log (base 10) total length", ylab="log (base 10) mass")

, так как вы сделали регрессию logMass относительно logTL, т.е. lma<-lm(logMass~logTL)

В противном случае вы можете адаптировать его по-другому, например, abline(1/coefficients(lma)).