练习R：lm+plot+abline+text四函数绘制线性拟合散点图

雇员数据中，我想考察“当前薪金”是不是受到“起始薪金”的影响，通俗理解为“起点越高，发展越好” ？

直接用lm()拟合一个一元线性回归：

fit <- lm(salary~salbegin,data = employee)fit

看下拟合结果：

回归系数为1.91，从单从这里看起始薪金高的人当前薪金也不低，二者是正相关。

关于线性回归的诊断，咱们后续文章会说明，今天主要是利用R自带的几个函数，制作普通的散点图，绘制图形的R包很多，但是R自带绘图函数使用起来却是很方便，所以练习练习。

先画出散点图：

plot(employee$salbegin,employee$salary)

添加直线：

abline(fit,col="red")

让可视化程度再高一步，咱们给它加一个回归方程表达式：

text(60000,40000,expression(hat(Y)=="1.91*起始薪金+1928.21"))

来看最终可视化效果：