r语言ggplot绘图之后如何拟合并添加拟合直线

可以使用ggplot2包中的geom_smooth函数来拟合并添加拟合直线。该函数会自动根据数据类型选择拟合方法（如线性回归、局部加权回归等），并绘制拟合直线。以下是一些示例代码：

线性回归拟合直线

library(ggplot2)

# 创建数据集
df <- data.frame(x = 1:10, y = c(3, 5, 7, 9, 11, 13, 15, 17, 19, 21))

# 绘制散点图并添加拟合直线
ggplot(df, aes(x, y)) + 
  geom_point() + 
  geom_smooth(method = "lm", se = FALSE)

局部加权回归拟合直线

library(ggplot2)

# 创建数据集
df <- data.frame(x = 1:10, y = c(3, 5, 7, 9, 11, 13, 15, 17, 19, 21))

# 绘制散点图并添加拟合直线
ggplot(df, aes(x, y)) + 
  geom_point() + 
  geom_smooth(method = "loess", se = FALSE)

其中，se参数控制是否绘制置信区间。如果设置为TRUE，则会绘制带状区域，表示拟合直线的置信区间。如果设置为FALSE，则只会绘制拟合直线。