在for循环中调用sample()函数报错：‘无效的第一个参数’求助

错误原因 #

你的代码触发错误的核心问题有两个：

• 循环次数设置错误：q是列表总长度，循环1:q会执行q次，完全不符合“每次取10个直到取完”的需求，且后期候选集数量不足时仍会尝试取10个元素。
• Sample参数未动态调整：当剩余候选元素数量小于10时，sample(candidates,10)在默认无放回（replace=FALSE）的规则下，无法从少于10个元素中抽取10个不重复值，直接触发参数错误。

修正方案 #

方案1：高效分组抽取（推荐） #

直接先对整个列表随机打乱，再按每10个一组分割，逻辑简洁且性能更优：

# 示例：假设列表长度n=23，可替换为你的实际数值
n <- 23
indeces <- 1:n
# 随机打乱整个序列
shuffled_ind <- sample(indeces, length(indeces))
# 按每10个一组分割，最后一组自动适配剩余元素数量
groups <- split(shuffled_ind, ceiling(seq_along(shuffled_ind)/10))

# 遍历每组执行你的业务逻辑
for (group in groups) {
  # 此处替换为你处理当前抽取结果的代码
  print(group)
}

方案2：修正原有跟踪逻辑 #

如果要保留你原有的“跟踪已使用元素”的思路，需调整循环次数和抽取数量：

n <- 23
indeces <- 1:n
indeces_used <- c()
# 计算需要循环的次数：总长度除以10向上取整
total_groups <- ceiling(length(indeces)/10)

for (i in 1:total_groups) {
  # 获取未被使用的候选元素
  candidates <- indeces[!indeces %in% indeces_used]
  # 动态确定抽取数量：取10和剩余元素数的较小值
  sample_size <- min(10, length(candidates))
  # 抽取元素
  ind <- sample(candidates, sample_size)
  # 更新已使用元素列表
  indeces_used <- c(indeces_used, ind)
  
  # 此处替换为你处理当前抽取结果的代码
  print(ind)
}

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