7 Working with multiple datasets
7.1 Merging data
# Read in capital mobility from working directory
capital_mobility<-read_csv("chinn_eto_capitalopenness_summary.csv")Alternatively,
# Read in capital mobility data from Github repository
capital_mobility<-read_csv("https://raw.githubusercontent.com/aranganath24/r_primer/main/workshop_data/chinn_eto_capitalopenness_summary.csv")##
## ── Column specification ───────────────────────────────────────────────────────────────────────
## cols(
## ccode = col_character(),
## country_name = col_character(),
## ctrycd = col_double(),
## kaopen = col_double(),
## ka_open = col_double()
## )# View capital mobility data
capital_mobility## # A tibble: 182 × 5
## ccode country_name ctrycd kaopen ka_open
## <chr> <chr> <dbl> <dbl> <dbl>
## 1 ABW Aruba 314 -0.607 0.309
## 2 AFG Afghanistan 512 -1.92 0
## 3 AGO Angola 614 -1.57 0.0825
## 4 ALB Albania 914 -0.148 0.417
## 5 ANT Netherlands Antilles 353 -0.104 0.427
## 6 ARE United Arab Emirates 466 2.33 1
## 7 ARG Argentina 213 0.662 0.607
## 8 ARM Armenia 911 1.17 0.725
## 9 ATG Antigua and Barbuda 311 1.98 0.916
## 10 AUS Australia 193 2.16 0.960
## # … with 172 more rows# Joins "capital_mobility" to "pt_copy" using "ctrycd" as the join field (only keeps observations from "pt_copy"; countries in "capital_mobility" but not "pt_copy" are not included in the final joined dataset; joined dataset is assigned to an object named "pt_capitalmobility")
pt_capitalmobility<-inner_join(pt_copy, capital_mobility, by="ctrycd")# prints contents of "pt_capitalmobility"
pt_capitalmobility## # A tibble: 84 × 89
## country kaopen trade_level trade_level_High_… trade_level_Int… trade_level_Low… trade
## <chr> <dbl> <chr> <int> <int> <int> <dbl>
## 1 Singapore 2.10 High_Trade 1 0 0 343.
## 2 Malta -1.06 High_Trade 1 0 0 190.
## 3 Malaysia 1.36 High_Trade 1 0 0 176.
## 4 Estonia 2.08 High_Trade 1 0 0 154.
## 5 Belgium 2.16 High_Trade 1 0 0 132.
## 6 Ireland 1.36 High_Trade 1 0 0 129.
## 7 Mauritius -0.0671 High_Trade 1 0 0 128.
## 8 St. Vincent&G -0.505 High_Trade 1 0 0 123.
## 9 Jamaica 0.245 High_Trade 1 0 0 122.
## 10 Gambia 1.37 High_Trade 1 0 0 122.
## # … with 74 more rows, and 82 more variables: trade_open <dbl>, catho80 <dbl>,
## # non_catholic_80 <dbl>, party_list <dbl>, oecd <dbl>, pind <dbl>, pindo <dbl>,
## # ctrycd <dbl>, col_uk <dbl>, t_indep <dbl>, col_uka <dbl>, col_espa <dbl>, col_otha <dbl>,
## # legor_uk <dbl>, legor_so <dbl>, legor_fr <dbl>, legor_ge <dbl>, legor_sc <dbl>,
## # prot80 <dbl>, confu <dbl>, avelf <dbl>, govef <dbl>, graft <dbl>, logyl <dbl>, loga <dbl>,
## # yrsopen <dbl>, gadp <dbl>, engfrac <dbl>, eurfrac <dbl>, frankrom <dbl>, latitude <dbl>,
## # gastil <dbl>, cgexp <dbl>, cgrev <dbl>, ssw <dbl>, rgdph <dbl>, prop1564 <dbl>, …