我想在ggplot2::geom_smooth()中使用加权平均平滑器，但它不是method =允许的选项之一。是这样做的方法来计算平滑值并将其作为一个图层添加到我的ggplot散点图上？
示例数据：
set.seed(0)
x <- seq(0, 50, 0.1)
prob <- - x*(x - 50)/1000
tmp_df <- data.frame(x, prob)
tmp_df <- tmp_df[rep(1:nrow(tmp_df), times = 10),]
tmp_df$success <- rbinom(n = nrow(tmp_df), size = 1, prob = tmp_df$prob)
在此数据上使用method = 'gam'：
ggplot(tmp_df, aes(x = x, y = success)) +
geom_point(position = position_jitter(width = 0.2, height = 0.2), size = 0.1) +
geom_smooth()