Equi-join и roll join в data.table

Я ищу, чтобы объединить таблицы на двух полях, используя equi-join и другое, используя скользящее соединение. Данные я использую ниже:Equi-join и roll join в data.table

library(data.table) 
dt <- data.table(Date = as.Date(c("2015-12-29", "2015-12-29", "2015-12-29", "2015-12-29", "2016-01-30", "2016-01 -30", "2016-01-30", "2016-01-30", "2016-02-29", "2016-02-29", "2016-02-29", "2016-02-29", "2016-03-26", "2016-03-26", "2016-03-26", "2016-03-26")), 
        ID = c("A", "B", "C", "D", "A", "B", "C", "D", "A", "B", "C", "D", "A", "B", "C", "D"), 
       Value = c("A201512", "B201512", "C201512", "D201512", "A201601", "B201601", "C201601", "D201601", "A201602", "B201602", "C201602", "D201602", "A201603", "B201603", "C201603", "D201603"), key = c('Date', 'ID')) 

dtes <- data.table(Date=as.Date(c("2015-12-31", "2016-01-31", "2016-02-29", "2016-03-31")), key="Date") 

dte <- CJ(Date=dtes$Date, ID=unique(dt$ID))

Я хочу присоединиться к таблицам «Dt» и «DTE» на ID (используя экви-соединение) и дата (с помощью прокатку присоединиться)

dt[dte, roll=T]

дает мне

#   Date ID Value 
# 1: 2015-12-31 A  NA 
# 2: 2015-12-31 B  NA 
# 3: 2015-12-31 C  NA 
# 4: 2015-12-31 D  NA 
# 5: 2016-01-31 A  NA 
# 6: 2016-01-31 B  NA 
# 7: 2016-01-31 C  NA 
# 8: 2016-01-31 D  NA 
# 9: 2016-02-29 A A201602 
# 10: 2016-02-29 B B201602 
# 11: 2016-02-29 C C201602 
# 12: 2016-02-29 D D201602 
# 13: 2016-03-31 A  NA 
# 14: 2016-03-31 B  NA 
# 15: 2016-03-31 C  NA 
# 16: 2016-03-31 D  NA

в результате я после такой:

# Date  ID  Value 
# 2016-03-31 A A201603 
# 2016-02-29 A A201602 
# 2016-01-31 A A201601 
# 2015-12-31 A A201512 
# 2016-03-31 B B201603 
# 2016-02-29 B B201602 
# 2016-01-31 B B201601 
# 2015-12-31 B B201512 
# 2016-03-31 C C201603 
# 2016-02-29 C C201602 
# 2016-01-31 C C201601 
# 2015-12-31 C C201512 
# 2016-03-31 D D201603 
# 2016-02-29 D D201602 
# 2016-01-31 D D201601 
# 2015-12-31 D D201512

Возможно ли это в data.table?

источник

2016-04-16 Tony2016

Да, установите ключи в обратном порядке; рулон идет по окончательному столбцу, который сливается. 'setkey (dt, ID, Date); setkey (dte, ID, Date); dt [dte, roll = TRUE] [order (ID, -Date)] ' – Frank

Почему бы не использовать' on'? он обычно быстрее, так как он не нуждается в переупорядочении данных в памяти. – jangorecki

@jan. Он разбился. Сейчас отчет – Frank

Да, установите ключи в обратном порядке; рулон идет на последнюю колонку объединяемые:

setkey(dt, ID, Date) 
setkey(dte, ID, Date) 
dt[dte, roll=TRUE][order(ID, -Date)] 


      Date ID Value 
1: 2016-03-31 A A201603 
2: 2016-02-29 A A201602 
3: 2016-01-31 A A201601 
4: 2015-12-31 A A201512 
5: 2016-03-31 B B201603 
6: 2016-02-29 B B201602 
7: 2016-01-31 B B201512 
8: 2015-12-31 B B201512 
9: 2016-03-31 C C201603 
10: 2016-02-29 C C201602 
11: 2016-01-31 C C201601 
12: 2015-12-31 C C201512 
13: 2016-03-31 D D201603 
14: 2016-02-29 D D201602 
15: 2016-01-31 D D201601 
16: 2015-12-31 D D201512

Или, вместо setkey, просто использовать X[Y, on=cols, roll=TRUE] писать cols в правильном порядке (предполагается, что ошибка, упомянутой в комментариях выше фиксировано).

источник

2016-05-09 14:14:47 Frank

Equi-join и roll join в data.table

ответ

Смежные вопросы