将两个变量相互赋值，不重复 |在 R 中创建两个组

Question

我想随机分配成员。然而，这个问题似乎比最初预期的要棘手。 combn和sampledon'r 因为重复而工作。如果一个成员被分配给另一个成员，则不能以第三个身份结束。

我有一个非常粗鲁的解决方法来说明我想要什么：

groupmembers <- 10
set <- 1:groupmembers
df <- data.frame(g1=set, g2=NA)

for(i in 1:(nrow(df)/2)){
    set.seed(137)
    draw <- sample(set, 1)
    while(draw==i) draw <- sample(set, 1)

    df[i,2] <- draw

    df[which(df[,1]==draw),2] <- df$g1[i]

    set <- set[-which(set %in% as.numeric(df[i,]))]
}

   g1 g2
1   1  7
2   2  8
3   3  6
4   4  9
5   5 10
6   6  3
7   7  1
8   8  2
9   9  4
10 10  5

有了这个set.seed，我得到了我想要的。但是，如果我更改set.seed，我的df 中可能会或可能不会以NA 结束。有没有更优雅的解决方案？ 输出可以是成对的list 或data.frame 等。

谢谢

编辑

我可能不仅会得到NA，还会得到非镜像对，我想防止这种情况发生。

Answer 1

这个呢：

groupmembers <- 10
set <- 1:groupmembers

df <- data.frame(g1 = set, g2 = set)
while(any(df[,1] == df[,2])){
    df[,2] <- sample(df[,2])
}

编辑：

或者，如果您只想获得“相等的对”（例如 10/2 和 2/10），您可以试试这个：

group1 <- set[sample(set,length(set)/2)]
group2 <- set[!set %in% group1]

df <- data.frame(g1 = c(group1,group2), f2 = c(group2,group1))

   g1 f2
1  10  2
2   3  4
3   7  5
4   9  6
5   1  8
6   2 10
7   4  3
8   5  7
9   6  9
10  8  1