ret_etat |>
select(-taux_employeur_explicite.ati) |>
gather(variable, value, -date) |>
group_by(variable) |>
complete(date = seq.Date(min(date), max(date), by = "day")) |>
fill(value) |>
mutate(value = ifelse(date >= as.Date("2006-01-01") & variable == "taux_implicite", NA, value)) |>
left_join(variable, by = "variable") |>
ggplot() + geom_line(aes(x = date, y = value, color = Variable)) +
theme_minimal() +
scale_x_date(breaks = seq(1920, 2100, 2) |> paste0("-01-01") |> as.Date(),
labels = date_format("%Y")) +
theme(legend.position = c(0.3, 0.9),
legend.title = element_blank()) +
scale_y_continuous(breaks = 0.01*seq(0, 200, 10),
labels = percent_format()) +
ylab("Taux employeur (%)") + xlab("")