R中3个小时内的平均数据（按上一个和下一个小时计算）

Question

我想按3个小时的周期计算时间序列数据的平均值（我的数据包括10分钟的值）。但是，我想计算前一个小时和下一个小时的平均值。例如，我需要根据22:30和1:30之间的数据计算的0:00平均值。

如果我使用这个：

threehour <- aggregate(list(x = df$x, u = df$u), 
                   list(hourofday = cut(df$Datetime, "3 hours")), 
                   mean, na.rm = TRUE)

但是，使用此代码，我将获得3:00（从0:00到3:00）的平均值。

总而言之，我需要将平均值设为0:00（从22:30到1:30平均），3：00（从1:30到4:30平均），6：00、9：00， 12：00、15：00、18：00和21:00。