【求助】数据作拟合曲线时如何剔除异常点？

第一幅图是用spss拟合的，感觉好方便直接选线性拟合曲线就ok。第二幅是在R中直接用loess（）和fitted（）
作的拟合，但是那些异常点附近的数据点少，搞得影响好大。
想问下，怎么能做出和spss中差不多的图！

Car包里面 influencePlot 可以寻找异常点

我以前碰到时候，就直接先用异常检测去掉异常值 在做了