Last data update: 10 sept. 2026, 18:29
Last compile: 19 sept. 2026, 16:35
`taux-rar-horsto` |>
select(dernier_jour_du_mois, taux_impayes_fin_mois, taux_impayes_fin_mois_suivant,
taux_impayes_echeance_90_jours) |>
gather(variable, value, -dernier_jour_du_mois) |>
mutate(variable = recode(variable,
taux_impayes_fin_mois = "Fin de mois",
taux_impayes_fin_mois_suivant = "Fin de mois suivant",
taux_impayes_echeance_90_jours = "Échéance 90 jours")) |>
ggplot() + geom_line(aes(x = dernier_jour_du_mois, y = value / 100, color = variable)) +
theme_minimal() + xlab("") + ylab("") +
scale_x_date(date_breaks = "2 years", labels = date_format("%Y")) +
scale_y_continuous(labels = percent_format(accuracy = 0.1)) +
scale_color_viridis_d() +
theme(legend.position = "bottom", legend.title = element_blank(),
axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))
`taux-rar-horsto` |>
filter(!is.na(glissement_annuel_tx_fin_mois)) |>
ggplot() + geom_col(aes(x = dernier_jour_du_mois, y = glissement_annuel_tx_fin_mois / 100)) +
theme_minimal() + xlab("") + ylab("Glissement annuel (points)") +
scale_x_date(date_breaks = "2 years", labels = date_format("%Y")) +
scale_y_continuous(labels = percent_format(accuracy = 0.1)) +
theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))