datatable 패키지를 사용하여 R의 여러 변수에 평균 롤링

설명에서 다음과 같은 것을 원합니다. 새 비네팅 중 하나에서 찾을 수있는 하나의 예와 비슷합니다.

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")]

이제 frollmean 를 사용할 수 있습니다   data.table 의 기능  패키지입니다.

library(data.table)
set.seed(42)
DT <- data.table(x = rnorm(10), y = rlnorm(10), z = runif(10), 
                                g = c("a", "b"), key = "g")
xy <- c("x", "y")
DT[, (xy):= lapply(.SD, frollmean, n = 3, fill = NA, align="center"), 
                                   by = g, .SDcols =  xy]

여기서 x 및 y 열을 순환 평균으로 바꿉니다.