Аблайн не строит в R

Question

КОД:

plot(medalswimmers$Height, medalswimmers$Weight , cex=1.3, pch=16, xlab="Height of medal winning swimmers (in years)", ylab="Respective weight of medal winning swimmers (in cm)")
lm(medalswimmers$Height ~ medalswimmers$Weight)

ВЫВОД:

Call:
lm(formula = medalswimmers$Height ~ medalswimmers$Weight)

Коэффициенты:

(Intercept)  medalswimmers$Weight  
    129.2058                0.7146  

КОД:

  abline(a = 129.2058, b= 0.7146, col="Blue") #-THIS DOES NOT PLOT???

Изображение графика без линии регрессии

Answer 1

Линия, которую вы пытаетесь построить, находится за пределами окна печати. Это можно увидеть, рассчитав значение y для значений x на границах вашего графика:

# What value on the y-axis does the line have when x = 160?
> 129.2058 + 0.7146 * 160
[1] 243.5418

# What value on the y-axis does the line have when x = 200?
> 129.2058 + 0.7146 * 200
[1] 272.1258

Причина этого в том, что вы наносите рост и вес на противоположных осях по сравнению с тем, что вы ввели в линейную модель.

Попробуйте вместо:

 l1 <- lm(Height ~ Weight, data=medalswimmers)

 plot(medalswimmers$Weight, medalswimmers$Height, cex=1.3, pch=16, 
      ylab="Height of medal winning swimmers (in years)", 
      xlab="Respective weight of medal winning swimmers (in cm)")

 abline(a=coef(l1)["(Intercept)"], b=coef(l1)["Weight"], color="blue")