Assignment4

Objective: #upper primary school count in 2010 \"Number_of_Schools-Primary_and_Upper_primary_School.csv\" %>% read_csv() %>% clean_names() %>% gather(-c(1:2),key= year, value = school_count) %>% separate(year, into = c(\"x\",\"year\"), sep=1, convert = TRUE) %>% select(-x) %>% filter(year == 2010 & school_type…