如何计算r中数据框中每3个观察值的平均值？

Question

我有一个看起来像这样的数据框：

RH  Time     Month    Date
45  12:00    March    2017-09-01
48  12:10    March    2017-09-01
46  12:20    March    2017-09-01
44  12:30    March    2017-09-01
31  12:40    March    2017-09-01

我想做的是计算每3个观察值的平均值。我用以下代码尝试过：

n.colmeans = function(df, n = 3){
  aggregate(x = df,
            by = list(gl(ceiling(nrow(df)/n), n)[1:nrow(df)]),
            FUN = mean)
}
df <-  n.colmeans(df)
View(df)

但是，我的问题是要计算出值（RH），但是我却得到了时间，月份和日期的NA。 我想这是因为我没有在函数中包含其他变量。

非常感谢您的帮助！