R中重复的随机排列/置换

Question

我有一个名为Align1的数据行，它有10行和567列，看起来像这样

          1     2     3     4   ...
  Align1 aaa  gct    atc   tac
  Align2 aca  gct    atc   tag
  Align3 aaa  gca    atg   tag
   ...

我想对列进行混排（例如，按以下顺序排列：2、4、1、3）。我正在用这行来做：

Test <- Align1[,sample(ncol(Align1))]

最后，我希望重新整理1000个数据帧。我的问题是我想允许重复的列（例如：2、4、3、2），而我的脚本却不是这种情况。有人知道这样做的方法吗？谢谢

Answer 1

Test <- Align1[,sample(ncol(Align1), replace = TRUE)]

这里是一个如何创建一个列表的示例（在这种情况下），该列表包含10个数据帧子集以及3个可能重复的列：
replicate(10, mtcars[, sample(names(mtcars), 3, replace = TRUE)], simplify = FALSE)