r - R 中的元组遵循 Mathematica Tuples[list, n]

Question

我想在 R 中复制 Mathematica 的 Tuples[list, n] 的行为。例如，

Tuples[{0, 1}, 3] = 
{{0, 0, 0}, {0, 0, 1}, {0, 1, 0}, {0, 1, 1}, {1, 0, 0}, 
{1, 0, 1}, {1, 1, 0}, {1, 1, 1}}. 

在 R 中，我想要以下结果:

tuples(c(0,1), 3) = list( c(0, 0, 0), c(0, 0, 1), c(0, 1, 0), 
c(0, 1, 1), c(1, 0, 0), c(1, 0, 1), c(1, 1, 0), c(1, 1, 1) ) 

或类似的东西，我可以提取子列表 c(0,0,0) 等。

有这个命令吗？或者我该如何编程？提前致谢。

Answer 1

这是一种方法:

tuples <- function(x, n) do.call(expand.grid, rep(list(x), n))

tuples(0:1, 3)
#   Var1 Var2 Var3
# 1    0    0    0
# 2    1    0    0
# 3    0    1    0
# 4    1    1    0
# 5    0    0    1
# 6    1    0    1
# 7    0    1    1
# 8    1    1    1

我认为将其保留为矩阵或 data.frame 更有意义，因为所有元素都具有相同的长度。