在stat_smooth中添加权重和相关性类型

library(ggplot2)

# 示例数据
data <- data.frame(
  x = 1:10,
  y = rnorm(10),
  weight = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
)

# 绘制带有权重的平滑拟合曲线
ggplot(data, aes(x = x, y = y)) +
  geom_point() +
  stat_smooth(method = "lm", method.args = list(weights = ~weight))

ggplot(data, aes(x = x, y = y)) +
  geom_point() +
  stat_smooth(method = "loess")

ggplot(data, aes(x = x, y = y)) +
  geom_point() +
  stat_smooth(method = "loess", method.args = list(span = 0.7))

library(ggplot2)

# 示例数据
data <- data.frame(
  x = 1:10,
  y = rnorm(10),
  weight = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
)

# 绘制带有权重和局部回归平滑拟合曲线
ggplot(data, aes(x = x, y = y)) +
  geom_point() +
  stat_smooth(method = "loess", method.args = list(span = 0.7, weights = ~weight))