生成1-10的随机偶数：现有R代码的简化方案咨询

嘿，你的循环代码确实能完成任务，但其实有更直接、高效的实现方式，完全不需要用循环反复抽样~

这里有两种简洁的方案：

方案一：直接从偶数集合中抽样 #

先构造1-10范围内的所有偶数，再从中随机选一个：

sample(seq(2, 10, by = 2), 1)

seq(2,10,by=2)会生成c(2,4,6,8,10)这个偶数向量，sample()直接从里面挑一个，一步到位，避免了循环中可能的多次无效抽样。

方案二：通过整数变换生成 #

先生成1-5的随机整数，再乘以2，结果自然就是1-10的偶数：

sample.int(5, 1) * 2

这个方法更巧妙，利用数学变换缩小抽样范围，计算成本也很低。

对比你的原代码：

repeat{ 
  value=sample.int(10,1) 
  if(value%%2==0){ break } 
}

虽然逻辑没问题，但它属于拒绝抽样——每次随机抽数，如果不是偶数就扔掉重来，极端情况下可能会多次重复抽样（虽然1-10里偶数占比50%，概率不高），而上面两种方法都是直接从目标结果里生成，更高效也更易读。

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