基于最近且早于目标日期的Left Rolling Join实现需求

示例主表（df1） #

待连接信息表（df2） #

期望结果 #

解决方案（data.table实现） #

你之前的代码连接方向有误，需要调整逻辑以匹配ID相同且Date1早于等于目标日期的最近记录。具体实现如下：

1. 加载data.table包并构造数据集：

library(data.table)

# 构造主表 df1
df1 <- data.table(
  ID = c("A", "B", "C"),
  Date1 = as.Date(c("2010-09-12", "2009-05-28", "2008-04-16"))
)

# 构造待连接表 df2
df2 <- data.table(
  ID = c("A", "A", "B", "B", "C", "C"),
  Date1 = as.Date(c("2010-06-13", "2010-10-03", "2008-12-28", "2009-06-28", "2008-01-02", "2008-05-23")),
  Rating = c(1, 7, 3, 5, 12, 6)
)

2. 执行带条件的滚动连接：

# 匹配ID相同、Date1<=目标日期的最近记录
result <- df2[df1, on = .(ID, Date1 <= Date1), mult = "last"]

参数说明 #

• on = .(ID, Date1 <= Date1)：指定连接规则，要求两张表ID一致，且df2的Date1不超过df1的目标日期
• mult = "last"：在所有符合条件的匹配记录中，选取最后一条（即日期最近的那条）

执行后得到的result就是你需要的最终数据集。

内容的提问来源于stack exchange，提问作者Rgrvkfer