vignettes/capstone_vignette.R

In AESpe/R_capstone_final: software.dev.capstone

# #r Package Loading
# library(software.dev.capstone)
# library(readr)
# library(tidyr)
# library(dplyr)
# library(lubridate)
# library(stringr)
# library(ggplot2)
# library(grid)
# library(leaflet)
#
# ## eq_clean_data
# #eq_clean_data function, eval=FALSE
# df <- eq_clean_data("signif.txt")
#
#
# ## eq_location_clean
# #eq_location_clean function, eval=FALSE
# df <- eq_location_clean(intermediate_data)
#
# ## geom_timeline
# #geom_timeline function, eval=FALSE
# ggplot() + geom_timeline(aes(x = DATE, y = COUNTRY, color = TOTAL_DEATHS))
#
#
# ## geom_timeline_label
# #geom_timeline_label function, eval=FALSE
# ggplot() + geom_timeline(aes(x = DATE, y = COUNTRY, color = TOTAL_DEATHS) + geom_timeline_label(aes(x = DATE, y = COUNTRY, magnitude = EQ_PRIMARY, label = LOCATION_NAME, n_max = 5)))
#
#
# ## eq_map
#
# #eq_map function, eval=FALSE
# readr::read_delim("signif.txt", delim = "\t") %>%
#   eq_clean_data() %>%
#   dplyr::filter(COUNTRY == "MEXICO" & lubridate::year(DATE) >= 2000) %>%
#   eq_map(annot_col = "DATE")
#
#
# ## eq_create_label
# #eq_create_label function, eval=FALSE
# readr::read_delim("signif.txt", delim = "\t") %>%
#   eq_clean_data() %>%
#   dplyr::filter(COUNTRY == "MEXICO" & lubridate::year(DATE) >= 2000) %>%
#   dplyr::mutate(popup_text = eq_create_label(.)) %>%
#   eq_map(annot_col = "popup_text")
#