r语言geom_smooth拟合两条曲线后如何在曲线之间填充颜色

可以使用geom_ribbon()函数来在两条曲线之间填充颜色。以下是一个示例代码：

library(ggplot2)

# 创建数据集
set.seed(123)
df <- data.frame(x = 1:10, y1 = rnorm(10), y2 = rnorm(10))

# 绘制散点图和拟合曲线
p <- ggplot(df, aes(x, y1)) +
  geom_point() +
  geom_smooth(aes(y = y1), se = FALSE) +
  geom_smooth(aes(y = y2), se = FALSE)

# 在两条曲线之间填充颜色
p + geom_ribbon(aes(ymin = y1, ymax = y2), alpha = 0.2)

这个代码将会创建一个散点图和两条拟合曲线，并在两条曲线之间填充颜色。请注意，geom_ribbon()函数的alpha参数控制着填充颜色的透明度。