R中的局部平滑

Question

我正在努力清理我的数据。我有大量的反射曲线，从中心到角落变得非常嘈杂。从1000到1950nm的区域通常非常干净，但从1000到350，从1950到2500，我的噪音越来越大。这里有几条曲线的例子：

我尝试了一系列不同的平滑方法，如无毛，移动平均和SavinzkyGolay，但问题是如果我尝试增加平滑因子以平滑噪声部分，那么干净的部分也会受到影响。 这是我迄今为止获得的最佳结果：

你可以看到嘈杂的部分还不顺畅。然而，进一步平滑也将使中心部分平滑。 R中是否有任何包能够在本地摆脱噪音以获得类似的东西？

This is a subset of my data。对不起，即使是一条曲线也是很多点，所以我不能以任何其他方式在这里发布！

Answer 1

两个想法;您可以将平滑功能仅应用于嘈杂部分吗？

是否可以设置高阈值和低阈值，并简单地排除或删除上下的所有结果？