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

Question

目标通过将设计的TOTAL数分配到特定部分(次(来创建随机数据集具有随机比率。

例如

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