使用ggplot滑动窗口的平均值

Question

假设我有这个：

cplot <- ggplot(mtcars, aes(qsec, wt)) + 
  geom_point(alpha=0.2)+
  stat_smooth(geom='point', n=30, color='red') +
  stat_smooth(geom='line', n=30, color='red')
cplot

如何做类似的事情，但计算每个细分中的点平均值而不是花哨的回归？

请注意，我不要求涉及预处理数据的解决方案。我想动态地做这件事（如果可能的话）。

（第n段的平均值，或者使用滑动窗口，它并不重要，因为我不会使用n = 30而是使用2或3来避免太多的扭曲）