Dépenses de consommation finale des ISBLSM (niveaux diffusables les plus fins) - T_CONSO_EFF_PRODUITS_ISBLSM

Données - INSEE

Auteur

François Geerolf

Last observation: 2025 (N = 147)

First observation: 1959 (N = 87)

Last data update: 08 sept. 2026, 14:35

Last compile: 24 sept. 2026, 01:46

Structure

Principaux produits (% du total)

Code 
`T_CONSO_EFF_PRODUITS_ISBLSM` |>
  filter(sheet == "MEURcour", code %in% top8) |>
  left_join(filter(tot17, sheet == "MEURcour") |> select(year, tot), by = "year") |>
  ggplot() + theme_minimal() + xlab("") + ylab("% de la dépense des ISBLSM") +
  geom_line(aes(x = year, y = value / tot, color = str_trunc(label, 45))) +
  scale_x_continuous(breaks = seq(1960, 2030, 10)) +
  scale_y_continuous(labels = percent_format(accuracy = 1)) +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(color = guide_legend(nrow = 4))

Par produit (2025, niveau 38 postes)

Code 
`T_CONSO_EFF_PRODUITS_ISBLSM` |>
  filter(sheet == "MEURcour", year == last_y, grepl("^38_", code)) |>
  mutate(label = reorder(str_trunc(label, 55), value)) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Mds €") +
  geom_col(aes(x = label, y = value / 1000), fill = "#2b6cb0") +
  coord_flip()

En volume (base 100 en 1980)

Code 
`T_CONSO_EFF_PRODUITS_ISBLSM` |>
  filter(sheet == "MEUR2020", code %in% top8) |>
  group_by(code) |>
  mutate(value = 100 * value / value[year == 1980]) |>
  ungroup() |>
  ggplot() + theme_minimal() + xlab("") + ylab("Volume (1980 = 100, échelle log)") +
  geom_line(aes(x = year, y = value, color = str_trunc(label, 45))) +
  scale_x_continuous(breaks = seq(1960, 2030, 10)) +
  scale_y_log10() +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(color = guide_legend(nrow = 4))

Prix (base 100 en 2020)

Code 
`T_CONSO_EFF_PRODUITS_ISBLSM` |>
  filter(sheet == "IPRIX2020", code %in% top8) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Prix (2020 = 100, échelle log)") +
  geom_line(aes(x = year, y = value, color = str_trunc(label, 45))) +
  scale_x_continuous(breaks = seq(1960, 2030, 10)) +
  scale_y_log10() +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(color = guide_legend(nrow = 4))

Table (2025, niveau 38 postes, Mds €)

Code 
`T_CONSO_EFF_PRODUITS_ISBLSM` |>
  filter(sheet == "MEURcour", year == last_y, grepl("^38_", code)) |>
  transmute(Produit = label, Code = code, `Mds €` = round(value / 1000, 1)) |>
  arrange(desc(`Mds €`)) |>
  print_table_conditional()
Produit Code Mds €
Services d'hébergement médico-social et social ; services d'action sociale sans hébergement 38_QB 33.6
Autres services 38_SZ 21.4
Services artistiques et du spectacle et services récréatifs 38_RZ 8.9
Services de l'enseignement 38_PZ 5.6