Messing With Choropleths

Messing with Maps

library(knitr)

library(rMaps)
library(RColorBrewer)
opts_chunk$set(comment = NA, results = 'asis', comments=NA, tidy = F)

With animation

choro2<-ichoropleth(Crime ~ State, data = violent_crime, animate = "Year")
# choro2$set(geographyConfig=popupConfig)
choro2$save(destfile = "chmap2.html", cdn=TRUE)
# cat('<iframe src = "chmap2.html" width=100%, height=600></iframe>')
choro2$show('iframesrc', cdn=TRUE)