emerging_market_fund_country_weights <- emerging_market_fund %>% 
  select(Country, `Weight (%)`) %>%
  mutate(Country = replace(Country, Country == "Russian Federation", "Russia"), 
         Country = replace(Country, Country == "Korea (South)", "Korea"),
         Country = replace(Country, Country == "KO", "Korea"),
         Country = replace(Country, Country == "Czech Republic", "Czech Rep.")
         ) %>%
  group_by(Country) %>% 
  summarise(EEM = sum(`Weight (%)`, na.rm = TRUE)) %>% 
  rename(name = Country) %>% 
  filter(EEM > 0) %>% 
  filter(name != "-") %>% 
  arrange(desc(EEM))

# Let's just take a look at the data.

emerging_market_fund_country_weights
## # A tibble: 28 × 2
##            name     EEM
##           <chr>   <dbl>
## 1         China 25.9309
## 2         Korea 14.8380
## 3        Taiwan 12.1303
## 4         India  8.2999
## 5        Brazil  7.9023
## 6  South Africa  6.3861
## 7        Russia  4.2330
## 8        Mexico  3.4150
## 9     Indonesia  2.5123
## 10     Malaysia  2.4434
## # ... with 18 more rows