如何在R中无需生成全排列随机抽取排列样本？

如果要在不生成所有排列的前提下随机抽取样本，有两种实用方案：

方案一：使用arrangements包（推荐） #

这个包专门用于高效生成排列、组合，支持直接抽取随机样本，底层不会预先生成全部排列，非常适合大整数集的场景。

1. 先安装并加载包：

install.packages("arrangements")
library(arrangements)

2. 生成随机排列样本：
   比如从1到10的整数集中随机抽取5个全排列：

# n是元素总数，k设为n表示全排列，sample指定抽取的样本数量
permutations(n = 10, k = 10, sample = 5)

方案二：Base R原生实现（无需额外包） #

如果不想安装第三方包，可以通过循环生成随机排列，小样本场景下足够高效：

# 自定义函数：从1:n中抽取m个随机全排列
random_perms <- function(n, m) {
  # 初始化结果矩阵
  result <- matrix(nrow = m, ncol = n)
  # 逐个生成随机排列
  for (i in 1:m) {
    result[i, ] <- sample(n)
  }
  # 可选：如果需要避免重复（仅当m接近总排列数时才需要）
  result <- unique(result)
  # 补充生成直到达到指定数量
  while (nrow(result) < m) {
    new_perm <- sample(n)
    if (!any(apply(result, 1, function(x) all(x == new_perm)))) {
      result <- rbind(result, new_perm)
    }
  }
  return(result)
}

# 使用示例：从1-8中抽取3个随机排列
random_perms(8, 3)

注意：如果抽取的样本数量m远小于总排列数，重复概率极低，可以去掉去重和补充的逻辑，进一步提升效率。

内容的提问来源于stack exchange，提问作者Gaurav Bansal