Как создать идентификатор (ID) перед слиянием в R?

Question

У меня есть два dataframes df.o и df.m, как определено ниже. Мне нужно найти, какое наблюдение в df.o (таблица размеров) соответствует тем, какие наблюдения в df.m (таблица фактов) основаны на двух критериях: 1) df.o$Var1==df.o$Var1 и df.o$date1 < df.m$date2 < df.o$date3, так что я получаю правильное значение df.o$oID в df.m$oID (правильное значение вводится вручную df.m$CORRECToID). Мне нужен идентификатор, чтобы завершить слияние потом.

df.o <- data.frame(oID=1:4, 
        Var1=c("a","a","b","c"), 
        date3=c(2015,2011,2014,2015), 
        date1=c(2013,2009,2012,2013), 
        stringsAsFactors=FALSE) 
df.m <- data.frame(mID=1:3, 
         Var1=c("a","a","b"), 
         date2=c(2014,2010,2013), 
         oID=NA, 
         CORRECToID=c(1,2,3), 
         points=c(5, 10,15), 
         stringsAsFactors=FALSE) 

Я пробовал различные комбинации, как код ниже, но без везения:

df.m$oID[df.m$date2 < df.o$date3 & df.m$date2 > df.o$date1 & df.o$Var1==df.m$Var1] <- df.o$oID 

Я также пробовал экспериментировать с различными комбинациями ifelse, which и match, но никто, кажется, сделать трюк.

Проблема, с которой я сталкиваюсь, заключается в том, что моей заменой было другое количество строк, чем данные, и что «длина длинного объекта не кратна короткой длине объекта».

Answer 1

То, что вы ищете, называется «перекрытие соединения», вы можете попробовать функцию data.table::foverlaps, чтобы достичь этого.

Идея проста

1. Создайте столбцы накладываться друг на друга (добавить дополнительный столбец df.m)
2. ключ по этим столбцам

3. запустить foverlaps и выберите столбец вы хотите назад

   library(data.table) 
   setkey(setDT(df.m)[, date4 := date2], Var1, date2, date4) 
   setkey(setDT(df.o), Var1, date1, date3) 
   foverlaps(df.m, df.o)[, names(df.m), with = FALSE] 
   # mID Var1 date2 oID CORRECToID points date4 
   # 1: 2 a 2010 2   2  10 2010 
   # 2: 1 a 2014 1   1  5 2014 
   # 3: 3 b 2013 3   3  15 2013