# please download the Github version
# devtools::install_github("hadrilec/insee")
library(tidyverse)
library(insee)
dataset_list = get_dataset_list()
idbank_list = get_idbank_list()
df_idbank_list_selected =
idbank_list %>%
filter(nomflow == "CHOMAGE-TRIM-NATIONAL") %>% #Unemployment dataset
add_insee_title() %>%
filter(dim2 == "CTTXC") %>% #unemployment rate based on ILO standards
filter(dim4 == "FM") %>% # all France excluding overseas departements
filter(dim5 == 0) # men and women
list_idbank = df_idbank_list_selected %>% pull(idbank)
data = get_insee_idbank(list_idbank, startPeriod = "2000-01") %>% split_title()
ggplot(data, aes(x = DATE, y = OBS_VALUE, colour = TITLE_EN2)) +
geom_line() +
geom_point() +
ggtitle("French unemployment rate, by age") +
labs(subtitle = sprintf("Last updated : %s", data$TIME_PERIOD[1]))