data-raw/pop_revis.R

In INESSSQC/variation: Analyse Coefficient Variation Systématique

library(data.table)

pop_revis <- fread("//TCN00QUBC01439/Inesss/USR/bogu5550/GitHub/variation/useful_files/BD/AGE_EstimRevisAnnuel_2011_2017_v20180328.csv")
# Colonnes en lignes
pop_revis <- melt(pop_revis,
                  id.vars = c("Niveau géographique", "Code du territoire", "Territoire", "Année", "Statut", "Sexe"),
                  measure.vars = 7:98,
                  variable.name = "Age", value.name = "N")
# Modification des valeurs
pop_revis[
  Age == "Moins un an", Age := "0"
][
  Age == "90 ans ou plus", Age := "90+"
][
  Age == "Tous les âges", Age := "Tous"
][
  Sexe == "Masculin", Sexe := "M"
][
  Sexe == "Féminin", Sexe := "F"
]