R code

R code for aggregate data and create maps