Basic MapUtils file, and baselayers (districts + GADM shapefiles)

NepalMapUtils.R

@@ -0,0 +1,41 @@
+library(rgeos)
+library(maptools)
+gpclibPermit()
+library(ggplot2)
+library(scales)
+library(plyr)
+library(reshape2)
+
+# Install Directory -- WILL NEED TO BE MODIFIED PER DEPLOYMENT
+install_dir = "~/Code/NepalMaps"
+setwd(install_dir)
+
+# MAP setup
+np_dist <- readShapeSpatial("baselayers/NPL_adm/NPL_adm3.shp")
+np_distf <- fortify(np_dist, region="NAME_3")
+
+choropleth <- function(data, x, y, fortifiedpolygons, extra) {
+  # force upper case for better matching
+  data[,x] <- as.character(toupper(data[,x]))
+  fortifiedpolygons$id <- as.character(toupper(fortifiedpolygons$id))
+  # basic contract, data$x and fortifiedpolygons$id has to include the same things
+  stopifnot(all(data[,x] %in% levels(factor(fortifiedpolygons$id))))
+
+  ggplot() + 
+    geom_map(data = data, aes_string(map_id=x, fill=y), map=fortifiedpolygons) + 
+    expand_limits(x=fortifiedpolygons$long, y=fortifiedpolygons$lat) + 
+    scale_fill_gradient(low="white", high=muted("blue")) +
+    extra() +
+    theme(axis.title=element_blank(), axis.text=element_blank(),
+          axis.ticks = element_blank(), panel.grid=element_blank(), panel.background=element_rect(fill='#888888'))
+}
+
+# district over lay
+#districts <- ddply(np_distf, .(id), summarize, clat = mean(lat), clong = mean(long))
+districts <- read.csv("baselayers/districts.csv")
+districtoverlay <- function() {
+  geom_text(data=districts, aes(x=clong, y=clat, label=id), size=4)
+}
+
+# np choropleth
+npchoropleth <- function (data, x, y) { choropleth(data, x, y, np_distf, districtoverlay) }

baselayers/NPL_adm/NPL_adm0.csv

@@ -0,0 +1,2 @@
+"PID","ID_0","ISO","NAME_ENGLISH","NAME_ISO","NAME_FAO","NAME_LOCAL","NAME_OBSOLETE","NAME_VARIANTS","NAME_NONLATIN","NAME_FRENCH","NAME_SPANISH","NAME_RUSSIAN","NAME_ARABIC","NAME_CHINESE","WASPARTOF","CONTAINS","SOVEREIGN","ISO2","WWW","FIPS","ISON","VALIDFR","VALIDTO","EUmember"
+157,157,"NPL","Nepal","NEPAL","Nepal","Nepal","","","","Népal ","Nepal ","<U+041D><U+0435><U+043F><U+0430><U+043B>","<U+0646><U+064A><U+0628><U+0627><U+0644>","<U+5C3C><U+6CCA><U+5C14> ","","","Nepal","NP",NA,"NP",524,"1765","Present",NA

baselayers/NPL_adm/NPL_adm0.prj

@@ -0,0 +1 @@
+GEOGCS["GCS_WGS_1984",DATUM["D_WGS_1984",SPHEROID["WGS_1984",6378137.0,298.257223563]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]]

baselayers/NPL_adm/NPL_adm1.csv

@@ -0,0 +1,6 @@
+"PID","ID_0","ISO","NAME_0","ID_1","NAME_1","NL_NAME_1","VARNAME_1","TYPE_1","ENGTYPE_1"
+2055,157,"NPL","Nepal",1,"Central","","Madhyamanchal","Vikas Kshetra","Development Region"
+2056,157,"NPL","Nepal",2,"East","","Eastern|Purwanchal","Vikas Kshetra","Development Region"
+2057,157,"NPL","Nepal",3,"Far-Western","","Sudur Pashchimanchal","Vikas Kshetra","Development Region"
+2058,157,"NPL","Nepal",4,"Mid-Western","","Madhya Pashchimanchal","Vikas Kshetra","Development Region"
+2059,157,"NPL","Nepal",5,"West","","Western|Pashchimanchal","Vikas Kshetra","Development Region"

baselayers/NPL_adm/NPL_adm1.prj

@@ -0,0 +1 @@
+GEOGCS["GCS_WGS_1984",DATUM["D_WGS_1984",SPHEROID["WGS_1984",6378137.0,298.257223563]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]]

