根据分布拆分和分配值

Question

假设我在一个州的200个县中有一个oldPopulation的向量，在2018年有一个newPopulation的预测，例如20年的5000。

我想将5000个新人分为200个县组，以使每个组中的预计人口比例与现有县人口相当。

说我们现有的县人口分布如下：

oldPopulation <- abs(rnorm(200, mean = 100, sd = 50))

目标是向每个newPopulation添加正确比例的oldPopulation。

Answer 1

我想您只需要一个很好的老式算术：

oldPopulation <- abs(rnorm(200, mean = 100, sd = 50))

proportion <- oldPopulation/sum(oldPopulation)

newPopulation <- proportion*(sum(oldPopulation) + 5000)