我一直在尝试为我的每个数据框创建具有滚动均值的新列。
我正在尝试从ZOO包中将lapply与rollmean / rollaply一起使用。很自然地，在计算rollmean之后，一些尾巴和头部的观察将是空的。
library(zoo)
df.list <- list(alpha, beta, gamma)
lapply(df.list, function(w) { w$rolling <- rollapply(w$tmean, width = 3, FUN = mean, fill=NA); w})
当我使用lapply嵌套嵌套rollapply来调用fill=NA时，效果很好。当我将其放入具有多个DF的循环/ lapply中时，我会得到
"Error in attr(x, "class") <- attr(x, "oclass") :
adding class "factor" to an invalid object ".
如果我放弃fill=NA选项，我会得到
"replacement has 6208 rows, data has 6210".
有什么线索可以克服吗？