我想计算a中许多变量与(加权)均值的偏差data.table.
我们来看这个例子:
mydt <- data.table(
id = c(1, 2, 2, 3, 3, 3),
x = 1:6,
y = 6:1,
w = rep(1:2, 3)
)
mydt
id x y w
1: 1 1 6 1
2: 2 2 5 2
3: 2 3 4 1
4: 3 4 3 2
5: 3 5 2 1
6: 3 6 1 2
我可以计算的加权装置x和y如下:
mydt[
,
lapply(
as.list(.SD)[c("x", "y")],
weighted.mean, w = w
),
by = id
]
(我使用相对复杂的as.list(.SD)[...]构造而不是.SDcols因为这个 bug.)
我想先创建每一行的手段,但没有找到如何结合:=使用lapply().
京公网安备 11010802040832号 | 京ICP备19059560号-6 