Homework 2 assignment

setwd('/Users/Chen/Desktop/Data Visualization/hw2')
data_lgas <- read.csv('lgas.csv')
summary(data_lgas$zone)

## North-Central     Northeast     Northwest   South-South     Southeast 
##           121           112           187           122            95 
##     Southwest 
##           137

sample_lgas <- subset(data_lgas, data_lgas$zone == "South-South" | data_lgas$zone == "Southeast" | data_lgas$zone == "Southwest")
pop_lgas <- sample_lgas[,c(1,3)]
sample_lgas <- sample_lgas[,c(1,6)]
sample_lgas <- merge(sample_lgas, pop_lgas, by="lga_id")
nrow(sample_lgas)

## [1] 354

newdata <- sample_lgas[order(-sample_lgas$pop_2006),]
View(newdata)