执行以下语句没有线出现啊

fit<-lm(weight ~ height,data=women)
summary(fit)
women$weight
fitted(fit)
residuals(fit)
plot(women$height,women$weighht,
     xlab = "Height (in inches)",
     ylab = "Weight (in inches)")
abline(fit)

后来执行了一下==以下语句还是没有啊~！
abline(coef = coef(fit))
abline(reg = fit)
abline(lm(weight~height,data=women),col="red")
lines(women$height,fitted(fit))
abline(lm(weight~height,data=women),col="red")