Just my thoughts, does not reflect views of my employer.

Here, I demonstrated how to do redistricting of schools using Kmeans Cluster Analysis.

This exploratory data analysis compares the school characteristics of Pure MG and Mixed MG schools with respect to the 8 hardship variables.

library(GISTools) setwd("C:/r/philmap") palgeo <- read.csv("C:/r/philmap/palgeo2.csv") pal<-readShapePoly("Palawan.shp") plot(palgeo$Longitude, palgeo$Latitude, col=ifelse (palgeo$Offering >=2,"blue", "red"), lwd=.25, pch=ifelse (palgeo$Offering >=2,16, 17), cex=.6) plot(pal, add=TRUE, border="gray") title('Location of Palawan Schools')

library(GISTools) setwd("C:/r/philmap") pal<-readShapePoly("Palawan.shp") plot(pal, col="white", pch=11, cex=1.5) palgeo <- read.csv("C:/r/philmap/palgeo.csv") plot(palgeo, lwd=.25, pch=1) plot(pal, add=TRUE, border="grey50") title('Location of Palawan Schools')