Taux de restes à recouvrer hors taxation d’office, entreprises de 10 salariés ou plus - taux-rar-horsto-mensuels-entreprises-de-10-salaries-ou-plus

Données - ACOSS

Taux d’impayés (fin de mois)

Code
`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))

Glissement annuel du taux d’impayés (fin de mois)

Code
`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))