Data.Table按组滚动连接

dt <- data.table( 
  loc.x = as.integer(c(1,1,3,1)),loc.y = as.integer(c(1,2,2)),time = as.IDate(c("2015-03-11","2015-05-10","2015-09-27","2015-11-25","2014-09-13","2015-08-19")),value = letters[1:6]
)

setkey(dt,loc.x,loc.y,time)
test.day <- as.IDate("2015-10-01")

所需输出：

loc.x loc.y value
1:     1     1     a
2:     1     2     f
3:     3     1     c

解决方法

dt[,last(value[time < test.day]),by = .(loc.x,loc.y)]

这使：

loc.x loc.y V1
1:     1     1  a
2:     1     2  f
3:     3     1  c

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!