baselayers/NPL_adm/NPL_adm2.csv

@@ -0,0 +1,15 @@
+"PID","ID_0","ISO","NAME_0","ID_1","NAME_1","ID_2","NAME_2","NL_NAME_2","VARNAME_2","TYPE_2","ENGTYPE_2"
+24352,157,"NPL","Nepal",NA,"",8,"Dhaualagiri","","","",""
+24353,157,"NPL","Nepal",1,"Central",1,"Bagmati",""," ","Anchal","Administrative Zone"
+24354,157,"NPL","Nepal",1,"Central",2,"Janakpur",""," ","Anchal","Administrative Zone"
+24355,157,"NPL","Nepal",1,"Central",3,"Narayani",""," ","Anchal","Administrative Zone"
+24356,157,"NPL","Nepal",2,"East",4,"Koshi",""," ","Anchal","Administrative Zone"
+24357,157,"NPL","Nepal",2,"East",5,"Mechi",""," ","Anchal","Administrative Zone"
+24358,157,"NPL","Nepal",2,"East",6,"Sagarmatha",""," ","Anchal","Administrative Zone"
+24359,157,"NPL","Nepal",3,"Far-Western",7,"Mahakali",""," ","Anchal","Administrative Zone"
+24360,157,"NPL","Nepal",3,"Far-Western",8,"Seti",""," ","Anchal","Administrative Zone"
+24361,157,"NPL","Nepal",4,"Mid-Western",9,"Bheri",""," ","Anchal","Administrative Zone"
+24362,157,"NPL","Nepal",4,"Mid-Western",10,"Karnali",""," ","Anchal","Administrative Zone"
+24363,157,"NPL","Nepal",4,"Mid-Western",11,"Rapti",""," ","Anchal","Administrative Zone"
+24364,157,"NPL","Nepal",5,"West",13,"Gandaki",""," ","Anchal","Administrative Zone"
+24365,157,"NPL","Nepal",5,"West",14,"Lumbini",""," ","Anchal","Administrative Zone"

baselayers/NPL_adm/NPL_adm2.prj

@@ -0,0 +1 @@
+GEOGCS["GCS_WGS_1984",DATUM["D_WGS_1984",SPHEROID["WGS_1984",6378137.0,298.257223563]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]]

baselayers/NPL_adm/NPL_adm3.csv

