Jak wykonać łączenie w zakresie dat za pomocą data.table?

Question

Jak zrobić poniżej (proste korzystając sqldf) używając data.table i uzyskać dokładnie taki sam wynik:

library(data.table) 

whatWasMeasured <- data.table(start=as.POSIXct(seq(1, 1000, 100), 
    origin="1970-01-01 00:00:00"), 
    end=as.POSIXct(seq(10, 1000, 100), origin="1970-01-01 00:00:00"), 
    x=1:10, 
    y=letters[1:10]) 

measurments <- data.table(time=as.POSIXct(seq(1, 2000, 1), 
    origin="1970-01-01 00:00:00"), 
    temp=runif(2000, 10, 100)) 

## Alternative short names for data.tables 
dt1 <- whatWasMeasured 
dt2 <- measurments 

## Straightforward with sqldf  
library(sqldf) 

sqldf("select * from measurments m, whatWasMeasured wwm 
where m.time between wwm.start and wwm.end") 

Answer 1

Można korzystać z funkcji foverlaps() który implementuje dołącza nad odstępach sprawnie. W twoim przypadku potrzebujemy tylko kolumny próbnej dla measurments.

Uwaga 1: Należy zainstalować wersję rozwojową data.table - v1.9.5 jako błąd z foverlaps() została tam stała. Możesz znaleźć instrukcje instalacji here.

Uwaga 2: Zadzwonię whatWasMeasured = dt1 i measurments = dt2 tutaj dla wygody.

require(data.table) ## 1.9.5+ 
dt2[, dummy := time] 

setkey(dt1, start, end) 
ans = foverlaps(dt2, dt1, by.x=c("time", "dummy"), nomatch=0L)[, dummy := NULL] 

Zobacz ?foverlaps aby uzyskać więcej informacji i this post dla porównania wydajności.