3つのテーブルを結合してすべての列を一意に結合する

Question

Rには3つのテーブルがあり、いずれも共通のキーを共有していません。私は列が繰り返されるので、3つの列すべての一意の組み合わせが存在する他のすべての表を結合する4番目の表を作成します。

あなたはDT1とDT2

の組み合わせを有するDT3の行ごとにそう

dt1 <- data.table(a = c(1,2,3,4,5)) 
dt2 <- data.table(b = c("a","b","c","d","e")) 
dt3 <- data.table(c = c("p1", "p2", "p3")) 

最初の数行の例は以下である：

dt4 <- data.table(a = c(rep(1, 3), rep(2, 3)), c(rep("a", 3), rep("b", 3)), rep(c("p1", "p2", "p3"), 2)) 

そこで得られたテーブル内の各行ユニークです。

Answer 1

我々はCJ

CJ(a = dt1$a, b = dt2$b, c = dt3$c) 

---

を使用することができますまたはプログラムの方法で

do.call(CJ, lapply(mget(paste0("dt", 1:3)), `[[`, 1))