5
这是一个MWE。非平等加入,然后按群组总结
dta <- data.table(id=rep(1:2, each=5), seq=rep(1:5, 2), val=1:10)
dtb <- data.table(id=c(1, 1, 2, 2), fil=c(2, 3, 3, 4))
dtc <- data.table(id=c(1, 1, 2, 2), mval=rep(0, 4))
for (ind in 1:4) dtc$mval[ind] <- mean(dta$val [dta$id == dtb$id[ind] & dta$seq < dtb$fil[ind]])
dtc
# id mval
# 1: 1 1.0
# 2: 1 1.5
# 3: 2 6.5
# 4: 2 7.0
dtc应该与dtb具有相同的行数。对于每一个(行)ind
在DTC,
dtc$id[ind]
=dtb$id[ind]
。dtc$mval[ind]
=mean(dta$val[x])
,其中x是dta$id == dtb$id[ind] & dta$seq < dtb$fil[ind]
。
我的data.tables非常大。因此,我正在寻找一种以最小内存占用来实现上述功能的方法。我正在考虑一个非平等加入,然后进行总结,但我似乎无法得到这个工作。因此,问题的标题。
将不胜感激任何帮助,谢谢!