Assignment Week 2: Developing Data Product

Introduction

Locations of Earthquakes off Fiji

The data set give the locations of 1000 seismic events of MB > 4.0. The events occurred in a cube near Fiji since 1964.There are two clear planes of seismic activity.

Map creation using Leaflet

• This map will show the quakes location in all over New Zealond.
• Produced using the leaflet package.
• Using the quake dataset.
• This is generated on 24 February 2017

library(leaflet)
quake<-quakes

Generate the leaflet map.

leaflet(quake) %>% addTiles() %>% addCircleMarkers(
  quake$long, 
  quake$lat, 
  radius = sqrt(quake$mag)*3,
  popup = paste("Magnitude: ", as.character(quake$mag), "<BR>Depth: ", as.character(quake$depth), "km", "<BR>Stations Reporting: ", as.character(quake$stations)),
  clusterOptions = markerClusterOptions() )