使用geom_smooth函数拟合数据点之间（以lm方法为基础）

使用geom_smooth函数拟合数据点之间（以lm方法为基础）

在R语言中，我们可以使用ggplot2包来创建精美的数据可视化图形。其中，geom_smooth函数是一个非常有用的函数，它可以帮助我们通过应用回归模型来拟合数据点之间的趋势。在本文中，我们将介绍如何使用geom_smooth函数基于lm方法来拟合数据点。

首先，我们需要安装并加载ggplot2包。

install.packages("ggplot2")
library(ggplot2)

接下来，我们将生成一些示例数据，以便我们可以对其进行拟合。

# 生成示例数据
x <- 1:10
y <- c(5, 6, 7, 9, 10, 11, 13, 15, 16, 18)
data <- data.frame(x, y)

现在，我们可以使用ggplot函数创建一个基本的散点图，其中x轴表示自变量，y轴表示因变量。

# 创建散点图
scatter_plot <- ggplot(data, aes(x = x, y = y)) +
  geom_point() +
  labs(x = "x", y =