US State Population Map and Winner of 2014 Presidential Elections

#install.packages("leaflet")

Leaflet Demo

library(leaflet)
dat <- read.csv("state_facts.csv")
dat$col <- NULL
dat$col[dat$Winnner=="Republican"] <- "red"
dat$col[dat$Winnner=="Democrat"] <- "blue"

myMap <- leaflet () %>% 
  addTiles() %>% 
  addCircles(lat = dat$Latitude, lng = dat$Longitude, popup = paste(dat$State, "<br>",dat$Abbreviation, "<br>", "Winner:", dat$Winnner, "<br>","Population:", dat$Population, sep = " "), color = dat$col) %>% addLegend(labels = c("Republican", "Democrat"), colors = c("red", "blue"))
myMap