将每一行与其他行连接起来[重复]

Question

假设我们有一个简单的数据表：

d <- data.table(a=c(1,2,3),b=c("A","B","C"))

它的内容是：

   a b
1: 1 A
2: 2 B
3: 3 C

现在，我想将数据表的每一行与其他行连接/合并。结果应如下所示：

   a b c d
1: 1 A 1 A
2: 1 A 2 B
3: 1 A 3 C
4: 2 B 1 A
5: 2 B 2 B
6: 2 B 3 C
7: 3 C 1 A
8: 3 C 2 B
9: 3 C 3 C

所以，每一行基本上都与整个数据表绑定。 最有效的方法是什么？这可以仅使用 data.table 语法来完成吗？

谢谢！

编辑： data.table 的 CJ 方法确实构建了一个 cartesion 产品，但仅适用于向量，而不适用于表格。

Answer 1

三种可能的解决方案：

# one
d[, .(c = d$a, d = d$b), by = .(a, b)]

# two
d[, setnames(d, c("c","d")), by = .(a, b)]

# three
d[, setNames(as.list(d), c("c","d")), by = .(a, b)]

两者都给出：

   a b c d
1: 1 A 1 A
2: 1 A 2 B
3: 1 A 3 C
4: 2 B 1 A
5: 2 B 2 B
6: 2 B 3 C
7: 3 C 1 A
8: 3 C 2 B
9: 3 C 3 C

第二个选项也会改变原始data.tabled的列名。如果您不希望这样，则将第二个选项调整为：

d[, setnames(copy(d), c("c","d")), by = .(a, b)]

---

另外（包括我在bJust's answer 下的评论）您也可以使用merge，但仅在显式调用data.frame 方法时适用于data.table：

merge.data.frame(d, d, by = NULL)

Answer 2

我使用 data.frame（如果可以的话）而不是 data.table 的幼稚解决方案：

merge(d,d,by=NULL)

by=NULL 确保获取所有组合