Question

我在R中编写一个算法来随机配对，但这对中的人不能来自同一个团队（团队）。

我开始创建一个所有人的nxn矩阵。我标记为0表示无法配对的人（如果他们在同一个团队中），否则为1。

问题： 我现在需要从每行中符合条件的人（所有1个人）列表中进行抽样，并记下配对，并确保该对中的两个人现在不能与另一个人配对。

e.g。

名称 - 团队

A - 1

B - 2

C - 3

D - 4

E - 1

F - 2

G - 1

  A B C D E F G
A 0 1 1 1 0 1 0
B 1 0 1 1 1 0 1
C 1 1 0 1 1 1 1
D 1 1 1 0 1 1 1
E 0 1 1 1 0 1 0
F 1 0 1 1 1 0 1
G 0 1 1 1 0 1 0

我意识到如果我们进入一个没有人可以匹配在一起的阶段，这个算法可能会卡住，所以我想在计算机运行5分钟时合并一个计时器来重启。

很高兴考虑您认为可能更合适的任何其他匹配算法。

我已经看过堆栈溢出的类似问题（例如Sampling column values in a matrix, without replacement），但它们似乎都没有解决不同组人员配对的问题。

谢谢。

Answer 1

尝试

 (!tcrossprod(table(df1)))+0L

数据

df1 <- structure(list(Name = c("A", "B", "C", "D", "E", "F", "G"), 
Team = c(1L, 
2L, 3L, 4L, 1L, 2L, 1L)), .Names = c("Name", "Team"),
 class =  "data.frame", row.names = c(NA, -7L))

使用R随机配对不在同一组中的元素

1 个答案:

数据