如何在test.day之前找到每个(loc.x,loc.y)对的最后一个值？
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
