Causes de décès - causes-de-deces

Données - DREES

Last data update: 21 sept. 2026, 15:48

Last compile: 21 sept. 2026, 15:48

Structure

Principales causes de décès

dernier_annee <- max(`causes-de-deces`$annee)

`causes-de-deces` |>
  filter(sexe == "Tous sexes", classe_age == "Tous âges", annee == dernier_annee, cause != "Toutes causes") |>
  slice_max(effectifs, n = 15) |>
  ggplot() + geom_col(aes(x = reorder(cause, effectifs), y = effectifs)) +
  coord_flip() +
  theme_minimal() + xlab("") + ylab(paste("Décès en", dernier_annee)) +
  scale_y_continuous(labels = comma_format(big.mark = " "))

Évolution du nombre de décès (toutes causes)

`causes-de-deces` |>
  filter(cause == "Toutes causes", classe_age == "Tous âges", sexe != "Tous sexes") |>
  ggplot() + geom_line(aes(x = annee, y = effectifs, color = sexe)) +
  theme_minimal() + xlab("") + ylab("Nombre de décès") +
  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())

Évolution du taux standardisé de mortalité (toutes causes)

`causes-de-deces` |>
  filter(cause == "Toutes causes", classe_age == "Tous âges", sexe != "Tous sexes") |>
  ggplot() + geom_line(aes(x = annee, y = tx_stand, color = sexe)) +
  theme_minimal() + xlab("") + ylab("Taux standardisé (pour 100 000)") +
  scale_x_continuous(breaks = scales::pretty_breaks()) +
  scale_color_viridis_d() +
  theme(legend.position = "bottom", legend.title = element_blank())

Principales causes selon le sexe

top_causes <- `causes-de-deces` |>
  filter(sexe == "Tous sexes", classe_age == "Tous âges", annee == dernier_annee, cause != "Toutes causes") |>
  slice_max(effectifs, n = 10) |>
  pull(cause)

`causes-de-deces` |>
  filter(cause %in% top_causes, classe_age == "Tous âges", sexe != "Tous sexes", annee == dernier_annee) |>
  ggplot() + geom_col(aes(x = reorder(cause, tx_stand), y = tx_stand, fill = sexe), position = "dodge") +
  coord_flip() +
  theme_minimal() + xlab("") + ylab(paste("Taux standardisé en", dernier_annee, "(pour 100 000)")) +
  scale_fill_viridis_d() +
  theme(legend.position = "bottom", legend.title = element_blank())

Décès par classe d’âge

`causes-de-deces` |>
  filter(cause %in% top_causes, sexe == "Tous sexes", classe_age != "Tous âges", annee == dernier_annee) |>
  ggplot() + geom_col(aes(x = reorder(cause, effectifs), y = effectifs, fill = classe_age)) +
  coord_flip() +
  theme_minimal() + xlab("") + ylab(paste("Décès en", dernier_annee)) +
  scale_y_continuous(labels = comma_format(big.mark = " ")) +
  scale_fill_viridis_d() +
  theme(legend.position = "bottom", legend.title = element_blank())