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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.