R如何排列数据帧的所有行，以便在列表中返回所有可能的行组合？

Question

我正在尝试生成数据框（或矩阵，如果这更容易的话）的所有可能的行排列，并将对象作为数据框/矩阵的列表或数组返回。我构建了一个模拟数据框，其尺寸与我正在使用的数据框相同。

test.df <- as.data.frame(matrix(1:80,nrow=16,ncol=5)

编辑：将组合更改为排列

Answer 1

v.df <- data.frame(symbol = c("a", "b", "c"), number = c(1,2,3))
v.df
##   symbol number
## 1      a      1
## 2      b      2
## 3      c      3

permutate.rows <- function(df) {
  k <- dim(df)[1] # number of rows
  index.df <- as.data.frame(t(permutations(n = k, r = k, v = 1:k)))
  res <- lapply(index.df, function(idx) df[idx, , drop = FALSE])
}

permutate.rows(v.df) 

给出所有置换 dfs 的列表：

$V1
  symbol number
1      a      1
2      b      2
3      c      3

$V2
  symbol number
1      a      1
3      c      3
2      b      2

$V3
  symbol number
2      b      2
1      a      1
3      c      3

$V4
  symbol number
2      b      2
3      c      3
1      a      1

$V5
  symbol number
3      c      3
1      a      1
2      b      2

$V6
  symbol number
3      c      3
2      b      2
1      a      1

使用 16 而不是 3 和您的数据框将其应用于您的示例。