7.301 – Compte des administrations publiques (S13) (En milliards d’euros)

Data - INSEE

Info

source	dataset	.html	.RData
insee	t_7301	2024-09-19	2023-11-01

Info

• Comptes de la Nation 2022. html / xlsx

• Comptes de la Nation 2020. html

• Revenu et pouvoir d’achat des ménages en 2018. html

gdp

gdp %>%
  mutate(value = round(value) %>% paste0(" Mds€")) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Table

2022

t_7301 %>%
  filter(year == "2022") %>%
  select(-year) %>%
  mutate(value = round(value) %>% paste0(" Mds€")) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

2018

t_7301 %>%
  filter(year == "2018") %>%
  select(-year) %>%
  mutate(value = round(value) %>% paste0(" Mds€")) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Ensemble des administrations publiques

Capacité ou besoin de financement

Tous

t_7301 %>%
  filter(variable %in% c("B9")) %>%
  year_to_date2 %>%
  ggplot(.) + theme_minimal() + xlab("") + ylab("") +
  geom_line(aes(x = date, y = value)) +
  scale_x_date(breaks = seq(1945, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(-900, 900, 20),
                     labels = scales::dollar_format(pre = "", su = " Md€"))

2000-

t_7301 %>%
  year_to_date2 %>%
  filter(variable %in% c("B9"),
         date >= as.Date("2000-01-01")) %>%
  ggplot(.) + theme_minimal() + xlab("") + ylab("") +
  geom_line(aes(x = date, y = value)) +
  scale_x_date(breaks = seq(2000, 2100, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(-900, 900, 20),
                     labels = scales::dollar_format(pre = "", su = " Md€")) +
  geom_text_repel(aes(x = date, y = value, label = value %>% round(., 1) %>% paste0(., "Md€")),
                  fontface ="plain", size = 3)