Как сделать полное соединение с помощью data.table?

В data.table часто задаваемых вопросах параметр nomatch = NA называется родственным внешнему соединению. Тем не менее, мне не удалось получить data.table, чтобы выполнить полное внешнее объединение - только внешние внешние соединения.

Например:

a <- data.table("dog" = c(8:12), "cat" = c(15:19))

   dog cat
1:   8  15
2:   9  16
3:  10  17
4:  11  18
5:  12  19

b <- data.table("dog" = 1:10, "bullfrog" = 11:20)

    dog bullfrog
 1:   1       11
 2:   2       12
 3:   3       13
 4:   4       14
 5:   5       15
 6:   6       16
 7:   7       17
 8:   8       18
 9:   9       19
10:  10       20

setkey(a, dog)
setkey(b, dog)

a[b, nomatch = NA]

    dog cat bullfrog
 1:   1  NA       11
 2:   2  NA       12
 3:   3  NA       13
 4:   4  NA       14
 5:   5  NA       15
 6:   6  NA       16
 7:   7  NA       17
 8:   8  15       18
 9:   9  16       19
10:  10  17       20

Итак, nomatch = NA создает правое внешнее соединение (которое является значением по умолчанию). Что делать, если мне нужно полное соединение? Например:

merge(a, b, by = "dog", all = TRUE) 
# Or with plyr:
join(a, b, by = "dog", type = "full")

    dog cat bullfrog
 1:   1  NA       11
 2:   2  NA       12
 3:   3  NA       13
 4:   4  NA       14
 5:   5  NA       15
 6:   6  NA       16
 7:   7  NA       17
 8:   8  15       18
 9:   9  16       19
10:  10  17       20
11:  11  18       NA
12:  12  19       NA

Возможно ли это с помощью data.table?

Ответ 1

На самом деле у вас это есть. Используйте merge.data.table, что именно вы делаете, когда вызываете

merge(a, b, by = "dog", all = TRUE)

поскольку a является data.table, merge(a, b, ...) вызывает merge.data.table(a, b, ...)

Ответ 2

x= data.table(a=1:5,b=11:15)
y= data.table(a=c(1:4,6),c=c(101:104,106))

setkey(x,a)
setkey(y,a)

unique_keys <- unique(c(x[,a], y[,a]))
y[x[.(unique_keys), on="a"]  ] # Full Outer Join