r - R data.table と rollapply

Question

data.table グループ化を使用してローリング統計を計算するための既存のイディオムはありますか?

たとえば、次のコードがあるとします。

DT = data.table(x=rep(c("a","b","c"),each=2), y=c(1,3), v=1:6)
setkey(DT, y)

stat.ror <- DT[,rollapply(v, width=1, by=1, mean, na.rm=TRUE), by=y];

まだない場合、それを行うための最良の方法は何ですか?