R 计算时间序列上的平滑平均值

我有一个data.frame，其中一列以年为单位表示日期，另一列以毫米为单位表示海平面观测值

我需要计算10年平滑平均值

以下是一些虚假数据：

x = rnorm(1:100) #annual sea leavel rise
date = seq(1801,1900) #years from 1801 to 1900

df = data.frame(date,x) #create data.frame

有没有什么R功能可以帮上忙？ 平滑后的平均值是否与移动平均值相同

---

感谢您的帮助和/或建议

移动平均线只是平滑平均线的最简单例子，在气候科学中被广泛使用。R过滤器功能，这可能是解决问题的一种非常方便的方法

# sample data
x <- rnorm(1:100)
date <- seq(1801,1900)
df <- data.frame(date,x)
# coefficients for moving average are the simplest ones
f10 <- rep(1/10,10)
df[,"x_10ma"] <- filter(df$x, f10, sides = 1)
# fast check
plot(x = df$date, y = df$x, col="red")
points(x = df$date, y = df$x_10ma,col="blue")

#示例数据
x