R平滑功能

Question

我有一个看起来像这样的R图：

红线是尝试使用lines(smooth.spline(x, y, spar=0.000001))进行平滑处理。请注意，STILL无法在图表末尾附近包含峰值的极低翼梁值。然而，这是因为绘制的点数：107350.接近尾声的20点无法动摇，尽管很明显这些点与其他点不同。

我可以使用哪种R平滑功能包含这些要点？

或者如果更顺利的话，我怎么能够在统计上＆＃34;区分这些要点？