如何生成组合矩阵

Question

我有 5 个项目，每个项目的值为 1 或 -1。我想生成一个由可能组合的行组成的矩阵。项目的顺序并不重要，组合的顺序也不重要。我知道我可以机械地完成此操作，但我认为必须有人知道生成此矩阵的快捷方式。如果这与其他问题类似，我深表歉意，但我找到的解决方案都不能以我的编程技能应用于这个特定问题。

Answer 1

expand.grid(c(-1,1), c(-1,1), c(-1,1), c(-1,1), c(-1,1))

Answer 2

概括格雷格的答案：

N   <- 5
vec <- c(-1, 1)
lst <- lapply(numeric(N), function(x) vec)
as.matrix(expand.grid(lst))

Answer 3

与 expand.grid 相比，data.table 包的替代方案稍快一些：

library(data.table)  
CJ(c(-1,1), c(-1,1), c(-1,1), c(-1,1), c(-1,1))