在没有精确匹配的情况下将值联接到现有data.table上(在一定间隔内匹配)

library(data.table)

dt1 <- data.table(id = c(1, 2, 3),
                  start_time = as.POSIXct(c("2022-01-01 00:00:00", "2022-02-01 00:00:00", "2022-03-01 00:00:00")),
                  end_time = as.POSIXct(c("2022-01-31 23:59:59", "2022-02-28 23:59:59", "2022-03-31 23:59:59")),
                  value1 = c("A", "B", "C"))

dt2 <- data.table(time = as.POSIXct(c("2022-01-15 12:00:00", "2022-02-15 12:00:00", "2022-03-15 12:00:00")),
                  value2 = c("X", "Y", "Z"))

setkey(dt1, start_time, end_time)
setkey(dt2, time)

result <- foverlaps(dt2, dt1, by.x = c("time", "time"), type = "within", mult = "all")

print(result)