data-raw/prenoms_france.R

In ThinkR-open/prenoms: French Baby Names 1900-2021

library("readr")
library("dplyr")
library("stringr")
library("tidyr")

prenoms_france <- read_csv2( file.path( "data-raw", "nat2021.csv" ) ,
    # locale = locale(encoding = "iso-8859-1"),
    na = c("XX", "XXXX"),
    # col_types = "icicd",
    progress = FALSE
  ) %>%
  filter( !is.na(annais), preusuel != "_PRENOMS_RARES" ) %>%
  rename( n = nombre, sex = sexe, year = annais, name = preusuel ) %>%
  mutate(
    name = str_to_title(name),
    n = as.integer(n),
    sex = if_else( sex == 1, "M", "F")
  ) %>%
  select( year, sex, name, n ) %>%
  mutate( n = as.integer(n) ) %>%
  group_by(year,sex) %>%
  mutate(prop = n /sum(n)) %>%
  ungroup() %>%
  arrange(year,sex,name)


save( prenoms_france, file = "data/prenoms_france.rda", ascii = FALSE, compress = "xz", compression_level = 9)