Слияние 2 dataframes в r, связанных с датами, находящимися в пределах 30d друг от друга

Question

Я столкнулся с вопросами, на которые я не могу ответить с условным слиянием двух фреймов данных. Опишу кадры данных (имена изменены):

• Первый, DF1, имеет столбец под названием «proceduredate», который содержит дату процедуры в случае (уже отформатированный с помощью as.Date в формате% Y- % m-% d).
• Вторая, DF2, имеет переменную, называемую «orderdate», которая содержит дату каждого лабораторного заказа (также форматируется как. Date в формате% Y-% m-% d).

Каждый dataframe имеет идентификатор (называемый «id») для каждого человека, который используется для объединения «по» через два блока данных. Я хотел бы объединить файлы данных условно, чтобы включить только экземпляры DF2, у которых есть orderdate в течение 30 дней после процедуры в DF1. Как я понимаю, это будет выглядеть что-то вроде:

if ([abs(DF1$procdate-DF2$orderdate)<=30]), then{ 
    merge(DF1,DF2,by="id") 
} 

Однако, я не могу понять способ превратить эту идею в рабочий код. Предложите ли вы какие-либо ссылки или аналогичные предыдущие решения?

Answer 1

SQL обрабатывает это лучше, чем (базовый) R - хотя я считаю, что есть способ сделать это в data.table.

library(sqldf) 
result = sqldf(" 
    select * 
    from DF1 left join DF2 on 
    abs(DF1.procdata - DF2.orderdate) <= 30 
    AND DF1.id = DF2.id 
") 

Я не уверен, что это будет работать с датами, может быть, если они Date столбцы класса. Если вы предоставите воспроизводимый пример, я с удовольствием проверю.