Извлечь соответствующее время из двух наборов данных

Question

У меня есть следующие два набора данных

dtimes1 = as.POSIXct(c("2002-06-09 12:48:40"))
codes1 = c(110)

df1 <- data.frame(dtimes1, codes1)


dtimes2 = as.POSIXct(c("2002-06-09 12:45:40","2020-01-01 12:49:40", "2020-01-01 12:58:40"))
codes2 = c(100)
call_nr <- c(1,2,3)

df2 <- data.frame(dtimes2, codes2, call_nr)

Данные в dtimes1 включают определенный ход во время телефонного звонка. Во втором кадре данных у нас есть отметка времени окончания телефонного звонка. Сейчас я ищу фрагмент кода, где я могу автоматически увидеть, в каком вызове произошло событие из dtimes1. Это будет в случае call_2. Вывод, который я ищу, должен дать мне всю вторую строку.

Есть ли какие-либо отзывы о том, как мне этого добиться?

Answer 1

Для каждого dtimes1 получите первое значение в dtimes2, которое больше.

df2$dtimes2[sapply(df1$dtimes1, function(d1) which(df2$dtimes2 > d1)[1])]
#[1] "2020-01-01 12:49:40 PST"