在ggplot的geom_smooth中使用多个span值

library(ggplot2)

# 生成示例数据
set.seed(123)
x <- seq(0, 10, length.out = 100)
y <- c(sin(x[1:50]), cos(x[51:100])) + rnorm(100, sd = 0.1)
df <- data.frame(x = x, y = y)

# 使用不同的span值绘制平滑曲线
ggplot(df, aes(x = x, y = y)) +
  geom_point() +
  geom_smooth(span = 0.3, method = "loess", se = FALSE, color = "blue", linetype = "dashed", size = 1) +
  geom_smooth(span = 0.7, method = "loess", se = FALSE, color = "red", linetype = "dotted", size = 1) +
  labs(title = "Multiple Span Values in geom_smooth",
       x = "X-axis",
       y = "Y-axis")

# 分段平滑示例
ggplot(df, aes(x = x, y = y)) +
  geom_point() +
  geom_smooth(data = subset(df, x < 5), span = 0.3, method = "loess", se = FALSE, color = "blue") +
  geom_smooth(data = subset(df, x >= 5), span = 0.7, method = "loess", se = FALSE, color = "red") +
  labs(title = "Segmented Smoothing with Different Span Values",
       x = "X-axis",
       y = "Y-axis")