本篇推文来自于公众号读者的投稿
最近在画散点图的时候使用lm函数进行线性回归拟合之后，想将拟合的方程与R2加入到绘制的图片中。在百度中翻了半天，终于在一个外国网站上找到了方法。下面我把这个方法介绍给大家。
参考链接是
https://stackoverflow.com/questions/7549694/add-regression-line-equation-and-r2-on-graph
首先是模拟一份数据集
ggplot2基本的散点图并添加拟合曲线
题外话：有读者在公众号留言说R语言做出来的图有锯齿，应该是在Rstudio那个图形显示界面就是这个，如果导出图片后就会变得清楚了，这里为什么在Rstudio的图形显示界面会不清楚 我也不知道
如果要显示95%置信区间，可以将参数的改为
添加拟合方程和R2
这里他的办法是自定义了一个函数，这个函数看起来还挺复杂的，先不用管这个函数的意思了 ，直接复制过来用就可以了
第二种方法 现成的R包 ggpmisc
加载R包，模拟数据集
这里添加拟合方程用到的是 这个函数
最后是调整细节进行美化
代码