请你用R语言做一个平滑曲线的代码示例吧

在R语言中，可以使用`ggplot2`包中的`geom_smooth()`函数来创建平滑曲线。下面是一个使用`geom_smooth()`函数的简单示例，它展示了如何在一个散点图上添加一条平滑曲线。

首先，确保你已经安装并加载了`ggplot2`包：

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

接下来，创建一些示例数据：

set.seed(123)
data <- data.frame(
  x = 1:100,
  y = rnorm(100)
)

现在使用`ggplot2`来绘制带有平滑曲线的散点图：

ggplot(data, aes(x = x, y = y)) +
  geom_point() +  # 添加散点图层
  geom_smooth() + # 添加平滑曲线层
  theme_minimal() # 使用简洁的主题

这段代码首先创建了一个包含100个点的数据框，其中`x`是1到100的整数，`y`是随机生成的正态分布数值。然后使用`ggplot()`函数设置绘图的数据源和坐标轴映射，`geom_point()`添加了散点图层，`geom_smooth()`添加了平滑曲线层。最后，`theme_minimal()`应用了一个简洁的主题样式。