Le chômage partiel

Data - DARES

Employés Activité Partielle

salaries_AP_secteur %>%
  filter(a17 %in% c("C1", "C2", "C3", "C4", "C5", "DE")) %>%
  filter(date >= as.Date("2020-12-01")) %>%
  ggplot() + geom_line(aes(x = date, y = value, color = A17)) + 
  theme_minimal() + xlab("") + ylab("Employés Activité Partielle ('000)") +
  scale_x_date(breaks = "1 month",
               labels = date_format("%b %y")) +
  scale_y_continuous(breaks = seq(0, 10000, 10)) +
  scale_color_manual(values = viridis(7)[1:6]) +
  theme(legend.position = c(0.5, 0.8),
        legend.title = element_blank())

ETP activité partielle

ETP_AP_secteur %>%
  filter(a17 %in% c("C1", "C2", "C3", "C4", "C5", "DE")) %>%
  filter(date >= as.Date("2020-12-01")) %>%
  ggplot() + geom_line(aes(x = date, y = value, color = A17)) + 
  theme_minimal() + xlab("") + ylab("ETP Activité Partielle ('000)") +
  scale_x_date(breaks = "1 month",
               labels = date_format("%b %y")) +
  scale_y_continuous(breaks = seq(0, 10000, 10)) +
  theme(legend.position = c(0.5, 0.8),
        legend.title = element_blank())