Description Usage Arguments Value Examples
This is a simple funtion for mapping to create label
1 |
data |
Data |
Character vector
1 2 3 4 5 6 7 8 | 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")
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.