Dette des administrations publiques au sens de Maastricht - DETTE-TRIM-APU-2020

Données - INSEE

Auteur

François Geerolf

Last observation: Q1 2026 (N = 21)

First observation: Q4 1995 (N = 21)

Last data update: 03 sept. 2026, 23:46

Last compile: 04 sept. 2026, 12:02

Structure

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") |>
  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, 2100, 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

Tous

Code 
`DETTE-TRIM-APU-2020` |>
  filter(INDICATEUR %in% c("DETTE_MAASTRICHT", "DETTE_NETTE"),
         DETTE_MAASTRICHT_INTRUMENTS == "F",
         `SECT-INST` == "S13",
         NATURE == "VALEUR_ABSOLUE") |>
  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, 2100, 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€"))

2020-

Code 
`DETTE-TRIM-APU-2020` |>
  filter(INDICATEUR %in% c("DETTE_MAASTRICHT", "DETTE_NETTE"),
         DETTE_MAASTRICHT_INTRUMENTS == "F",
         `SECT-INST` == "S13",
         NATURE == "VALEUR_ABSOLUE") |>
  quarter_to_date() |>
  filter(date >= as.Date("2020-01-01")) |>
  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, 2100, 1) |> 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€"))

% du PIB

2015-

Code 
`DETTE-TRIM-APU-2020` |>
  filter(INDICATEUR %in% c("DETTE_MAASTRICHT", "DETTE_NETTE"),
         DETTE_MAASTRICHT_INTRUMENTS == "F",
         `SECT-INST` == "S13",
         NATURE == "VALEUR_ABSOLUE") |>
  quarter_to_date() |>
  filter(date >= as.Date("2015-01-01"),
         month(date) == 10) |>
  arrange(desc(date)) |>
  mutate(year = as.character(year(date))) |>
  left_join(gdp, by = "year") |>
  ggplot() + theme_minimal() + ylab("Dette publique (% du PIB)") + xlab("") +
  geom_line(aes(x = date, y = OBS_VALUE/gdp, color = Indicateur)) +
  theme(legend.title = element_blank(),
        legend.position = c(0.5, 0.8)) +
  scale_x_date(breaks = seq(1950, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(labels = percent_format(acc = 1),
                breaks = seq(0, 2, 0.05)) +
  geom_label_repel(aes(x = date, y = OBS_VALUE/gdp, label = percent(OBS_VALUE/gdp, acc = 0.1), color = Indicateur), show.legend = F)

2018-

Code 
`DETTE-TRIM-APU-2020` |>
  filter(INDICATEUR %in% c("DETTE_MAASTRICHT", "DETTE_NETTE"),
         DETTE_MAASTRICHT_INTRUMENTS == "F",
         `SECT-INST` == "S13",
         NATURE == "VALEUR_ABSOLUE") |>
  quarter_to_date() |>
  filter(date >= as.Date("2018-01-01"),
         month(date) == 10) |>
  arrange(desc(date)) |>
  mutate(year = as.character(year(date))) |>
  left_join(gdp, by = "year") |>
  ggplot() + theme_minimal() + ylab("Dette publique (% du PIB)") + xlab("") +
  geom_line(aes(x = date, y = OBS_VALUE/gdp, color = Indicateur)) +
  theme(legend.title = element_blank(),
        legend.position = c(0.5, 0.5)) +
  scale_x_date(breaks = seq(1950, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(labels = percent_format(acc = 1),
                breaks = seq(0, 2, 0.05)) +
  geom_label(aes(x = date, y = OBS_VALUE/gdp, label = percent(OBS_VALUE/gdp, acc = 0.1), color = Indicateur), show.legend = F)

2020-

Code 
`DETTE-TRIM-APU-2020` |>
  filter(INDICATEUR %in% c("DETTE_MAASTRICHT", "DETTE_NETTE"),
         DETTE_MAASTRICHT_INTRUMENTS == "F",
         `SECT-INST` == "S13",
         NATURE == "VALEUR_ABSOLUE") |>
  quarter_to_date() |>
  filter(date >= as.Date("2020-01-01"),
         month(date) == 10) |>
  arrange(desc(date)) |>
  mutate(year = as.character(year(date))) |>
  left_join(gdp, by = "year") |>
  ggplot() + theme_minimal() + ylab("Dette (% du PIB)") + xlab("") +
  geom_line(aes(x = date, y = OBS_VALUE/gdp, color = Indicateur)) +
  theme(legend.title = element_blank(),
        legend.position = c(0.5, 0.5)) +
  scale_x_date(breaks = seq(1950, 2100, 1) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_log10(labels = percent_format(acc = 1),
                breaks = seq(0, 2, 0.01)) +
  geom_label(aes(x = date, y = OBS_VALUE/gdp, label = percent(OBS_VALUE/gdp, acc = 0.1), color = Indicateur), show.legend = F)