TCRED - Effectifs de la fonction publique de l’État - TCRED-TRAVAIL-EMPLOI-EFF-FPE

Data - INSEE

Auteur

François Geerolf

Info

LAST_UPDATE

Code 
`TCRED-TRAVAIL-EMPLOI-EFF-FPE` %>%
  group_by(LAST_UPDATE) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
LAST_UPDATE Nobs
2025-08-29 13689

LAST_DOWNLOAD

LAST_DOWNLOAD
2025-11-15

LAST_COMPILE

LAST_COMPILE
2025-11-16

Champ

TITLE_FR

Code 
`TCRED-TRAVAIL-EMPLOI-EFF-FPE` %>%
  group_by(IDBANK, TITLE_FR) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

MINISTERES

Code 
`TCRED-TRAVAIL-EMPLOI-EFF-FPE` %>%
  left_join(MINISTERES, by = "MINISTERES") %>%
  group_by(MINISTERES, Ministeres) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
MINISTERES Ministeres Nobs
EESR Éducation, Enseignement supérieur et recherche 3042
TOT Total 3042
ASST Affaires Sociales, Santé, Travail 1521
AUT-MIN Autres ministères 1521
EFI Économie, Finances et Industrie 1521
JUST Justice 1521
LTDD Logement, Transports et Développement Durable 1521

REF_AREA

Code 
`TCRED-TRAVAIL-EMPLOI-EFF-FPE` %>%
  group_by(REF_AREA) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

SEXE

Code 
`TCRED-TRAVAIL-EMPLOI-EFF-FPE` %>%
  left_join(SEXE, by = "SEXE") %>%
  group_by(SEXE, Sexe) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
SEXE Sexe Nobs
0 Ensemble 10647
2 Femmes 3042

TIME_PERIOD / date

Code 
`TCRED-TRAVAIL-EMPLOI-EFF-FPE` %>%
  group_by(TIME_PERIOD) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(TIME_PERIOD)) %>%
  print_table_conditional()
TIME_PERIOD Nobs
2023 1053
2022 1053
2021 1053
2020 1053
2019 1053
2018 1053
2017 1053
2016 1053
2015 1053
2014 1053
2013 1053
2012 1053
2011 1053

Sectoriel par département (2011)

Paris, Seine-Saint-Denis, Hauts-de-Seine

Code 
`TCRED-TRAVAIL-EMPLOI-EFF-FPE` %>%
  filter(SEXE %in% c("0"),
         MINISTERES == "TOT",
         REF_AREA %in% c("D92", "D93", "D94")) %>%
  year_to_date %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = REF_AREA, linetype = REF_AREA)) +
  xlab("") + ylab("") +  theme_minimal() +
  scale_x_date(breaks = seq(1960, 2020, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 120, 1),
                labels = percent_format(accuracy = 1)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  theme(legend.position = c(0.8, 0.9),
        legend.title = element_blank())