R中的局部平滑

Question

我正在努力清理数据。我有大量的反射率曲线，从中心到角落移动都会变得非常嘈杂。从1000到1950nm的区域通常非常干净，但是从1000到350以及从1950到2500逐渐变大。 下面是几条曲线的示例：

我尝试了多种不同的平滑方法，例如无油糊，移动平均线和SavinzkyGolay，但问题是，如果我尝试增加平滑因子以平滑嘈杂的部分，那么干净的部分也会受到影响。
这是我到目前为止获得的最佳结果：

如您所见，嘈杂的部分还不平滑。但是进一步的平滑也会使中心部分平滑。
R中是否有任何软件包可以仅在本地消除噪声以获得类似信息？

This is a subset of my data。抱歉，即使是一条曲线也有很多点，所以我无法以其他任何方式发布在这里！

Answer 1

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

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