Перестановка / перестановка с повторением в 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)