练习R:lm+plot+abline+text四函数绘制线性拟合散点图
雇员数据中,我想考察“当前薪金”是不是受到“起始薪金”的影响,通俗理解为“起点越高,发展越好” ?fit <- lm(salary~salbegin,data = employee)
fit
回归系数为1.91,从单从这里看起始薪金高的人当前薪金也不低,二者是正相关。关于线性回归的诊断,咱们后续文章会说明,今天主要是利用R自带的几个函数,制作普通的散点图,绘制图形的R包很多,但是R自带绘图函数使用起来却是很方便,所以练习练习。plot(employee$salbegin,employee$salary)
让可视化程度再高一步,咱们给它加一个回归方程表达式:text(60000,40000,expression(hat(Y)=="1.91*起始薪金+1928.21"))
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。