R菜鸟求助，想画出如下的图形：


对应的回归模型为：

尝试用的R code：
attach(wage1)
fit<-lm(log(wage)~educ,data=wage1)
plot(educ,wage)
lines(educ,fitted(fit))
detach(wage1)

画出的图形很奇怪，跟想要画出的图形相差很多，如下：


求高手指教，非常感谢！所用的数据集请看附件。