Unire due frame di dati in R sulla base del timestamp più vicino

Question

Ciao Ho due tabelle (tabella1 e tabella2 di seguito) e vorrei unirmi in base al timestamp più vicino per formare expected_output. Un qualche tipo di soluzione che coinvolge dplyr sarebbe grande se possibile, ma non se complica ulteriormente le cose.

table1 = 
structure(list(date = structure(c(1437051300, 1434773700, 1431457200 
), class = c("POSIXct", "POSIXt"), tzone = ""), val1 = c(94L, 
33L, 53L)), .Names = c("date", "val1"), row.names = c(NA, -3L 
), class = "data.frame") 

table2 = 
structure(list(date = structure(c(1430248288, 1435690482, 1434050843 
), class = c("POSIXct", "POSIXt"), tzone = ""), val2 = c(67L, 
90L, 18L)), .Names = c("date", "val2"), row.names = c(NA, -3L 
), class = "data.frame") 

expected_output = 
structure(list(date = structure(c(1437051300, 1434773700, 1431457200 
), class = c("POSIXct", "POSIXt"), tzone = ""), val1 = c(94L, 
33L, 53L), val2 = c(90L, 18L, 67L)), .Names = c("date", "val1", 
"val2"), row.names = c(NA, -3L), class = "data.frame") 

Answer 1

Utilizzando laminazione unisce caratteristica di data.table con roll = "nearest":

require(data.table) # v1.9.6+ 
setDT(table1)[, val2 := setDT(table2)[table1, val2, on = "date", roll = "nearest"]] 

Qui, val2 colonna viene creato eseguendo un join sulla colonna date con roll = "nearest" opzione. Per ogni riga di table1$date, viene calcolata la riga corrispondente più vicina da table2$date e viene estratto val2 per la riga corrispondente.

Answer 2

Questa rischia di essere lento, ma ...

d <- function(x,y) abs(x-y) # define the distance function 
idx <- sapply(table1$date, function(x) which.min(d(x,table2$date))) # find matches 

cbind(table1,table2[idx,-1,drop=FALSE]) 
#     date val1 val2 
# 2 2015-07-16 08:55:00 94 90 
# 3 2015-06-20 00:15:00 33 18 
# 1 2015-05-12 15:00:00 53 67 

Un altro modo di costruire idx è max.col(-outer(table1$date, table2$date, d)).