eq_map: This is a simple funtion for mapping

In ksnt/gsedr: Analyze Global Significant Earthquake Database in R

Description

This is a simple funtion for mapping

Usage

eq_map(data, annot_col)

Arguments

data	Data
annot_col	A character, which is a column in data to be shown in map

Value

Leaflet map

Examples

library(ggplot2)
library(leaflet)
library(dplyr)

datapath <- system.file("extdata", "earthquakes.txt", package = "gsedr")
data <- readr::read_delim(datapath, delim = "\t") %>% eq_clean_data()
dddd <- data %>% dplyr::filter(COUNTRY %in% c('INDONESIA')) %>% dplyr::filter(!is.na(EQ_PRIMARY), !is.na(DEATHS))
dddd %>% dplyr::mutate(popup_text = eq_create_label(.)) %>% eq_map(annot_col = "popup_text")

ksnt/gsedr documentation built on May 12, 2019, 1:05 p.m.