R 中具有截距的回归模型的 abline 线不正确
Incorrect abline line for a regression model with intercept in R
（给出了可重现的示例）在下面，我得到一条 abline 线，y 截距约为 30，但回归表明 y 截距应为 37.2851 我哪里错了？
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')
我查看了 SOF 中所有类似的 abline 问题。尽管如此，我仍然无法弄清楚课程中有什么问题。
使用
plot(mtcars$mpg ~ mtcars$wt, pch=19, col='gray50', xlim = c(0, 6), ylim = c(0, 40))
请注意，您当前的代码生成的图 xlim 不是从 0 开始的。要查看截距，您需要 x = 0。不要忘记设置 ylim 以及查看完整的行。
（给出了可重现的示例）在下面，我得到一条 abline 线，y 截距约为 30，但回归表明 y 截距应为 37.2851 我哪里错了？
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')
我查看了 SOF 中所有类似的 abline 问题。尽管如此，我仍然无法弄清楚课程中有什么问题。
使用
plot(mtcars$mpg ~ mtcars$wt, pch=19, col='gray50', xlim = c(0, 6), ylim = c(0, 40))
请注意，您当前的代码生成的图 xlim 不是从 0 开始的。要查看截距，您需要 x = 0。不要忘记设置 ylim 以及查看完整的行。