从n组数字生成x个随机数

Question

假设我在 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)

我怎样才能select说 2 个来自 r 的随机数，2 个来自 b 的随机数，1 个来自 y 的随机数和 1 个来自 g 的随机数？

我需要我的代码足够灵活，以便从每个列表中手动输入我需要多少个数字。我还希望最终输出只是 6 个随机数的列表，基于我的 selection.

Answer 1

将向量放入一个列表

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次

另一个解决方案是生成概率向量并将其作为 prob 参数传递给 sample。

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 

...

从n组数字生成x个随机数

Generate x random numbers from n groups of numbers

random

r

sample

样本x次

采样n次

采样1次