R - ave rollapply 错误 : k <= n is not TRUE

Question

我正在尝试计算 R 中按多个维度分组的值的滚动平均值。我会按以下方式在 SQL 中执行以下操作:

AVG(value) OVER 
   (PARTITION BY dim1, dim2 ORDER BY date 
       RANGE BETWEEN 5 PRECEDING AND CURRENT ROW)

如果我只选择几个维度，以下似乎有效:

s <- ave(df$value, 
     list(df$dim1, df$dim2), 
     FUN= function(x) rollapply(x, 5, mean, align='right'))

但当我选择全套尺寸时出现以下错误:

Error: k <= n is not TRUE 

运行时出现同样的错误:

rollapply(c(1:2), 3, mean, align='right')

所以我猜问题是某些维度组合没有足够的值来计算平均值。

我该如何克服它？我很乐意接受这些组合的结果为 NA。任何帮助将不胜感激..

Answer 1

默认情况下，RcppRoll 包中的

roll_meanr 会执行此操作:

library(RcppRoll)
> roll_meanr(c(1:2), 3)
# [1] NA NA