Gross savings (current USD) - NY.GNS.ICTR.CD

Data - WDI

Author

François Geerolf

Info

Last observation: 2025 (N = 6,430)

First observation: 1960 (N = 6,430)

Last data update: 14 aoû 2026, 20:22. Last compile: 14 aoû 2026, 21:18

Nobs - Javascript

Code

NY.GNS.ICTR.CD |>
  left_join(iso2c, by = "iso2c") |>
  group_by(iso2c, Iso2c) |>
  mutate(value = round(value/10^6)) %>%
  summarise(Nobs = n(),
            `Year 1` = first(year),
            `Saving 1 (Bn)` = first(value) %>% paste0("$ ", .),
            `Year 2` = last(year),
            `Saving 2 (Bn)` = last(value) %>% paste0("$ ", .)) |>
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Saving VS Investment

Code

NY.GNS.ICTR.CD |>
  left_join(NE.GDI.TOTL.CD |> select(iso2c, year, NE.GDI.TOTL.CD = value), by = c("iso2c", "year")) |>
  left_join(iso2c, by = "iso2c") |>
  filter(year == 2018) |>
  select(iso2c, Iso2c, `Saving (Bn)` = value, 
         `Investment (Bn)` = NE.GDI.TOTL.CD) |>
  mutate(`Saving (% Investment)` = round(100*(`Saving (Bn)`/`Investment (Bn)`-1), 2)) |>
  arrange(-`Saving (Bn)`) %>%
  mutate_at(vars(`Investment (Bn)`, `Saving (Bn)`), funs(paste0("$ ", round(./10^9)))) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Net Saving VS Net Investment

Code

NY.GNS.ICTR.CD_table1 <- NY.GNS.ICTR.CD |>
  left_join(NE.GDI.TOTL.CD |> select(iso2c, year, NE.GDI.TOTL.CD = value), by = c("iso2c", "year")) |>
  left_join(NY.ADJ.DKAP.CD |> select(iso2c, year, NY.ADJ.DKAP.CD = value), by = c("iso2c", "year")) |>
  left_join(iso2c, by = "iso2c") |>
  filter(year == 2017) |>
  mutate(`Net Saving (Bn)` = value - NY.ADJ.DKAP.CD,
         `Net Investment (Bn)` = NE.GDI.TOTL.CD - NY.ADJ.DKAP.CD,
         `Current Account (Bn)` = `Net Saving (Bn)` - `Net Investment (Bn)`,
         `Current Account (% Net Investment)` = round(100*(`Net Saving (Bn)`/`Net Investment (Bn)`-1), 2)) |>
  select(iso2c, Iso2c, `Net Saving (Bn)`, `Net Investment (Bn)`, `Current Account (Bn)`, `Current Account (% Net Investment)`) |>
  arrange(-`Net Saving (Bn)`) %>%
  mutate_at(vars(`Net Investment (Bn)`, `Net Saving (Bn)`, `Current Account (Bn)`), funs(paste0("$ ", round(./10^9))))

save(NY.GNS.ICTR.CD_table1, file = "NY.GNS.ICTR.CD_table1.RData")

NY.GNS.ICTR.CD_table1 %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}