library(rio)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

electricity = import("Electricity - installed generating capacity.csv")

carbon = import("Carbon dioxide emissions.csv")

energy = import("Energy consumption per capita.csv")

fixedline = import("Telephones - fixed lines.csv")

mobile = import("Telephones - mobile cellular.csv")

unemployment = import("Youth unemployment rate (ages 15-24).csv")

publicdebt = import("Public debt.csv")

extdebt = import("Debt - external.csv")

carbon <- carbon %>%
  select(name, `metric tonnes of CO2`)

electricity <- electricity %>%
  select(name, kW)

energy <- energy %>%
  select(name, `Btu/person`)

extdebt <- extdebt %>%
  select(name, value) %>%
  rename(extdebt = value)

fixedline <- fixedline %>%
  select(name, value) %>%
  rename(fixedline = value)

mobile <- mobile %>%
  select(name, value) %>%
  rename(mobile = value)

publicdebt <- publicdebt %>%
  select(name, `% of GDP`)

unemployment <- unemployment %>%
  select(name, `%`)