@@ -0,0 +1,76 @@
+"PID","ID_0","ISO","NAME_0","ID_1","NAME_1","ID_2","NAME_2","ID_3","NAME_3","NL_NAME_3","VARNAME_3","TYPE_3","ENGTYPE_3"
+48349,157,"NPL","Nepal",NA,"",8,"Dhaualagiri",60,"Baglung",""," ","Jilla","District"
+48350,157,"NPL","Nepal",NA,"",8,"Dhaualagiri",61,"Mustang",""," ","Jilla","District"
+48351,157,"NPL","Nepal",NA,"",8,"Dhaualagiri",62,"Myagdi",""," ","Jilla","District"
+48352,157,"NPL","Nepal",NA,"",8,"Dhaualagiri",63,"Parbat","","Parwat","Jilla","District"
+48353,157,"NPL","Nepal",1,"Central",1,"Bagmati",1,"Bhaktapur","","Bhadgaon| Khwopa|Bhaktapur Jilla","Jilla","District"
+48354,157,"NPL","Nepal",1,"Central",1,"Bagmati",2,"Dhading",""," ","Jilla","District"
+48355,157,"NPL","Nepal",1,"Central",1,"Bagmati",3,"Kathmandu","","KTM","Jilla","District"
+48356,157,"NPL","Nepal",1,"Central",1,"Bagmati",4,"Kavrepalanchok","","Kavrepalanchowk, Kavreplanchok","Jilla","District"
+48357,157,"NPL","Nepal",1,"Central",1,"Bagmati",5,"Lalitpur","","Patan","Jilla","District"
+48358,157,"NPL","Nepal",1,"Central",1,"Bagmati",6,"Nuwakot",""," ","Jilla","District"
+48359,157,"NPL","Nepal",1,"Central",1,"Bagmati",7,"Rasuwa",""," ","Jilla","District"
+48360,157,"NPL","Nepal",1,"Central",1,"Bagmati",8,"Sindhupalchok",""," ","Jilla","District"
+48361,157,"NPL","Nepal",1,"Central",2,"Janakpur",9,"Dhanusa","","Dhanusha","Jilla","District"
+48362,157,"NPL","Nepal",1,"Central",2,"Janakpur",10,"Dolakha","","Dolkha","Jilla","District"
+48363,157,"NPL","Nepal",1,"Central",2,"Janakpur",11,"Mahottari","","Mahotari","Jilla","District"
+48364,157,"NPL","Nepal",1,"Central",2,"Janakpur",12,"Ramechhap","","Ramechap","Jilla","District"
+48365,157,"NPL","Nepal",1,"Central",2,"Janakpur",13,"Sarlahi",""," ","Jilla","District"
+48366,157,"NPL","Nepal",1,"Central",2,"Janakpur",14,"Sindhuli",""," ","Jilla","District"
+48367,157,"NPL","Nepal",1,"Central",3,"Narayani",15,"Bara",""," ","Jilla","District"
+48368,157,"NPL","Nepal",1,"Central",3,"Narayani",17,"Makwanpur","","Makawanpur","Jilla","District"
+48369,157,"NPL","Nepal",1,"Central",3,"Narayani",18,"Parsa",""," ","Jilla","District"
+48370,157,"NPL","Nepal",1,"Central",3,"Narayani",19,"Rautahat",""," ","Jilla","District"
+48371,157,"NPL","Nepal",1,"Central",3,"Narayani",35,"Chitawan","","","",""
+48372,157,"NPL","Nepal",2,"East",4,"Koshi",20,"Bhojpur",""," ","Jilla","District"
+48373,157,"NPL","Nepal",2,"East",4,"Koshi",21,"Dhankuta",""," ","Jilla","District"
+48374,157,"NPL","Nepal",2,"East",4,"Koshi",22,"Morang",""," ","Jilla","District"
+48375,157,"NPL","Nepal",2,"East",4,"Koshi",23,"Sankhuwasabha",""," ","Jilla","District"
+48376,157,"NPL","Nepal",2,"East",4,"Koshi",24,"Sunsari",""," ","Jilla","District"
+48377,157,"NPL","Nepal",2,"East",4,"Koshi",25,"Terhathum","","Terathum","Jilla","District"
+48378,157,"NPL","Nepal",2,"East",5,"Mechi",26,"Ilam",""," ","Jilla","District"
+48379,157,"NPL","Nepal",2,"East",5,"Mechi",27,"Jhapa",""," ","Jilla","District"
+48380,157,"NPL","Nepal",2,"East",5,"Mechi",28,"Panchthar","","Panchathar","Jilla","District"
+48381,157,"NPL","Nepal",2,"East",5,"Mechi",29,"Taplejung",""," ","Jilla","District"
+48382,157,"NPL","Nepal",2,"East",6,"Sagarmatha",30,"Khotang",""," ","Jilla","District"
+48383,157,"NPL","Nepal",2,"East",6,"Sagarmatha",31,"Okhaldhunga",""," ","Jilla","District"
+48384,157,"NPL","Nepal",2,"East",6,"Sagarmatha",32,"Saptari",""," ","Jilla","District"
+48385,157,"NPL","Nepal",2,"East",6,"Sagarmatha",33,"Siraha",""," ","Jilla","District"
+48386,157,"NPL","Nepal",2,"East",6,"Sagarmatha",34,"Solukhumbu","","Solukhombu","Jilla","District"
+48387,157,"NPL","Nepal",2,"East",6,"Sagarmatha",35,"Udayapur","","Udaypur","Jilla","District"
+48388,157,"NPL","Nepal",3,"Far-Western",7,"Mahakali",36,"Baitadi",""," ","Jilla","District"
+48389,157,"NPL","Nepal",3,"Far-Western",7,"Mahakali",37,"Dadeldhura","","Dadelhura|Dadheldhura","Jilla","District"
+48390,157,"NPL","Nepal",3,"Far-Western",7,"Mahakali",38,"Darchula",""," ","Jilla","District"
+48391,157,"NPL","Nepal",3,"Far-Western",7,"Mahakali",39,"Kanchanpur",""," ","Jilla","District"
+48392,157,"NPL","Nepal",3,"Far-Western",8,"Seti",40,"Achham",""," ","Jilla","District"
+48393,157,"NPL","Nepal",3,"Far-Western",8,"Seti",41,"Bajhang",""," ","Jilla","District"
+48394,157,"NPL","Nepal",3,"Far-Western",8,"Seti",42,"Bajura",""," ","Jilla","District"
+48395,157,"NPL","Nepal",3,"Far-Western",8,"Seti",43,"Doti",""," ","Jilla","District"
+48396,157,"NPL","Nepal",3,"Far-Western",8,"Seti",44,"Kailali",""," ","Jilla","District"
+48397,157,"NPL","Nepal",4,"Mid-Western",9,"Bheri",45,"Banke",""," ","Jilla","District"
+48398,157,"NPL","Nepal",4,"Mid-Western",9,"Bheri",46,"Bardiya","","Bardia","Jilla","District"
+48399,157,"NPL","Nepal",4,"Mid-Western",9,"Bheri",47,"Dailekh",""," ","Jilla","District"
+48400,157,"NPL","Nepal",4,"Mid-Western",9,"Bheri",48,"Jajarkot",""," ","Jilla","District"
+48401,157,"NPL","Nepal",4,"Mid-Western",9,"Bheri",49,"Surkhet",""," ","Jilla","District"
+48402,157,"NPL","Nepal",4,"Mid-Western",10,"Karnali",50,"Dolpa",""," ","Jilla","District"
+48403,157,"NPL","Nepal",4,"Mid-Western",10,"Karnali",51,"Humla",""," ","Jilla","District"
+48404,157,"NPL","Nepal",4,"Mid-Western",10,"Karnali",52,"Jumla",""," ","Jilla","District"
+48405,157,"NPL","Nepal",4,"Mid-Western",10,"Karnali",53,"Kalikot",""," ","Jilla","District"
+48406,157,"NPL","Nepal",4,"Mid-Western",10,"Karnali",54,"Mugu",""," ","Jilla","District"
+48407,157,"NPL","Nepal",4,"Mid-Western",11,"Rapti",56,"Dang","","","",""
+48408,157,"NPL","Nepal",4,"Mid-Western",11,"Rapti",56,"Pyuthan",""," ","Jilla","District"
+48409,157,"NPL","Nepal",4,"Mid-Western",11,"Rapti",57,"Rolpa",""," ","Jilla","District"
+48410,157,"NPL","Nepal",4,"Mid-Western",11,"Rapti",58,"Rukum",""," ","Jilla","District"
+48411,157,"NPL","Nepal",4,"Mid-Western",11,"Rapti",59,"Salyan",""," ","Jilla","District"
+48412,157,"NPL","Nepal",5,"West",13,"Gandaki",64,"Gorkha",""," ","Jilla","District"
+48413,157,"NPL","Nepal",5,"West",13,"Gandaki",65,"Kaski",""," ","Jilla","District"
+48414,157,"NPL","Nepal",5,"West",13,"Gandaki",66,"Lamjung",""," ","Jilla","District"
+48415,157,"NPL","Nepal",5,"West",13,"Gandaki",67,"Manang",""," ","Jilla","District"
+48416,157,"NPL","Nepal",5,"West",13,"Gandaki",68,"Syangja","","Syanja","Jilla","District"
+48417,157,"NPL","Nepal",5,"West",13,"Gandaki",69,"Tanahu","","Tanahun","Jilla","District"
+48418,157,"NPL","Nepal",5,"West",14,"Lumbini",50,"Kapilbastu","","","",""
+48419,157,"NPL","Nepal",5,"West",14,"Lumbini",70,"Arghakhanchi","","Argakhachi","Jilla","District"
+48420,157,"NPL","Nepal",5,"West",14,"Lumbini",71,"Gulmi",""," ","Jilla","District"
+48421,157,"NPL","Nepal",5,"West",14,"Lumbini",73,"Nawalparasi",""," ","Jilla","District"
+48422,157,"NPL","Nepal",5,"West",14,"Lumbini",74,"Palpa",""," ","Jilla","District"
+48423,157,"NPL","Nepal",5,"West",14,"Lumbini",75,"Rupandehi",""," ","Jilla","District"

baselayers/NPL_adm/NPL_adm3.prj

@@ -0,0 +1 @@
+GEOGCS["GCS_WGS_1984",DATUM["D_WGS_1984",SPHEROID["WGS_1984",6378137.0,298.257223563]],PRIMEM["Greenwich",0.0],UNIT["Degree",0.0174532925199433]]