如何生成向量元素的所有二元组合矩阵？dplyr管道实现问询

你要实现的是从向量中生成不考虑顺序的两两无重复组合，用dplyr管道完全可以做到，下面是具体的实现代码和步骤解释：

首先加载tidyverse包（dplyr是其中一部分，我们还需要用到tidyr的crossing函数）：

library(tidyverse)

定义你的向量：

A <- c(1,2,3,4)

用dplyr管道生成目标矩阵：

result <- tibble(B = A) %>%
  # 生成B和C的所有笛卡尔积（所有两两排列）
  crossing(C = A) %>%
  # 过滤掉B >= C的行，只保留顺序为B < C的组合，避免重复
  filter(B < C) %>%
  # 转换为你需要的矩阵格式
  as.matrix()

# 查看结果
result

运行后得到的结果正好是你想要的：

B C
[1,] 1 2
[2,] 1 3
[3,] 1 4
[4,] 2 3
[5,] 2 4
[6,] 3 4

步骤解释 #

• 先用tibble(B = A)把向量转成单列的tibble，方便后续管道操作；
• crossing(C = A)会生成B列和C列的所有可能配对（包括(1,1)、(2,1)这类重复或相同元素的组合）；
• filter(B < C)是关键：通过这个条件，我们只保留B值小于C值的行，这样就排除了重复的组合（比如不会同时出现(1,2)和(2,1)），也排除了元素和自身的配对；
• 最后用as.matrix()把tibble转换成矩阵格式，满足你的输出需求。

补充：基础R的快捷方法 #

如果你不需要严格用dplyr管道，基础R的combn函数可以直接生成这种组合，代码更简洁：

t(combn(A, 2))

这个函数直接生成所有两两组合的矩阵，转置后就和你要的结果一致。

拓展：生成更多元素的组合 #

如果你的需求是生成3个或更多元素的组合，比如从A中选3个元素的所有无重复组合，用dplyr的话可以类似操作：

tibble(x1 = A) %>%
  crossing(x2 = A, x3 = A) %>%
  filter(x1 < x2 < x3) %>%
  as.matrix()

这样就能得到所有3个元素的不重复组合。

内容的提问来源于stack exchange，提问作者Gabriele Midolo