與data.table

Question

這個問題納入匹配時間限制是後續到以前的問題：Click

在這個問題上提供了兩個data.frames，因爲這個問題集中在一個更具體的部分，示例數據減少。

tc <- textConnection(' 
ID Track4 Time Loc 
4 50  40  1 
5 55  50  1 
6 55  60  1 

') 

MATCHINGS <- read.table(tc, header=TRUE) 

tc <- textConnection(' 
ID Track4 Time Loc 
"" 50  40  1 
"" 55  10  1 
"" 55  40  1 
"" 55  59  1  ') 

INVOLVED <- read.table(tc, header=TRUE) 

在上一問題找到了解決辦法，這一問題：我們的目標是通過匹配上Track1和Loc從MATCHINGS最近最少ID放入INVOLVED。一個額外的條件是匹配INVOLVED條目的Time可能不會高於MATCHING條目的Time。這與當前的方法來實現（見下文）

一個新的約束條件是：所述INVOLVED條目的Time可能不超過30秒（Time列是秒）比MATCHINGS條目下。現在的問題是取得了以下的輸出：

ID Track4 Time Loc 
4  50 40 1 
5  55 10 1 
5  55 40 1 
6  55 59 1 

預期結果但是：

ID Track4 Time Loc 
4  50 40 1 
"" 55 10 1 
5  55 40 1 
6  55 59 1 

由於INVOLVED條目的時間比MATCHINGS條目上Track4和匹配低超過30秒Loc。我沒有看到如何將其納入我目前的解決方案。根據Matthew Dowle的說法，data.table包中的功能請求與此問題有關，但它應該已經可以成立。有誰知道如何？

目前的方法（如果不花時間約束考慮在內）

M = as.data.table(MATCHINGS) 
I = as.data.table(INVOLVED) 
M[,Time:=-Time] 
I[,Time:=-Time] 
setkey(M,Loc,Track4,Time) 
I[,ID:={i=list(Loc,Track4,Time);M[i,ID,roll=TRUE,mult="first"]}][,Time:=-Time] 

Answer 1

更新：roll在data.table參數接受有限卷備份和滾動向前很長時間以來。只是更新這篇文章，以便我們可以關閉#615。

# dt1 = MATCHES, dt2 = INVOLVED 
# make sure dt2 doesn't have `ID` column, or if it has, it is of integer type 
require(data.table) # v1.9.6+ 
dt2[dt1, ID := i.ID, on=c("Track4", "Time"), roll=30] 
# Track4 Time Loc ID 
# 1:  50 40 1 4 
# 2:  55 10 1 NA 
# 3:  55 40 1 5 
# 4:  55 59 1 6 

而且使用v1.9.6實施on=說法。

如有必要，請查看舊版答案的歷史記錄。