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

Question

我有一个data.frame，其中一列表示年份中的日期，另一列表示例如海平面mm。

我需要计算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功能？ 平滑的平均值是否与移动平均值相同？

感谢您提供任何帮助和/或建议

Answer 1

移动平均线是平滑均值的最简单情况，广泛应用于气候科学。 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")

提供更高级的平滑选项，例如，通过＆＃39; TTR＆＃39; 或＆＃39;畅通＆＃39; 包。