根据分布拆分和分配值

Question

假设我有一个oldPopulation计数的矢量在2018年为一个州的200个县和newPopulation预测2025年，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)