HW5

library(tidyverse)

## Warning: package 'tidyverse' was built under R version 4.0.5

## Warning: package 'ggplot2' was built under R version 4.0.5

## Warning: package 'tibble' was built under R version 4.0.5

## Warning: package 'tidyr' was built under R version 4.0.5

## Warning: package 'dplyr' was built under R version 4.0.5

## Warning: package 'forcats' was built under R version 4.0.5

library(openintro)
library(leaflet)

## Warning: package 'leaflet' was built under R version 4.0.5

Exercise 1

Insert any text here.

data <- read.csv("https://raw.githubusercontent.com/jamesqo/gun-violence-data/17dc3079a18c872c684da2e1fe051cc41f054334/intermediate/stage2.11.2016.csv")

Exercise 2

data %>% 
  leaflet() %>% 
  addTiles() %>% 
  addMarkers(popup=data$incident_characteristics , clusterOptions=markerClusterOptions())

## Assuming "longitude" and "latitude" are longitude and latitude, respectively

## Warning in validateCoords(lng, lat, funcName): Data contains 1043 rows with
## either missing or invalid lat/lon values and will be ignored

…