R中是否有类似expand.grid的函数，返回排列？

Question

为了更具体，这里有一个例子：

> expand.grid(5, 5, c(1:4,6),c(1:4,6))
   Var1 Var2 Var3 Var4
1     5    5    1    1
2     5    5    2    1
3     5    5    3    1
4     5    5    4    1
5     5    5    6    1
6     5    5    1    2
7     5    5    2    2
8     5    5    3    2
9     5    5    4    2
10    5    5    6    2
11    5    5    1    3
12    5    5    2    3
13    5    5    3    3
14    5    5    4    3
15    5    5    6    3
16    5    5    1    4
17    5    5    2    4
18    5    5    3    4
19    5    5    4    4
20    5    5    6    4
21    5    5    1    6
22    5    5    2    6
23    5    5    3    6
24    5    5    4    6
25    5    5    6    6

此数据框是根据提供的向量的所有组合创建的。我想从所有permutations 提供的向量中创建一个类似的数据框。请注意，每一行必须正好包含 2 个五，但不一定是第一个排成一行的两个。 谢谢。

Answer 1

下面的代码有效。 （依赖于 gtools 的排列）

comb <- t(as.matrix(expand.grid(5, 5, c(1:4,6),c(1:4,6))))
perms <- t(permutations(4,4))
ans <- apply(comb,2,function(x) x[perms])
ans <- unique(matrix(as.vector(ans), ncol = 4, byrow = TRUE))

Answer 2

在vegan 包中尝试?allPerms。