Interactive Maps and Plots

Questions for Interactive Maps:

The us_cities data set in the geojsonio package contains state capitals and all cities in the United States with populations larger than 40,000. The file located at “https://raw.githubusercontent.com/PublicaMundi/MappingAPI/master/data/geojson/us-states.json” contains spatial polygon boundaries for all 50 states (and the District of Columbia and Puerto Rico). The USArrests data set in the datasets package contains violant crime rates by state.

For this question you should create a map with the following features:

1. Spatial polygons for each state filled according to colors from the “viridis” color scheme and based upon that state’s murder rate in the USArrests data set.
2. Black outlines for each spatial polygon.
3. A legend in the bottom left that depicts the color scheme with an informative title.
4. A highlight that outlines a state in white when a user hovers over it.
5. Popups that show each state’s name in bold, along with its UrbanPop below the name on a new line.
6. Circle markers (with radius = 2) for each city in the us_cities data set where state capitals are colored “red” and all other cities are colored yellow
7. Labels for each city that display the city’s name (it is okay to keep the state abbreviation) and the city’s population

Hints:

• Use the argument bringToFront = FALSE in your highlight to avoid masking the city labels when hovering over a state

data("us_cities")
shapeurl <- "https://raw.githubusercontent.com/PublicaMundi/MappingAPI/master/data/geojson/us-states.json"
states <- geojson_read(shapeurl, what = "sp")
data("USArrests")

USArrests$State = row.names(USArrests)

statearrests <- left_join(data.frame(Name = states$name), USArrests, by = c("Name" ="State"))
pal <- colorBin("viridis", domain = statearrests$Murder)
mypopups <- paste("<strong>", statearrests$Name,"</strong>", "<br/>",
                  "Urban Population:", statearrests$UrbanPop)
us_cities$col <- ifelse(us_cities$capital == 2, "red", "yellow")

arrestsmap <- leaflet(states) %>% addTiles() %>% 
  addPolygons(
  fillColor = pal(statearrests$Murder),
  weight = 2,
  opacity = 1,
  color = "black",
  fillOpacity = 0.7,
      highlight = highlightOptions(
                   weight = 3,
                   color = "white",
                   fillOpacity = 0.7,
                   bringToFront = FALSE),
  popup= lapply(mypopups, HTML)) %>% 
    addLegend(pal = pal, values = statearrests$Murder,
            title = "Murder Rates", position = "bottomleft") %>% 
  addCircleMarkers(lng= us_cities$long,
                   lat = us_cities$lat,
                   label= ~paste(us_cities$name, "population:", us_cities$pop),
                   color= us_cities$col,
                   fillOpacity = 1,
                   radius= 2,
                   stroke= FALSE)
arrestsmap

Questions for Interactive Plots:

The code below loads a dataset compiled by Mother Jones documenting mass shootings in the United States. For this question you should create an animated plot of your choosing that highlights something you deem to be an important or interesting trend in these data.

Mshoot <- read.csv("https://raw.githubusercontent.com/skuiper/datascience/master/datasets/MassShootings.csv")

#plot_ly(data = Mshoot, type = "bar",  mode = "markers", 
       # x= ~Age, y= ~Fatalities, color= ~Place)

plot_ly(data = Mshoot, type = "scatter",  mode = "markers", 
        x= ~Age, y= ~Fatalities, frame= ~Year, showlegend= F,
       hoverinfo = 'text',
        text = ~paste0("Age: ", Age, "<br>", "Race: ", Race, "<br>", "Fatalities: ", Fatalities))