2023 - Tableau économique d’ensemble - TEE_2023

Données - INSEE

Auteur

François Geerolf

Last observation: 2025 (N = 1448)

First observation: 2021 (N = 1514)

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

Last compile: 24 sept. 2026, 01:54

Le tableau économique d’ensemble (TEE) rassemble en une matrice les comptes de tous les secteurs institutionnels et toutes les opérations. Données 2023 (les graphiques ci-dessous couvrent l’ensemble des millésimes disponibles).

Structure

Capacité (+) ou besoin (−) de financement par secteur

Code 
TEE |>
  filter(code == "B9NF", secteur %in% S) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Mds €") +
  geom_hline(yintercept = 0, color = "grey60") +
  geom_col(aes(x = factor(year), y = value, fill = secteur), position = "dodge") +
  scale_fill_viridis_d() +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(fill = guide_legend(nrow = 3))

Revenu disponible brut et épargne par secteur (2023)

Code 
TEE |>
  filter(year == this_y, code %in% c("B6g", "B6G", "B8g", "B8G", "P3", "P51g", "P51G"),
         secteur %in% setdiff(S, "Économie nationale")) |>
  mutate(op = recode(toupper(code), B6G = "Revenu disponible brut", B8G = "Épargne brute",
                     P3 = "Consommation finale", P51G = "FBCF")) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Mds €") +
  geom_hline(yintercept = 0, color = "grey60") +
  geom_col(aes(x = secteur, y = value, fill = op), position = "dodge") +
  scale_fill_viridis_d() +
  coord_flip() +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(fill = guide_legend(nrow = 2))

Le compte de chaque secteur (2023)

Code 
TEE |>
  filter(year == this_y, secteur %in% S) |>
  transmute(Opération = label, Code = code, Secteur = secteur, value = round(value, 1)) |>
  tidyr::pivot_wider(names_from = Secteur, values_from = value) %>%
  {if (is_html_output()) datatable(., filter = "top", rownames = F) else head(., 60)}