# single year
library(dplyr)
m <- korea_reg %>%
filter(year == 2020,
orig != dest) %>%
pull(flow) %>%
sum()
m
p <- korea_pop %>%
filter(year == 2020) %>%
pull(population) %>%
sum()
p
index_intensity(mig_total = m, pop_total = p, n = n_distinct(korea_pop$region))
# multiple years
mm <- korea_reg %>%
group_by(year) %>%
filter(orig != dest) %>%
summarise(m = sum(flow))
mm
pp <- korea_pop %>%
group_by(year) %>%
summarise(p = sum(population))
pp
library(purrr)
library(tidyr)
mm %>%
left_join(pp) %>%
mutate(i = map2(.x = m, .y = p,
.f = ~index_intensity(mig_total = .x,
pop_total = .y,
n = n_distinct(korea_pop$region),
long = FALSE))) %>%
unnest(cols = i)
Run the code above in your browser using DataLab