r - 具有多个条件的左连接

Question

我有两个数据，我想用 2 个条件进行左连接。

Criteria 1 : Same Title

Criteria 2 : Date between StartDate & EndDate

数据B

Title  Date
A      2018-07-01
B      2019-12-30

数据A

Title StartDate  EndDate     Score
A     2018-01-01 2018-05-18    0
A     2018-05-19 2019-01-01    1
B     2019-10-01 2020-02-01    4
B     2020-02-02 2020-10-01    7

这就是我想要的

Title  Score
A       1
B       4

提前致谢!

Answer 1

我们可以对data.table使用非等值连接

library(data.table)
setDT(DataA)[DataB,  .(Title, Score), on = 
      .(Title, StartDate < Date, EndDate >= Date)]
#   Title Score
#1:     A     1
#2:     B     4

数据

DataA <- structure(list(Title = c("A", "A", "B", "B"), 
StartDate = structure(c(17532, 
17670, 18170, 18294), class = "Date"), EndDate = structure(c(17669, 
17897, 18293, 18536), class = "Date"), Score = c(0L, 1L, 4L, 
7L)), row.names = c(NA, -4L), class = "data.frame")

DataB <- structure(list(Title = c("A", "B"), Date = structure(c(17713, 
18260), class = "Date")), row.names = c(NA, -2L), class = "data.frame")