Last data update: 21 sept. 2026, 15:59
Last compile: 21 sept. 2026, 16:03
Structure
Financement de la CSBM par financeur
Code
`cns-financement` |>
filter(poste_niveau == 0, fin_niveau == 1) |>
ggplot() + geom_area(aes(x = annee, y = montants, fill = fin_lib)) +
theme_minimal() + xlab("") + ylab("Millions d'euros") +
scale_x_continuous(breaks = scales::pretty_breaks()) +
scale_y_continuous(labels = comma_format(big.mark = " ")) +
scale_fill_viridis_d() +
theme(legend.position = "bottom", legend.title = element_blank())
Part de chaque financeur dans la CSBM
Code
`cns-financement` |>
filter(poste_niveau == 0, fin_niveau == 1) |>
group_by(annee) |>
mutate(part = montants / sum(montants)) |>
ungroup() |>
ggplot() + geom_area(aes(x = annee, y = part, fill = fin_lib)) +
theme_minimal() + xlab("") + ylab("Part de la CSBM") +
scale_x_continuous(breaks = scales::pretty_breaks()) +
scale_y_continuous(labels = percent_format(accuracy = 1)) +
scale_fill_viridis_d() +
theme(legend.position = "bottom", legend.title = element_blank())
Financement par grand poste de soins
Code
`cns-financement` |>
filter(poste_niveau == 1, fin_niveau == 0) |>
ggplot() + geom_line(aes(x = annee, y = montants, color = poste_lib)) +
theme_minimal() + xlab("") + ylab("Millions d'euros") +
scale_x_continuous(breaks = scales::pretty_breaks()) +
scale_y_continuous(labels = comma_format(big.mark = " ")) +
scale_color_viridis_d() +
theme(legend.position = "bottom", legend.title = element_blank())
Structure du financement par poste, dernière année
Code
`cns-financement` |>
filter(poste_niveau == 1, fin_niveau == 1, annee == max(annee)) |>
ggplot() + geom_col(aes(x = poste_lib, y = montants, fill = fin_lib), position = "fill") +
coord_flip() +
theme_minimal() + xlab("") + ylab(paste("Part du financement,", max(`cns-financement`$annee))) +
scale_y_continuous(labels = percent_format(accuracy = 1)) +
scale_fill_viridis_d() +
theme(legend.position = "bottom", legend.title = element_blank())