data-raw/standard_population.R

## code to prepare `standard_population` dataset goes here
library(tidyverse)

#insert data

standard_population <- data.frame(
  stringsAsFactors = FALSE,
  check.names = FALSE,
  standard_pop = c("European Standard Population 1976",
                   "European Standard Population 1976","European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976","European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976","European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976","European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976","European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976","European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976","European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976","European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976","European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976","European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976","European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976","European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 1976","European Standard Population 1976",
                   "European Standard Population 1976",
                   "European Standard Population 2013",
                   "European Standard Population 2013","European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013","European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013","European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013","European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013","European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013","European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013","European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013","European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013","European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013","European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013","European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013","European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013","European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013","European Standard Population 2013",
                   "European Standard Population 2013",
                   "European Standard Population 2013",
                   "World Standard Population 1960","World Standard Population 1960",
                   "World Standard Population 1960",
                   "World Standard Population 1960","World Standard Population 1960",
                   "World Standard Population 1960",
                   "World Standard Population 1960",
                   "World Standard Population 1960","World Standard Population 1960",
                   "World Standard Population 1960",
                   "World Standard Population 1960","World Standard Population 1960",
                   "World Standard Population 1960",
                   "World Standard Population 1960",
                   "World Standard Population 1960","World Standard Population 1960",
                   "World Standard Population 1960",
                   "World Standard Population 1960","World Standard Population 1960",
                   "World Standard Population 1960",
                   "World Standard Population 1960",
                   "World Standard Population 1960","World Standard Population 1960",
                   "World Standard Population 1960",
                   "World Standard Population 1960","World Standard Population 1960",
                   "World Standard Population 1960",
                   "World Standard Population 1960",
                   "World Standard Population 1960","World Standard Population 1960",
                   "World Standard Population 1960",
                   "World Standard Population 1960",
                   "World Standard Population 1960","World Standard Population 1960",
                   "World Standard Population 1960",
                   "World Standard Population 1960","World Standard Population 1960",
                   "World Standard Population 1960",
                   "World Standard Population 1960",
                   "World Standard Population 1960","World Standard Population 1960",
                   "World Standard Population 1960",
                   "World Standard Population 1960","World Standard Population 1960",
                   "World Standard Population 1960",
                   "World Standard Population 1960",
                   "World Standard Population 1960","World Standard Population 1960",
                   "World Standard Population 1960",
                   "World Standard Population 1960","World Standard Population 1960",
                   "World Standard Population 1960",
                   "World Standard Population 1960",
                   "World Standard Population 1960","World Standard Population 1960",
                   "World Standard Population 1960",
                   "World Standard Population 1960","World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000","World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000","World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000","World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000","World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000","World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000","World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000","World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000","World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000","World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000","World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000","World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000","World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000","World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000","World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000","World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000","World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000","World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000","World Standard Population 2000",
                   "World Standard Population 2000",
                   "World Standard Population 2000","World Standard Population 2000",
                   "World Standard Population 2000"),
  sex = c("Female",
          "Female","Female","Female","Female",
          "Female","Female","Female","Female",
          "Female","Female","Female","Female",
          "Female","Female","Female",
          "Female","Female","Female","Male","Male",
          "Male","Male","Male","Male",
          "Male","Male","Male","Male",
          "Male","Male","Male","Male","Male",
          "Male","Male","Male","Male",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Female","Female","Female","Female",
          "Female","Female","Female","Female",
          "Female","Female","Female","Female",
          "Female","Female","Female",
          "Female","Female","Female","Female",
          "Female","Female","Male","Male",
          "Male","Male","Male","Male","Male",
          "Male","Male","Male","Male",
          "Male","Male","Male","Male","Male",
          "Male","Male","Male","Male",
          "Male","Total - All sexes",
          "Total - All sexes","Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Female","Female","Female",
          "Female","Female","Female","Female",
          "Female","Female","Female","Female",
          "Female","Female","Female","Female",
          "Female","Female","Female",
          "Female","Male","Male","Male","Male",
          "Male","Male","Male","Male",
          "Male","Male","Male","Male","Male",
          "Male","Male","Male","Male",
          "Male","Male","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Female","Female",
          "Female","Female","Female","Female",
          "Female","Female","Female","Female",
          "Female","Female","Female","Female",
          "Female","Female","Female",
          "Female","Female","Female","Female",
          "Female","Female","Male","Male",
          "Male","Male","Male","Male","Male",
          "Male","Male","Male","Male",
          "Male","Male","Male","Male","Male",
          "Male","Male","Male","Male",
          "Male","Male","Male",
          "Total - All sexes","Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes",
          "Total - All sexes","Total - All sexes","Total - All sexes",
          "Total - All sexes"),
  age = c("00 - 04",
          "05 - 09","10 - 14","15 - 19","20 - 24",
          "25 - 29","30 - 34","35 - 39",
          "40 - 44","45 - 49","50 - 54","55 - 59",
          "60 - 64","65 - 69","70 - 74",
          "75 - 79","80 - 84","85 - 120",
          "Total - All age groups","00 - 04","05 - 09",
          "10 - 14","15 - 19","20 - 24","25 - 29",
          "30 - 34","35 - 39","40 - 44",
          "45 - 49","50 - 54","55 - 59","60 - 64",
          "65 - 69","70 - 74","75 - 79",
          "80 - 84","85 - 120","Total - All age groups",
          "00 - 04","05 - 09","10 - 14",
          "15 - 19","20 - 24","25 - 29","30 - 34",
          "35 - 39","40 - 44","45 - 49","50 - 54",
          "55 - 59","60 - 64","65 - 69",
          "70 - 74","75 - 79","80 - 84","85 - 120",
          "Total - All age groups","00 - 04",
          "05 - 09","10 - 14","15 - 19","20 - 24",
          "25 - 29","30 - 34","35 - 39",
          "40 - 44","45 - 49","50 - 54","55 - 59",
          "60 - 64","65 - 69","70 - 74",
          "75 - 79","80 - 84","85 - 120","85 - 89",
          "90 - 120","Total - All age groups",
          "00 - 04","05 - 09","10 - 14","15 - 19",
          "20 - 24","25 - 29","30 - 34",
          "35 - 39","40 - 44","45 - 49","50 - 54",
          "55 - 59","60 - 64","65 - 69",
          "70 - 74","75 - 79","80 - 84","85 - 120",
          "85 - 89","90 - 120",
          "Total - All age groups","00 - 04","05 - 09","10 - 14",
          "15 - 19","20 - 24","25 - 29",
          "30 - 34","35 - 39","40 - 44","45 - 49",
          "50 - 54","55 - 59","60 - 64",
          "65 - 69","70 - 74","75 - 79","80 - 84",
          "85 - 120","85 - 89","90 - 120",
          "Total - All age groups","00 - 04","05 - 09",
          "10 - 14","15 - 19","20 - 24",
          "25 - 29","30 - 34","35 - 39","40 - 44",
          "45 - 49","50 - 54","55 - 59",
          "60 - 64","65 - 69","70 - 74","75 - 79",
          "80 - 84","85 - 120",
          "Total - All age groups","00 - 04","05 - 09","10 - 14",
          "15 - 19","20 - 24","25 - 29",
          "30 - 34","35 - 39","40 - 44","45 - 49",
          "50 - 54","55 - 59","60 - 64","65 - 69",
          "70 - 74","75 - 79","80 - 84",
          "85 - 120","Total - All age groups","00 - 04",
          "05 - 09","10 - 14","15 - 19",
          "20 - 24","25 - 29","30 - 34","35 - 39",
          "40 - 44","45 - 49","50 - 54",
          "55 - 59","60 - 64","65 - 69","70 - 74",
          "75 - 79","80 - 84","85 - 120",
          "Total - All age groups","00 - 04","05 - 09",
          "10 - 14","15 - 19","20 - 24",
          "25 - 29","30 - 34","35 - 39","40 - 44",
          "45 - 49","50 - 54","55 - 59",
          "60 - 64","65 - 69","70 - 74","75 - 79",
          "80 - 84","85 - 120","85 - 89",
          "90 - 94","95 - 99","99 - 120",
          "Total - All age groups","00 - 04","05 - 09",
          "10 - 14","15 - 19","20 - 24","25 - 29",
          "30 - 34","35 - 39","40 - 44",
          "45 - 49","50 - 54","55 - 59","60 - 64",
          "65 - 69","70 - 74","75 - 79",
          "80 - 84","85 - 120","85 - 89","90 - 94",
          "95 - 99","99 - 120",
          "Total - All age groups","00 - 04","05 - 09","10 - 14",
          "15 - 19","20 - 24","25 - 29",
          "30 - 34","35 - 39","40 - 44","45 - 49",
          "50 - 54","55 - 59","60 - 64",
          "65 - 69","70 - 74","75 - 79","80 - 84",
          "85 - 120","85 - 89","90 - 94",
          "95 - 99","99 - 120","Total - All age groups"),
  population_n = c(8000,7000,7000,7000,
                   7000,7000,7000,7000,7000,7000,7000,6000,5000,
                   4000,3000,2000,1000,1000,1e+05,8000,7000,
                   7000,7000,7000,7000,7000,7000,7000,7000,7000,
                   6000,5000,4000,3000,2000,1000,1000,1e+05,16000,
                   14000,14000,14000,14000,14000,14000,14000,
                   14000,14000,14000,12000,10000,8000,6000,4000,
                   2000,2000,2e+05,5000,5500,5500,5500,6000,6000,
                   6500,7000,7000,7000,7000,6500,6000,5500,5000,
                   4000,2500,2500,1500,1000,1e+05,5000,5500,
                   5500,5500,6000,6000,6500,7000,7000,7000,7000,
                   6500,6000,5500,5000,4000,2500,2500,1500,1000,
                   1e+05,10000,11000,11000,11000,12000,12000,13000,
                   14000,14000,14000,14000,13000,12000,11000,
                   10000,8000,5000,5000,3000,2000,2e+05,12000,
                   10000,9000,9000,8000,8000,6000,6000,6000,6000,
                   5000,4000,4000,3000,2000,1000,500,500,1e+05,
                   12000,10000,9000,9000,8000,8000,6000,6000,6000,
                   6000,5000,4000,4000,3000,2000,1000,500,500,
                   1e+05,24000,20000,18000,18000,16000,16000,
                   12000,12000,12000,12000,10000,8000,8000,6000,4000,
                   2000,1000,1000,2e+05,8856.9,8687,8597,8467,
                   8217.1,7927.2,7607.3,7147.5,6587.7,6037.9,
                   5368.1,4548.4,3718.7,2959,2209.2,1519.5,909.7,634.8,
                   439.8,150,40,5,1e+05,8856.9,8687,8597,8467,
                   8217.1,7927.2,7607.3,7147.5,6587.7,6037.9,
                   5368.1,4548.4,3718.7,2959,2209.2,1519.5,909.7,
                   634.8,439.8,150,40,5,1e+05,17713.8,17374,17194,
                   16934,16434.2,15854.4,15214.6,14295,13175.4,
                   12075.8,10736.2,9096.8,7437.4,5918,4418.4,3039,
                   1819.4,1269.6,879.6,300,80,10,2e+05),
  group_proportion = c(0.08,0.07,0.07,0.07,
                       0.07,0.07,0.07,0.07,0.07,0.07,0.07,0.06,0.05,
                       0.04,0.03,0.02,0.01,0.01,1,0.08,0.07,0.07,
                       0.07,0.07,0.07,0.07,0.07,0.07,0.07,0.07,0.06,
                       0.05,0.04,0.03,0.02,0.01,0.01,1,0.08,0.07,
                       0.07,0.07,0.07,0.07,0.07,0.07,0.07,0.07,0.07,
                       0.06,0.05,0.04,0.03,0.02,0.01,0.01,1,0.05,
                       0.055,0.055,0.055,0.06,0.06,0.065,0.07,0.07,
                       0.07,0.07,0.065,0.06,0.055,0.05,0.04,0.025,0.025,
                       0.015,0.01,1,0.05,0.055,0.055,0.055,0.06,
                       0.06,0.065,0.07,0.07,0.07,0.07,0.065,0.06,0.055,
                       0.05,0.04,0.025,0.025,0.015,0.01,1,0.05,
                       0.055,0.055,0.055,0.06,0.06,0.065,0.07,0.07,0.07,
                       0.07,0.065,0.06,0.055,0.05,0.04,0.025,0.025,
                       0.015,0.01,1,0.12,0.1,0.09,0.09,0.08,0.08,
                       0.06,0.06,0.06,0.06,0.05,0.04,0.04,0.03,0.02,
                       0.01,0.005,0.005,1,0.12,0.1,0.09,0.09,0.08,
                       0.08,0.06,0.06,0.06,0.06,0.05,0.04,0.04,0.03,
                       0.02,0.01,0.005,0.005,1,0.12,0.1,0.09,0.09,
                       0.08,0.08,0.06,0.06,0.06,0.06,0.05,0.04,0.04,
                       0.03,0.02,0.01,0.005,0.005,1,0.088569,0.08687,
                       0.08597,0.08467,0.082171,0.079272,0.076073,
                       0.071475,0.065877,0.060379,0.053681,0.045484,
                       0.037187,0.02959,0.022092,0.015195,0.009097,0.006348,
                       0.004398,0.0015,4e-04,5e-05,1,0.088569,0.08687,
                       0.08597,0.08467,0.082171,0.079272,0.076073,
                       0.071475,0.065877,0.060379,0.053681,0.045484,0.037187,
                       0.02959,0.022092,0.015195,0.009097,0.006348,
                       0.004398,0.0015,4e-04,5e-05,1,0.088569,0.08687,
                       0.08597,0.08467,0.082171,0.079272,0.076073,
                       0.071475,0.065877,0.060379,0.053681,0.045484,0.037187,
                       0.02959,0.022092,0.015195,0.009097,0.006348,
                       0.004398,0.0015,4e-04,5e-05,1)
)

#label dataset
standard_population <- standard_population %>%
  dplyr::mutate(standard_pop = as.factor(standard_pop),
         sex = as.factor(sex)) %>%
  #add variable labels
  sjlabelled::var_labels(standard_pop = "Standard Population",
             sex = "Sex",
             age = "Age group",
             population_n = "Absolute Population number in standard population age group",
             group_proportion = "Proportion of age-group in gender-specific total population"
  ) %>%
  dplyr::arrange(standard_pop, sex, age, population_n, group_proportion)

usethis::use_data(standard_population, overwrite = TRUE)
marianschmidt/msSPChelpR documentation built on Feb. 1, 2024, 6:45 a.m.