8.207 - Compte de patrimoine des organismes divers d’administration centrale (S13112), en fin d’année - T_8207

Données - INSEE

Auteur

François Geerolf

Last observation: 2025 (N = 38)

First observation: 1959 (N = 21)

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

Last compile: 24 sept. 2026, 01:43

Structure

Actifs, passifs et valeur nette (en années de PIB)

Patrimoine des ODAC.

Code 
D |>
  filter(label %in% c("Total des actifs non financiers (net)",
                      "Total des actifs financiers",
                      "Total des passifs financiers", "Valeur nette")) |>
  distinct(label, year, .keep_all = TRUE) |>
  left_join(pib, by = "year") |>
  ggplot() + theme_minimal() + xlab("") + ylab("Années de PIB") +
  geom_hline(yintercept = 0, color = "grey60") +
  geom_line(aes(x = year, y = value / pib, color = label)) +
  scale_x_continuous(breaks = seq(1960, 2030, 10)) +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(color = guide_legend(nrow = 2))

Composition des actifs non financiers

Code 
D |>
  filter(line < lp, grepl("^N.*N$", code), nchar(code) <= 5, code != "NN") |>
  distinct(code, year, .keep_all = TRUE) |>
  group_by(year) |> mutate(part = value / sum(value)) |> ungroup() |>
  arrange(desc(code)) |> mutate(label = factor(str_trunc(label, 40), levels = unique(str_trunc(label, 40)))) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Part des actifs non financiers") +
  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))

Composition des actifs financiers

Code 
D |>
  filter(line < lp, code %in% c("F1","F2","F3","F4","F5","F6","F7","F8")) |>
  distinct(code, year, .keep_all = TRUE) |>
  arrange(desc(code)) |> mutate(label = factor(str_trunc(label, 40), levels = unique(str_trunc(label, 40)))) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Encours (Mds €)") +
  geom_area(aes(x = year, y = value, fill = label)) +
  scale_x_continuous(breaks = seq(1960, 2030, 10)) +
  scale_fill_viridis_d() +
  theme(legend.title = element_blank(), legend.position = "bottom",
        legend.text = element_text(size = 7)) +
  guides(fill = guide_legend(ncol = 2))

Le compte de patrimoine (2025)

Code 
D |>
  filter(year == last_y) |>
  transmute(Ligne = line, Poste = label, Code = code, `Mds €` = round(value, 1)) |>
  print_table_conditional()