title: "Vignette Title"
author: "Antonio Zerbinati"
date: "r Sys.Date()
"
output: rmarkdown::html_vignette
vignette: >
%\VignetteIndexEntry{Vignette Title}
%\VignetteEngine{knitr::rmarkdown}
%\VignetteEncoding{UTF-8}
# library(capStoneQuake) # library(dplyr) # library(ggplot2) # cleanedNOA<-eq_location_clean(eq_clean_data(readRawNOAA(file.path("~","signif.txt")))) # # italy<-cleanedNOA %>% arrange(DEATHS )%>% filter(COUNTRY=="ITALY") %>% mutate(y=2) # greece<-cleanedNOA %>% arrange(DEATHS )%>% filter(COUNTRY=="GREECE") %>% mutate(y=3) # # # # greece %>% union_all(italy) %>% # ggplot() + # aes( # x = date, # y=y, # size = EQ_PRIMARY, # colour = DEATHS # ) + # geom_timeline(alpha=0.4,xmin=2013,xmax=2015) + # scale_colour_gradient(name = "# DEATHS", low = "BLACK",high = "RED") + # scale_size_continuous(name = "Richter scale value") #
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.