Central Government Debt
Data - OECD
Info
Data on public debt
| source | dataset | .html | .RData |
|---|---|---|---|
| eurostat | ei_mfir_m | 2025-09-26 | 2025-09-26 |
| eurostat | gov_10q_ggdebt | 2025-09-26 | 2025-09-26 |
| fred | r | 2025-09-27 | 2025-09-27 |
| fred | saving | 2025-09-27 | 2025-09-27 |
| gfd | debt | 2021-08-22 | 2021-03-01 |
| imf | FM | 2025-08-28 | 2020-03-13 |
| imf | GGXCNL_G01_GDP_PT | 2025-08-28 | 2025-08-05 |
| imf | GGXONLB_G01_GDP_PT | 2025-08-28 | 2025-08-05 |
| imf | GGXWDN_G01_GDP_PT | 2025-08-28 | 2025-07-27 |
| imf | HPDD | 2025-08-28 | NA |
| oecd | QASA_TABLE7PSD | 2024-09-15 | 2025-05-24 |
| wdi | GC.DOD.TOTL.GD.ZS | 2023-06-18 | 2025-09-27 |
| wdi | GC.XPN.INTP.CN | 2025-09-27 | 2025-09-27 |
| wdi | GC.XPN.INTP.RV.ZS | 2023-06-18 | 2025-09-27 |
| wdi | GC.XPN.INTP.ZS | 2025-09-27 | 2025-09-27 |
LAST_COMPILE
| LAST_COMPILE |
|---|
| 2025-09-29 |
Last
| obsTime | Nobs |
|---|---|
| 2010 | 4238 |
DVAR
Code
GOV_DEBT %>%
left_join(GOV_DEBT_var$DVAR, by = "DVAR") %>%
group_by(DVAR, Dvar) %>%
summarise(Nobs = n()) %>%
print_table_conditional()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 .}