This is noaa.visualise package, working with the NOAA Significant Earthquakes dataset
to support the process of visualising and gaining information.
The packages includes the below groups:
| Group | Functions |
|---|---|
| Cleaning the raw data | eq_clean_data(), eq_location_clean(), eq_country_filter() |
| Visualisation tools | geom_timeline(), geom_timeline_lable(), stat_timeline(), theme_timeline() |
| Mapping tools | eq_map(), eq_create_label() |
You can install noaa.visualise from github with:
# install.packages("devtools")
devtools::install_github("maianhdang/noaa.visualise")
The NOAA Significant Earhquake Dataset contains the information of 5,933 earthquakes over the period of 4,000 years.
Cite: National Geophysical Data Center / World Data Service (NGDC/WDS): Significant Earthquake Database. National Geophysical Data Center, NOAA. doi:10.7289/V5TD9V7K
The vignettes is included in the package. Call the vignettes by:
vignette('introduction', package = 'noaa.visualise')
data("raw_data")
data <- noaa.visualise::eq_clean_data(raw_data)
data <- noaa.visualise::eq_location_clean(data) ## to create the text annotation
input_data <- noaa.visualise::eq_country_filter(data, countries = c("MEXICO", "IRAN"),
xmin = as.Date("1000-01-01"),
xmax = as.Date("2010-01-01"))
ggplot2::ggplot(input_data, ggplot2::aes (x = date, y = COUNTRY, color = as.numeric(DEATHS),
size = as.numeric(EQ_PRIMARY))) +
## geom_timeline
noaa.visualise::geom_timeline(ggplot2::aes(xmin = as.Date("1900-01-01"),
xmax = as.Date("1925-01-01"))) +
ggplot2::labs(size = "Richter Scale Values", color = "Number of Deaths" )+
## geom_timeline_label
noaa.visualise::geom_timeline_label(ggplot2::aes(label = LOCATION_NAME,
xmin = as.Date("1900-01-01"), xmax = as.Date("1925-01-01")),
n_max = 5) +
noaa.visualise::theme_timeline()
library(magrittr)
data("raw_data")
data <- noaa.visualise::eq_clean_data(raw_data)
input_data <- dplyr::filter(data, COUNTRY == "MEXICO" &
lubridate::year(date) >= 2000)%>%
dplyr::mutate(popup_text = noaa.visualise::eq_create_label(.)) ## create popup_text
noaa.visualise::eq_map(input_data, annot_col = "popup_text") ## annot_col set as popup_text
