Les salaires dans la fonction publique de l’État en 2022

Data - INSEE

Figure 2

ip2016[[2]][[3]] %>%
  select(date = 1, IPC = 2) %>%
  mutate(date = as.Date(paste0(date, "-01-01"))) %>%
  left_join(IPC_IPCH_ratio, by = "date") %>%
  mutate(IPCH = IPC/ratio) %>%
  select(-ratio) %>%
  gather(variable, value, -date) %>%
  mutate(variable = factor(variable, levels = c("IPCH", "IPC"),
                           labels = c("Euros constants 2022 au sens de l'IPCH (Eurostat)",
                                      "Euros constants 2022 au sens de l'IPC (Insee)"))) %>%
  ggplot(.) + theme_minimal() + xlab("") + ylab("Salaire mensuel net moyen en euros constants 2022") + 
  theme(legend.title = element_blank(),
        legend.position = c(0.5, 0.9)) +
  scale_x_date(breaks = seq(1920, 2100, 1) %>% paste0("-01-01") %>% as.Date(),
               labels = date_format("%Y")) +
  geom_line(aes(x = date, y = value, color = variable)) +
  scale_y_log10(breaks = seq(100, 6000, 10),
                labels = dollar_format(prefix = "", accuracy = 1, suffix = " €")) +
  geom_label(data = . %>% filter(date %in% c(max(date), min(date))), aes(x = date, y = value, label = paste0(round(value, 1), " €"), color = variable))