डेटा.table का उपयोग कर तिथि सीमाओं में शामिल होने के लिए कैसे करें?

Question

नीचे (सीधा sqldf उपयोग करते हुए) ऐसा कैसे करें data.table का उपयोग करने और पाने ठीक उसी परिणाम:

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

आप foverlaps() समारोह जो लागू करता है कुशलता से अंतराल से अधिक मिलती उपयोग कर सकते हैं। आपके मामले में, हमें measurments के लिए बस एक डमी कॉलम चाहिए।

नोट 1: - साथ foverlaps() वहाँ तय किया गया है एक बग के रूप में v1.9.5 आप data.table के विकास के संस्करण को स्थापित करना चाहिए। आप स्थापना निर्देश here पा सकते हैं।

नोट 2: मैं फोन करता हूँ whatWasMeasured = dt1 और measurments = सुविधा के लिए dt2 यहाँ।

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] 

अधिक जानकारी और this post एक प्रदर्शन की तुलना के लिए के लिए ?foverlaps देखें।