Contribution au remboursement de la dette sociale (CRDS) (depuis 1996) - crds

Données - IPP

Auteur

François Geerolf

Info

Last data update: 01 aoû 2026, 21:19. Last compile: 17 aoû 2026, 21:53

CRDS

Code 
crds |>
  add_row(date = Sys.Date(), taux = 0.005) |>
  add_row(date = as.Date("1996-01-31"), taux = 0) |>
  add_row(date = as.Date("1970-01-31"), taux = 0) |>
  gather(variable, value, -date) |>
  group_by(variable) |>
  complete(date = seq.Date(min(date), max(date), by = "day")) |>
  fill(value) |>
  ggplot() + geom_line(aes(x = date, y = value, color = variable)) +
  
  theme_minimal() +
  scale_x_date(breaks = seq(1920, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.3, 0.8),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(0, 80, 0.1),
                     labels = percent_format(accuracy = 0.1),
                     limits = c(0, 0.01)) + 
  ylab("CRDS (%)") + xlab("")