eq_map: Map of NOAA Significant Earthquake data

In jtgit-la/msdrCourseraCapstonePackage: Data visualization and cleaning tools for the NOAA Earthquakes Dataset

Description

This function creates a leaflet map from a NOAA Significant Earthquake dataframe.

Usage

eq_map(data, annot_col = "")

eq_create_label(data)

Arguments

data	a dataframe from the NOAA Significant Earthquake dataframe.
annot_col	colummn name of the variable to be used for annotating the points.

Value

A leaflet map with the earthquake locations plotted as points, with radius proportional to the magnitude.

Examples

## Not run: library(msdrCourseraCapstonePackage)
library(magrittr)
library(ggplot2)
library(dplyr)
library(lubridate)
library(readr)

data_path <- system.file("extdata", "signif.txt", package = "msdrCourseraCapstonePackage")

eq_data_raw <- read.delim(data_path)

eq_data <-
 eq_data_raw %>%
 eq_clean_data() %>%
 eq_location_clean()

eq_data %>%
 dplyr::filter(COUNTRY == "MEXICO" & lubridate::year(DATE) >= 2000) %>%
 eq_map(annot_col = "DATE")

eq_data %>%
 eq_clean_data() %>%
 dplyr::filter(COUNTRY == "MEXICO" & lubridate::year(DATE) >= 2000) %>%
 dplyr::mutate(popup_text = eq_create_label(.)) %>%
 eq_map(annot_col = "popup_text")

## End(Not run)

jtgit-la/msdrCourseraCapstonePackage documentation built on May 10, 2020, 5:01 p.m.