Extracting GDP per capita for countries using World Bank API

Aim

The aim of this would be to extract the following as an exposure:

Exposures would be:

• GDP per capita

There’s an API/ R Web package described here

Let’s try to use it to get this information

library(wbstats)
gdp_percap_data <- wb(indicator= "NY.GDP.PCAP.PP.CD")

now let’s see what we’ve got

require(tidyverse)
gdp_percap_data %>% 
  ggplot(aes(x = date, y = value, group = country)) + 
  geom_line(alpha = 0.4) +
  scale_y_log10() +
  geom_line(aes(x = date, y = value), colour = "red", size = 1.5, data = gdp_percap_data %>% filter(iso2c == "GB")) 

Now density in 1990, 2000, 2010

gdp_percap_data %>% 
  filter(date %in% c(1990, 2000, 2010)) %>% 
  ggplot(aes(x = value, group = date, fill = date)) + 
  geom_density(alpha = 0.4) + 
  scale_x_log10() + 
  labs(x = "GDP per capita", y = "proportion of countries")

Other indicators

I’m looking for variables that may explain gender inequalities in NCDs (and overall)

https://data.worldbank.org/indicator/NY.GDP.PCAP.PP.CD

require(wbstats)
require(tidyverse)
str(wb_cachelist, max.level = 1)

List of 7
 $ countries  :'data.frame':    304 obs. of  18 variables:
 $ indicators :'data.frame':    16978 obs. of  7 variables:
 $ sources    :'data.frame':    43 obs. of  8 variables:
 $ datacatalog:'data.frame':    238 obs. of  29 variables:
 $ topics     :'data.frame':    21 obs. of  3 variables:
 $ income     :'data.frame':    7 obs. of  3 variables:
 $ lending    :'data.frame':    4 obs. of  3 variables:

gender_statistics_ids <- wb_cachelist$indicators[wb_cachelist$indicators$source == "Gender Statistics", "indicatorID"]
length(gender_statistics_ids)

[1] 260

So, there are 260 indicators listed as ‘gender statistics’. The details of these are below

wb_cachelist$indicators %>% 
  filter(indicatorID %in% c(gender_statistics_ids))