New_voting

library(rgdal)

## Loading required package: sp

## rgdal: version: 1.2-6, (SVN revision 651)
##  Geospatial Data Abstraction Library extensions to R successfully loaded
##  Loaded GDAL runtime: GDAL 1.10.1, released 2013/08/26
##  Path to GDAL shared files: /usr/share/gdal/1.10
##  Loaded PROJ.4 runtime: Rel. 4.8.0, 6 March 2012, [PJ_VERSION: 480]
##  Path to PROJ.4 shared files: (autodetected)
##  Linking to sp version: 1.2-4

library(leaflet)

shp<-readOGR("data","constituencies_new")

## OGR data source with driver: ESRI Shapefile 
## Source: "data", layer: "constituencies_new"
## with 632 features
## It has 10 fields

#str(shp@data)
d<-read.csv("data/combined.csv")
#str(d)
shp<-merge(shp,d,by.x="gss",by.y="id")
#str(shp@data)

shp<-shp[!is.na(shp$Win),]


cls<-colorFactor(c('blue', 'green', 'red', 'orange', 'pink', 'purple'),domain = shp$Win)

mp<-leaflet(shp) %>%
  addTiles() %>%
addPolygons(fillColor = cls(shp$Win),color=cls(shp$Win))
mp

#writeOGR(shp,"data","resultseng","ESRI Shapefile",over=TRUE)

carto<-readOGR("data","cartogram")

## OGR data source with driver: ESRI Shapefile 
## Source: "data", layer: "cartogram"
## with 573 features
## It has 35 fields

mp<-leaflet(carto) %>%
addPolygons(fillColor = cls(shp$Win),color=cls(shp$Win))
mp