如何在R (gam)中生成带有阴影的图？

install.packages("mgcv")
library(mgcv)

model <- gam(y ~ s(x), data = data)

predictions <- predict(model, newdata = data, se.fit = TRUE)

plot(data$x, data$y, type = "l")

lines(data$x, predictions$fit, lwd = 2)  # 绘制预测线条
lines(data$x, predictions$fit + 2 * predictions$se.fit, lty = 2)  # 绘制上置信区间线条
lines(data$x, predictions$fit - 2 * predictions$se.fit, lty = 2)  # 绘制下置信区间线条

install.packages("mgcv")
library(mgcv)

# 创建数据集
data <- data.frame(x = seq(0, 10, by = 0.1),
                   y = sin(seq(0, 10, by = 0.1)) + rnorm(101, 0, 0.2))

# 创建(gam)模型并拟合数据
model <- gam(y ~ s(x), data = data)

# 生成预测值和置信区间
predictions <- predict(model, newdata = data, se.fit = TRUE)

# 绘制图形
plot(data$x, data$y, type = "l")
lines(data$x, predictions$fit, lwd = 2)  # 绘制预测线条
lines(data$x, predictions$fit + 2 * predictions$se.fit, lty = 2)  # 绘制上置信区间线条
lines(data$x, predictions$fit - 2 * predictions$se.fit, lty = 2)  # 绘制下置信区间线条