主页 / coding / 问题 / 77605623
Accepted
Basil
Asked: 2023-12-05 18:53:06 +0800 CST

R 中的时间连接

  • 772

我有两个表称为dates和items：

#dates table
from <- c(as.Date("2022/1/1"), as.Date("2022/3/1"), as.Date("2022/5/1"))
to <- c(as.Date("2022/1/25"), as.Date("2022/3/17"), as.Date("2022/5/30"))
id <- c(1,1,2)
dates <- data.frame(from, to, id)

#items table
item_id <- c(1, 1, 2)
date <- c(as.Date("2022/1/5"), as.Date("2022/3/4"), as.Date("2022/1/4"))
items <-data.frame(item_id, date)

#end result
from <- c(as.Date("2022/1/1"), as.Date("2022/3/1"), NA)
to <- c(as.Date("2022/1/25"), as.Date("2022/3/17"), NA)

end_result <- data.frame(item_id, date, from, to)

dfdates需要连接到itemsdf，其中 id 匹配，并且 df 的日期items位于 df 的起始日期和终止日期之间dates。数据end_result框显示了预期的结果。

有人对如何实现这一目标有任何建议吗？

2 个回答

  1. Best Answer

    1) sqldf使用指定的连接条件将项目左连接到日期。from 和 to 是 SQL 保留字，因此请将它们放在方括号中。

    library(sqldf)

result <- sqldf("select items.item_id, items.date, dates.[from], dates.[to]
  from items left join dates on dates.id = items.item_id and
    items.date between dates.[from] and dates.[to]")

# check
identical(result, end_result)
## [1] TRUE

    2) dplyr 其工作原理相同。

    library(dplyr)

result2 <- items %>%
  left_join(dates, join_by(item_id == id, between(date, from, to)))

# check
identical(result2, end_result)
## [1] TRUE
    • 1

  2. 一个data.table办法：

    library(data.table)
end_result <- as.data.table(items)[dates,
                                   on=.(item_id==id, date>=from, date<=to),
                                   `:=` (from=from, to=to)]

    上面分配给一个新表，但您可以通过就地end_result更新来避免制作整个数据的额外副本。items只需从 开始，setDT(items)[dates,而不是end_result <- as.data.table(items)[dates,.

    • 0

相关问题