eq_create_label: Create an HTML pop-up label showing location, magnitude and...

In RussellPolitzky/quake: Earthquake Data Visualizations

Description

eq_create_label takes a NOAA data.frame with columns clean_location, EQ_PRIMARY and TOTAL_DEATHS and produces a vector of strings contituting HTML encoded labels showing the location, magnitude and total, associated deaths caused the each quake.

Usage

eq_create_label(data)

Arguments

data	is a data.frame with clean_location, EQ_PRIMARY and TOTAL_DEATHS columns. The data in these columns is used to generate HTML encoded label strings.

Value

a vector of HTML encoded, label strings.

Examples

library(quake)
library(readr)
library(dplyr)
library(lubridate)

data_file_name <- system.file("extdata", "earthquakes.tsv.gz", package = "quake")

read_delim(data_file_name, delim = "\t") %>%
  eq_clean_data()                                       %>%
  filter(COUNTRY == "MEXICO" & year(date) >= 2000)      %>%
  mutate(popup_text = eq_create_label(.))               %>%
  eq_map(annot_col = "popup_text")

RussellPolitzky/quake documentation built on May 23, 2019, 10:35 p.m.