在重叠的地方和之间加入两个数据框SQL [重复]

Question

我正在尝试连接两个数据框，这两个数据框在 SQL 中会使用 where 和 between 语句来表示日期。

在 SQL 中，代码为：

select Date,(Value1-Test1) as Ans1,(Value2-Test2) as Ans2,ID
from Data a
 inner join Test b on a.ID=b.ID and a.Date between b.DateStart and c.DateEnd 

这是数据

Date                Value1  Value2  ID
01/01/16 19:30:00       10      30  A
01/01/16 19:50:20       20      40  B
01/01/16 19:55:30       30      50  C

这是测试

RowNumber   DateStart            DateEnd    Test1   Test2   ID
1   01/01/16 17:00:00   01/01/16 22:00:05   2          4    A
2   01/01/16 22:00:06   01/01/16 01:50:00   3          6    A
3   01/01/16 17:00:00   01/01/16 22:00:05   4          8    B
4   01/01/16 22:00:06   01/01/16 01:50:00   5          2    B
5   01/01/16 17:00:00   01/01/16 22:00:05   6          4    C
6   01/01/16 22:00:06   01/01/16 01:50:00   7          5    C

我正在尝试创建的结果

Date                  Ans1    Ans2 ID
01/01/16 19:30:00        8      26  A
01/01/16 19:50:12       16      32  B
01/01/16 19:55:24       24      46  C

任何帮助和指点都会很棒。

Answer 1

根据@zx8754 的建议，我尝试使用data.table::foverlaps()

在数据中，将日期字段重命名为 DateStart 并创建第二个日期字段，其中 DateEnd=Date。添加以下代码：

setkey(Data,ID,DateStart,DateEnd) 
setkey(Test,Id,DateStart,DateEnd) 
CompleteDataset <- foverlaps(Data, Test, type="any")

这正是我想要的。

Finding Overlaps between interval sets / Efficient Overlap Joins

Answer 2

只需merge ID 上的两个数据集，然后有条件地过滤对应于 SQL 的 JOIN 和 WHERE 子句的行。最后，运行计算并随后选择列。

mergedf <- merge(data, test, by="ID")

mergedf <- mergedf[(mergedf$Date >= mergedf$DateStart & 
                    mergedf$Date <= mergedf$DateEnd),]

mergedf$Ans1 <- mergedf$Value1 - mergedf$Test1
mergedf$Ans2 <- mergedf$Value2 - mergedf$Test2

mergedf <- mergedf[c('Date', 'Ans1', 'Ans2', 'ID')]