练习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"))
来看最终可视化效果:
(0)

相关推荐