Jenni's coding challenge

20180807jennis_challenge.R

require(dplyr)

nuts1 <- readr::read_csv('NUTS1_kmsq.csv')

nuts1 %>% group_by(ONEKMREF) %>% summarise(biggest_area = max(kmsq_Area), biggest_area_index = which.max(kmsq_Area), biggest_area_name = Region_name[biggest_area_index] ) -> solution_df


#check for areas with multiple regions
nuts1 %>% group_by(ONEKMREF) %>% summarise(n_rows = n()) %>% arrange(desc(n_rows)) %>% head()

#check result
nuts1 %>% filter(ONEKMREF == 'NU2613') %>% select(ONEKMREF, Region_name, kmsq_Area)

solution_df %>% filter(ONEKMREF == 'NU2613')