#数据可视##高阶统计#R ggplot2 绘制 散点曲线拟合

　　添加回归模型拟合线

　　本例选用如下测试数据集：

　　如果需要网散点图中添加回归模型拟合线，最主要是调用stat_smooth()函数。R语言示例代码如下：

　　运行结果：

　　线段为曲线是因为参与拟合模型为局部线性回归模型。往geom_smooth()函数中加入”method = lm”即可拟合经典线性回归。结果如下图：

　　添加自定义模型拟合线

　　本例选用如下测试数据集：

　　上面一小节展示了用全局/局部回归模型拟合样本点并展示拟合线段，它使用ggplot2提供的geom_smooth()函数自动拟合并完成绘制。

　　但在更多时候，我们会使用其他包的模型(非ggplot2内置模型)拟合。针对这种情况，我们需要自定义一个函数。该函数接受模型、横纵轴名、横轴范围、横轴样本点数量等参数，输出一个包含预测变量和预测值的数据框。R语言实现代码如下：

　　在使用其他模型建模好之后，将新的模型等各参数传递进上述函数，便得到预测结果数据集。最后将新的数据集输出为折线图即可。

　　下面展示一个略微复杂的例子，它将数据集根据不同性别分为两组，分别建立回归模型并绘制其拟合线。R语言实现代码如下：

　　运行结果：