Разделить и распределить значения в соответствии с распределением

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)