hw2

Question 1

#install.packages("mapproj")
#install.packages("ggmap")
#install.packages("DeducerSpatial")
#df  = read.csv("Crimes_-_2001_to_present.csv", header=TRUE)
#df_2016 = subset(df,Year=='2016')

df  = read.csv("quakes_past_1_year_gt_45.csv", header=TRUE)

#install.packages("leaflet")
#addMarkers(lng=174.768, lat=-36.852, popup="The birthplace of R")+
library(leaflet)
#data_small = data_df_2016[1:100,]
#theft_small = theft[1:30000,]
m <- leaflet(df) %>%
      addTiles() %>%  # Add default OpenStreetMap map tiles
      addMarkers(lng = ~longitude, lat = ~latitude,clusterOptions = markerClusterOptions())

  
m  # Print the map