rin3-assignment_week-6.R

rin3-assignment_week-6.R

library(tidyverse)
library(WDI)

countries_df <- tribble(
  ~country.name, ~country.code, ~continent,
  "United States", "US", "Americas",
  "United Kingdom", "GB", "Europe",
  "France", "FR", "Europe",
  "Germany", "DE", "Europe",
  "Canada", "CA", "Americas",
  "Saudi Arabai", "SA", "Asia",
  "Egypt", "EG", "Africa",
  "Estonia", "EE", "Europe",
  "New Zealand", "ZA", "Oceania",
  "Australia", "AU", "Oceania",
  "China", "CN", "Asia",
  "Signapore", "SG", "Asia",
  "Spain", "ES", "Europe",
  "Japan", "JO", "Asia"
)

wdi_indicators <- c("percent_pop_using_internet" = "IT.NET.USER.ZS",
                    "gdp_per_cap" = "NY.GDP.PCAP.KD")

WDI(countries_df$country.code,
    indicator = wdi_indicators) %>% 
  as_tibble()