5.213-215 - Dépense de consommation finale des institutions sans but lucratif au service des ménages par produit - T_5213_5215

Données - INSEE

Auteur

François Geerolf

Last observation: 2025 (N = 48)

First observation: 1949 (N = 12)

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

Last compile: 24 sept. 2026, 01:34

Structure

Consommation des institutions sans but lucratif

Associations, syndicats, cultes, partis : leur consommation finale (services non marchands qu’elles produisent et fournissent gratuitement aux ménages) pèse environ 2 % du PIB.

Code 
`T_5213_5215` |>
  filter(sheet == sh[1], code == "_T") |>
  left_join(pib, by = "year") |>
  ggplot() + theme_minimal() + xlab("") + ylab("% du PIB") +
  geom_line(aes(x = year, y = value / pib)) +
  scale_x_continuous(breaks = seq(1960, 2030, 10)) +
  scale_y_continuous(labels = percent_format(accuracy = 0.5))

Répartition par produit (A38)

Code 
`T_5213_5215` |>
  filter(sheet == sh[1], grepl("^A38_", code)) |>
  group_by(year) |>
  mutate(part = value / sum(value)) |>
  ungroup() |>
  arrange(desc(code)) |>
  mutate(label = factor(str_trunc(label, 45), levels = unique(str_trunc(label, 45)))) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Part de la consommation des ISBLSM") +
  geom_area(aes(x = year, y = part, fill = label)) +
  scale_x_continuous(breaks = seq(1960, 2030, 10)) +
  scale_y_continuous(labels = percent_format(accuracy = 1)) +
  scale_fill_viridis_d() +
  theme(legend.title = element_blank(), legend.position = "bottom",
        legend.text = element_text(size = 7)) +
  guides(fill = guide_legend(ncol = 2))

Par produit détaillé (2025)

Code 
`T_5213_5215` |>
  filter(sheet == sh[1], year == last_y, grepl("^A38_", code)) |>
  mutate(label = reorder(str_trunc(label, 55), value)) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Mds €") +
  geom_col(aes(x = label, y = value), fill = "#2b6cb0") +
  coord_flip()

Table (2025)

Code 
`T_5213_5215` |>
  filter(sheet == sh[1], year == last_y, grepl("^A38_", code)) |>
  transmute(Produit = label, Code = code, `Mds €` = round(value, 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 A38_QB 33.6
Autres services A38_SZ 21.4
Services artistiques et du spectacle et services récréatifs A38_RZ 8.9
Services de l'enseignement A38_PZ 5.6