Linha de abline incorreta para um modelo de regressão com interceptação em R
(exemplo reproduzível dado) A seguir, recebo uma linha de abline com intercepto em y é cerca de 30, mas a regressão diz que a interceptação em y deve ser 37,2851 Onde estou errado?
mtcars$mpg # 21.0 21.0 22.8 ... 21.4 (32 obs)
mtcars$wt # 2.620 2.875 2.320 ... 2.780 (32 obs)
regression1 <- lm(mtcars$mpg ~ mtcars$wt)
coef(regression1) # mpg ~ 37.2851 - 5.3445wt
plot(mtcars$mpg ~ mtcars$wt, pch=19, col='gray50') # pch: shape of points
abline(h=mean(mtcars$mpg), lwd=2, col ='darkorange') # The y-coordinate of hor'l line: 20,09062
abline(lm(mtcars$mpg ~ mtcars$wt), lwd=2, col ='sienna')
Eu olhei para todos os problemas semelhantes de abline no SOF. Ainda assim, não consegui descobrir o que há de errado no curso.