Cách thực hiện tham gia qua các phạm vi ngày bằng cách sử dụng data.table?

Question

Làm thế nào để thực hiện dưới đây (đơn giản sử dụng sqldf) sử dụng data.table và nhận được chính xác cùng một kết quả:

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

Bạn có thể sử dụng chức năng foverlaps() mà thực hiện tham gia trong khoảng thời gian một cách hiệu quả. Trong trường hợp của bạn, chúng tôi chỉ cần một cột giả cho measurments.

Lưu ý 1: Bạn nên cài đặt các phiên bản phát triển của data.table - v1.9.5 như một lỗi với foverlaps() đã được cố định ở đó. Bạn có thể tìm thấy hướng dẫn cài đặt here.

Note 2: Tôi sẽ gọi whatWasMeasured = dt1 và measurments = dt2 đây cho thuận tiện.

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] 

Xem ?foverlaps để biết thêm và this post để so sánh hiệu suất.