使用 data.table 包对 R 中的多个变量进行滚动平均

Question

我想获得我拥有的每个数字变量的滚动平均值。使用 data.table 包，我知道如何计算单个变量。但是我应该如何修改代码以便它可以一次处理多个变量，而不是修改变量名称并多次重复此过程？谢谢。

假设我有其他名为“V2”、“V3”和“V4”的数字变量。

require(data.table)
setDT(data)
setkey(data,Receptor,date)
data[ , `:=` ('RollConc' = rollmean(AvgConc, 48, align="left", na.pad=TRUE)) , by=Receptor]

可以在以下位置找到我的示例数据的副本:
https://drive.google.com/file/d/0B86_a8ltyoL3OE9KTUstYmRRbFk/view?usp=sharing

我想通过每个受体获得“AvgConc”、“TotDep”、“DryDep”和“WetDep”的 5 小时滚动方式。

Answer 1

根据您的描述，您需要类似这样的内容，这类似于可以在 one of the data.table vignettes 中找到的一个示例。 :

library(data.table)
set.seed(42)
DT <- data.table(x = rnorm(10), y = rlnorm(10), z = runif(10), g = c("a", "b"), key = "g")
library(zoo)
DT[, paste0("ravg_", c("x", "y")) := lapply(.SD, rollmean, k = 3, na.pad = TRUE), 
   by = g, .SDcols = c("x", "y")]