Developing Data Product Assignment Week 2

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. One is a major plate junction; the other is the Tonga trench off New Zealand. These data constitute a subsample from a larger dataset of containing 5000 observations.

Leaflet Mapping

• This map will show the quake location in New Zealond
• Load the leaflet package.
• The dataset used is the “quake” dataset.
• This is generated on 24 February 2017

library(leaflet)
data<-quakes

• Code below will generate a leaflet map which maps the quakes coordinate into the map.

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