    library(tidyverse)
    library(insee)

    dataset_list = get_dataset_list()

    df_idbank_list_selected =
      get_idbank_list("CHOMAGE-TRIM-NATIONAL") %>% #Unemployment dataset
      add_insee_title() %>%
      filter(INDICATEUR == "CTTXC") %>% #unemployment rate based on ILO standards
      filter(REF_AREA == "FM") %>%  # all France excluding overseas departements
      filter(SEXE == 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]))