通过基于日期在另一个数据框中查看其值来在一个数据框中设置值

Question

我在R中有2个数据帧Data1有2列id ， date和Data2有3列id ， date ， level 。我想根据Data2 level和date列在Data1设置level列。

Data1 = data.frame(id = c(1,1,1), dates = c("2014-06","2016-02","2016-05"))

id  date
1  2014-06 
1  2016-02 
1  2016-05 

Data2 = data.frame(id = c(1,1,1), dates = c("2015-07","2016-04","2016-07"), level=c(3,4,5))

id    date     level
1     2015-07   3
1     2016-04   4
1     2016-07   5

因此，结果数据帧应为：

id  date    level
1  2014-06   NULL
1  2016-02    3
1  2016-05    4

Answer 1

您可以通过从data.table进行滚动联接并将dates -columns转换为dates类来实现此目的（请参见本文结尾处的注释）：

library(data.table)
setDT(Data1, key = c('id','dates'))
setDT(Data2, key = c('id','dates'))

Data1[Data2, lev := level, roll = -Inf, rollends = c(TRUE,FALSE)][]

这使：

> Data1
   id      dates lev
1:  1 2014-06-01  NA
2:  1 2016-02-01   3
3:  1 2016-05-01   4

说明：

• 使用setDT将数据帧转换为数据setDT ，并将键设置为setDT所需的列
• 使用lev := level连接并在Data1创建一个新变量。 如果roll = -Inf ，则向后roll = -Inf如果rollends = c(TRUE,FALSE) ，则只向后滚动第一个值。

---

不需要预先设置键。 您也可以这样做：

setDT(Data1)
setDT(Data2)

Data1[Data2, on = c('id','dates'), lev := level, roll = -Inf, rollends = c(TRUE,FALSE)][]

---

使用的数据：

Data1 = data.frame(id = c(1,1,1), dates = c("2014-06","2016-02","2016-05"))
Data2 = data.frame(id = c(1,1,1), dates = c("2015-07","2016-04","2016-07"), level=c(3,4,5))
Data1$dates <- as.Date(paste0(Data1$dates,'-01'))
Data2$dates <- as.Date(paste0(Data2$dates,'-01'))

注意：通过将第一天添加到每个月，我将dates列转换为dates格式。 为了正确执行指定的滚动连接，这是必需的。