knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "man/figures/README-" ) library(noaaQuake) library(ggplot2)
The goal of noaaQuake is to be a package that contains some functions that helps clean, manipulate and visulaise the earthquakes data
You can install the noaaQuakes package by running:
library(devtools) devtools::install_github("00mathieu/noaaQuake")
db <- clean_raw_data()
ggplot(db[COUNTRY %in%c("CHINA","GREECE")], aes (x = as.Date(DATE), y = COUNTRY, color = as.numeric(DEATHS)/1000, size = as.numeric(EQ_PRIMARY))) + geom_timeline(aes(xmin = as.Date("2000-01-01"), xmax = as.Date("2018-01-01"))) + geom_timeline_label(n_max = 15, aes(label = LOCATION_NAME, xmin = as.Date("2000-01-01"), xmax = as.Date("2018-01-01")))+ xlab("Date") + ylab("") + ggtitle("Timeline of Earthquakes") + labs(size = "Richter scale", color = "# deaths (k)" )+ theme_bw() + theme(legend.position="bottom")
eq_map(db[COUNTRY %in%c("GREECE") & DATE>"2000-01-01"], annot_col = "popup_text")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.