Dette des administrations publiques au sens de Maastricht

Data - Insee

Author

François Geerolf

Info

theme Title .html
dette-publique Données sur la dette publique 2024-11-16
public-debt Overview of Public Debt Statistics 2024-11-15

Données sur la dette publique

source dataset .html .RData
insee CNA-2014-DETTE-APU 2024-11-09 2024-11-09
insee COMPTES-ETAT 2024-11-16 2024-11-16
insee DETTE-TRIM-APU-2020 2024-11-09 2024-11-16
insee T_3217 2024-11-09 2023-07-17
insee T_7301 2024-11-09 2024-10-17
insee t_compteapu_val 2024-11-15 2024-09-04

Data on public debt

source dataset .html .RData
eurostat ei_mfir_m 2024-11-15 2024-11-15
eurostat gov_10q_ggdebt 2024-11-15 2024-11-15
fred r 2024-11-09 2024-11-09
fred saving 2024-11-15 2024-11-15
gfd debt 2021-08-22 2021-03-01
imf FM 2024-06-20 2020-03-13
imf GGXCNL_G01_GDP_PT 2024-11-15 2024-11-15
imf GGXONLB_G01_GDP_PT 2024-11-15 2024-11-15
imf GGXWDN_G01_GDP_PT 2024-10-29 2024-05-06
imf HPDD 2024-06-20 NA
oecd QASA_TABLE7PSD 2024-09-15 2024-11-15
wdi GC.DOD.TOTL.GD.ZS 2023-06-18 2024-09-18
wdi GC.XPN.INTP.CN 2023-06-18 2024-09-18
wdi GC.XPN.INTP.RV.ZS 2023-06-18 2024-09-18
wdi GC.XPN.INTP.ZS 2024-09-18 2024-09-18

LAST_UPDATE

Code 
`DETTE-TRIM-APU-2020` %>%
  group_by(LAST_UPDATE) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(LAST_UPDATE)) %>%
  print_table_conditional
LAST_UPDATE Nobs
2024-09-27 2301

DETTE_MAASTRICHT_INTRUMENTS

Code 
`DETTE-TRIM-APU-2020` %>%
  left_join(DETTE_MAASTRICHT_INTRUMENTS, by = "DETTE_MAASTRICHT_INTRUMENTS") %>%
  group_by(DETTE_MAASTRICHT_INTRUMENTS, Dette_maastricht_intruments) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
DETTE_MAASTRICHT_INTRUMENTS Dette_maastricht_intruments Nobs
F Ensemble des instruments 920
F2 Dépôts 115
F3 Titres autres qu'actions et participations 115
F331 Titres autres qu'actions et participations à court terme 115
F332 Titres autres qu'actions et participations à long terme 115
F4 Crédits 115
F41 Crédits à court terme 115
F42 Crédits à long terme 115
F6 Réserves techniques d'assurance 115
F8 Autres comptes à payer 115
TOT Total des passifs 115
TOT-EUROS Total des passifs en euros 115
F12 Droits de tirage spéciaux 58
TOT-MON-ETR Total des passifs en devises étrangères 58

SECT-INST

Code 
`DETTE-TRIM-APU-2020` %>%
  left_join(`SECT-INST`, by = "SECT-INST") %>%
  group_by(`SECT-INST`, `Sect-Inst`) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
SECT-INST Sect-Inst Nobs
S13 S13 - Administrations publiques (APU) 1841
S13111 S13111 - État 115
S13112 S13112 - ODAC 115
S1313 S1313 - Administrations publiques locales (APUL) 115
S1314 S1314 - Administrations de sécurité sociale 115

INDICATEUR

Code 
`DETTE-TRIM-APU-2020` %>%
  left_join(INDICATEUR, by = "INDICATEUR") %>%
  group_by(INDICATEUR, Indicateur) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
INDICATEUR Indicateur Nobs
DETTE_MAASTRICHT Dette trimestrielle des administrations publiques au sens de Maastricht 1495
DETTE_BRUTE_APU_FMI Dette brute des administrations publiques au sens du FMI 576
DETTE_F5 Actions cotées et titres d'OPC détenus par les APU 115
DETTE_NETTE Dette trimestrielle nette des administrations publiques 115

TIME_PERIOD

Code 
`DETTE-TRIM-APU-2020` %>%
  group_by(TIME_PERIOD) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(TIME_PERIOD)) %>%
  print_table_conditional()

Dette

Dette trimestrielle

Lineaire

Code 
`DETTE-TRIM-APU-2020` %>%
  filter(INDICATEUR %in% c("DETTE_MAASTRICHT", "DETTE_NETTE"),
         DETTE_MAASTRICHT_INTRUMENTS == "F",
         `SECT-INST` == "S13",
         NATURE == "VALEUR_ABSOLUE") %>%
  left_join(INDICATEUR, by = "INDICATEUR") %>%
  quarter_to_date() %>%
  arrange(desc(date)) %>%
  ggplot(.) + theme_minimal() + ylab("Dette (Mds €)") + xlab("") +
  geom_line(aes(x = date, y = OBS_VALUE, color = Indicateur)) +
  theme(legend.title = element_blank(),
        legend.position = c(0.4, 0.9)) +
  scale_x_date(breaks = seq(1950, 2025, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = seq(0, 4000, 250),
                     labels = dollar_format(acc = 1, pre = "", su = " Mds€"))

Log

Code 
`DETTE-TRIM-APU-2020` %>%
  filter(INDICATEUR %in% c("DETTE_MAASTRICHT", "DETTE_NETTE"),
         DETTE_MAASTRICHT_INTRUMENTS == "F",
         `SECT-INST` == "S13",
         NATURE == "VALEUR_ABSOLUE") %>%
  left_join(INDICATEUR, by = "INDICATEUR") %>%
  quarter_to_date() %>%
  arrange(desc(date)) %>%
  ggplot(.) + theme_minimal() + ylab("Dette (Mds €)") + xlab("") +
  geom_line(aes(x = date, y = OBS_VALUE, color = Indicateur)) +
  theme(legend.title = element_blank(),
        legend.position = c(0.4, 0.9)) +
  scale_x_date(breaks = seq(1950, 2025, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 4000, 250),
                     labels = dollar_format(acc = 1, pre = "", su = " Mds€"))