小编Ani*_*jee的帖子

这是一个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具有相同的行数.对于inddtc中的每个(行),

1. dtc$id[ind]= dtb$id[ind].
2. dtc$mval[ind]= mean(dta$val[x]),其中x是dta$id == dtb$id[ind] & dta$seq < dtb$fil[ind] …