R如何通过在特定时间以随机比例分割给定数字来生成样本数

Question

目标通过将设计的总数分配到特定部分（次）来创建随机数据集随机比例 .

例如

Given number 
=100

Divide in a specific times
n= 5

Random ratio : 5 
ratio = c(0.1,0.04,0.01,0.3,0.55) # assume there is a function to randomly generated this

Respectively equal to 
100*0.1= 10 ,
100*0.04 = 4,
100*0.01= 1,
100*0.3= 30,
100*0.55= 55

then the total after divided by this ratio will return back to given number 100.

解决方案被单独识别但不知道如何以有效的方式组合它们:

# generate random number within a range
sample(x:xx)
# generate number by only 1 decided ratio but NOT divided evenly based on a specific time .
seq(from=0, to=1, by=0.1)

Answer 1

这是一个示例函数，它将前 x 个数字拆分为所需的比率。我们可以确认它与 reduce.

一起正常工作

split_sample=function(x, ratio) {
  my_list=list()
  y=1:x
  for(i in 1:length(ratio)) {
    my_sample=sample(1:length(y), floor(ratio[i]*x))
    my_list=c(my_list, list(y[my_sample]))
    y=y[-my_sample]
  }
  return(my_list)
}
x=100
n=5
ratio = c(0.1,0.04,0.01,0.3,0.55)
my_list=split_sample(x, ratio)
my_list

[[1]]
 [1] 44 54 49 67 21 29 50 68 47 52

[[2]]
[1] 100  70  30  94

[[3]]
[1] 99

[[4]]
 [1] 25 31  3 32 71 83 78 11 36 23 86 93  9 37 74 81  8 95 39 45 92  4 10 48 82 64 63 79 72 96

[[5]]
 [1]  2 88 58 38 34 61 51 26 57 40 59 75 17 87 41 73 66 55 24  7 56 19 27 12 28  6 98 80 60 89  5 46
[33] 91 90 13 76 77 33 14 85 43 16 84 65 53 35 15 42 20  1 69 62 22 18 97

n_distinct(reduce(my_list, union))
100

R如何通过在特定时间以随机比例分割给定数字来生成样本数

R How to generate sample number by splitting a given number in a specific times with random ratio

random

r

sample