合併data.tables表示可變有序對

Question

假設我有以下data.tables：

X1 X2 val1 
A B 1 
B C 2 
C A 3 

X1 X2 val2 
A B 100 
C B 200 
A C 300 

其中（X1，X2）的每一種組合中的每個data.table出現一次，但訂購不確定。我瞄準這個輸出：

X1 X2 val1 val2 
A B 1 100 
B C 2 200 
C A 3 300 

什麼是最有效的方法來做到這一點？特別是如果有第三個data.table包含第三個值列，並且具有相同的情況，則返回：X1，X2等。

Answer 1

這樣的情況如何？

special_join <- function(x, y, xcols, ycols=xcols) { 
    ix1 = y[x, on=structure(xcols, names=ycols), which=TRUE] 
    ix2 = y[x, on=structure(rev(xcols), names=ycols), which=TRUE] 
    pmax(ix1, ix2, na.rm=TRUE) 
} 
ix = special_join(dt1, dt2, names(dt1)[1:2]) 
dt1[, val2 := dt2$val2[ix]] 

---

其中，

dt1 = fread('X1 X2 val1 
A B 1 
B C 2 
C A 3') 

dt2 = fread('X1 X2 val2 
A B 100 
C B 200 
A C 300') 

我會離開這個改編爲您3 data.table作爲練習的一部分。