Central Government Debt - GOV_DEBT

Data - OECD

Author

François Geerolf


Last observation: 2010 (N = 4238)

First observation: 1980 (N = 1597)

Last data update: 02 août 2026, 08:59

Last compile: 04 sept. 2026, 02:34

Structure

LOCATION

Code 
GOV_DEBT |>
  left_join(GOV_DEBT_var$COU, by = "COU") |>
  group_by(COU, Cou) |>
  summarise(Nobs = n()) |>
  arrange(-Nobs) |>
  mutate(Flag = gsub(" ", "-", str_to_lower(gsub(" ", "-", Cou))),
         Flag = paste0('<img src="../../icon/flag/vsmall/', Flag, '.png" alt="Flag">')) |>
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

Biggest Debt in $

Code 
GOV_DEBT |>
  filter(DVAR == "3",
         UNIT == "USD") |>
  left_join(GOV_DEBT_var$COU, by = "COU") |>
  group_by(COU, Cou) |>
  summarise(year1 = first(obsTime),
            value1 = first(obsValue),
            year2 = last(obsTime),
            value2 = last(obsValue)) |>
  arrange(-value2) %>%
  mutate_at(vars(value1, value2), funs(paste0("$ ", round(./1000), " Tn"))) |>
  mutate(Flag = gsub(" ", "-", str_to_lower(gsub(" ", "-", Cou))),
         Flag = paste0('<img src="../../icon/flag/vsmall/', Flag, '.png" alt="Flag">')) |>
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}