假设我在 R 中有以下数字列表,如何通过指定每组中我需要的数量来选择 6 个随机数字?
r<-c(1,2,3,4,5,6,7,8,9,10)
b<-c(11,12,13,14,15,16,17,18,19,20)
y<-c(21,22,23,24,25,26,27,28,29,30)
g<-c(31,32,33,34,35,36,37,38,39,40)
我如何选择,比如从 r 中选择 2 个随机数,从 b 中选择 2 个随机数,从 y 中选择 1 个随机数,从 g 中选择 1 个随机数?
我需要我的代码足够灵活,能够手动输入每个列表中我需要的数字。我还希望最终输出只是基于我的选择的 6 个随机数的列表。
最佳答案
将向量放入一个列表
foo <- list(
c(1,2,3,4,5,6,7,8,9,10),
c(11,12,13,14,15,16,17,18,19,20),
c(21,22,23,24,25,26,27,28,29,30),
c(31,32,33,34,35,36,37,38,39,40)
)
采样 x 次
如果您不介意替换,则生成另一个绘制向量(指定从哪个列表条目进行采样)并迭代此向量。
bar <- c(1, 1, 2, 2, 3, 4)
sapply(bar, function(x) sample(foo[[x]], 1))
采样n次
如果您不想替换,则只需从每个列表条目中采样一次。为此,您必须使用所需的抽奖次数来命名列表条目,并迭代列表(为每个条目提取名称并采样该数字)。
names(foo) <- c(2, 2, 1, 1)
unlist(sapply(seq_along(foo), function(x) sample(foo[[x]], names(foo[x]))))
采样1次
另一个解决方案是生成概率向量并将其作为 sample
中的 prob
参数传递。
sample(unlist(foo), length(bar),
prob = rep(table(bar) / length(bar) / lengths(foo), lengths(foo)))
说明:
我们需要每个条目中有多少个样本:table(bar)
1 2 3 4
2 2 1 1
为每个条目分配一个概率:table(bar)/length(bar)
1 2 3 4
0.3333333 0.3333333 0.1666667 0.1666667
给出每个数字被采样的概率:rep(table(bar)/length(bar)/lengths(foo), lengths(foo))
...
2 2 2 2 2 2 2 2 2 2
0.03333333 0.03333333 0.03333333 0.03333333 0.03333333 0.03333333 0.03333333 0.03333333 0.03333333 0.03333333
3 3 3 3 3 3 3 3 3 3
0.01666667 0.01666667 0.01666667 0.01666667 0.01666667 0.01666667 0.01666667 0.01666667 0.01666667 0.01666667
...
关于r - 从 n 组数字中生成 x 个随机数,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/52127058/