~/data/wdi/

Nobs - Javascript

NY.GNS.ICTR.CD %>%
  left_join(iso2c, by = "iso2c") %>%
  group_by(iso2c, Iso2c) %>%
  rename(value = `NY.GNS.ICTR.CD`) %>%
  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

NY.GNS.ICTR.CD %>%
  left_join(NE.GDI.TOTL.CD, by = c("iso2c", "year")) %>%
  left_join(iso2c, by = "iso2c") %>%
  filter(year == 2018) %>%
  select(iso2c, Iso2c, `Saving (Bn)` = NY.GNS.ICTR.CD, 
         `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

NY.GNS.ICTR.CD_table1 <- NY.GNS.ICTR.CD %>%
  left_join(NE.GDI.TOTL.CD, by = c("iso2c", "year")) %>%
  left_join(NY.ADJ.DKAP.CD, by = c("iso2c", "year")) %>%
  left_join(iso2c, by = "iso2c") %>%
  filter(year == 2017) %>%
  mutate(`Net Saving (Bn)` = NY.GNS.ICTR.CD - 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 .}