在ggplot2中，geom_smooth函数用来向散点图中添加拟合曲线，并且可以根据分组添加几条拟合曲线，方便快捷的绘制漂亮的拟合图。
02
法
1.使用mtcars数据进行展示具体的操作方法，通过不同拟合方法展示拟合结果。
library(ggplot2)
data(mtcars)
mtcars2 <- mtcars
ggplot(mtcars2, aes(wt, mpg,fill=gear))+
geom_point(size=6,shape=21)+
geom_smooth(method = "lm")
图中展示了wt变量和mpg变量的线性拟合结果，当然，这里没有对数据进行分组，尽管颜色映射给了变量gear。通过分类变量进行分组拟合，将会得到不同的结果：
library(ggplot2)
data(mtcars)
mtcars2 <- mtcars
mtcars2$gear <- as.factor(mtcars2$gear)
ggplot(mtcars2, aes(wt, mpg,fill=gear))+
geom_point(size=6,shape=21)+
geom_smooth(method = "lm")
