Simone Di Cicco
August, 2nd 2017
This is the second assignment for the final course project.
The application is hosted at ShinyApps.io following the link:
What you can do with the App:
All the data are took from INGV (Istituto Nazionale di Geofisica e Vulcanologia), the Italian National Institute for Geophysics and Volcanology.
Source code of the project is stored here:
library(lubridate)
dataset <- read.csv("../equakes-dataset.csv", sep = "|")
dataset$Time <- ymd_hms(dataset$Time)
dataset$Year <- year(dataset$Time)
# Clean dataset.
columns_to_drop <- c("X.EventID", "Catalog", "Author", "Contributor", "ContributorID")
dataset <- dataset[, !(names(dataset) %in% columns_to_drop)]
head(dataset)
Time Latitude Longitude Depth.Km MagType Magnitude
1 2006-01-01 01:57:29 37.554 16.124 31.3 ML 2.1
2 2006-01-01 05:49:31 41.755 13.554 8.4 ML 2.2
3 2006-01-01 18:55:45 39.376 17.065 10.0 ML 2.3
4 2006-01-01 21:11:53 40.855 16.435 7.2 ML 2.4
5 2006-01-02 02:43:03 45.526 12.059 11.0 ML 2.1
6 2006-01-02 09:47:52 43.321 12.204 5.8 ML 2.5
MagAuthor EventLocationName Year
1 -- Mar Ionio Meridionale (MARE) 2006
2 -- 6 km S Balsorano (AQ) 2006
3 -- 1 km SE Cir\303\262 (KR) 2006
4 -- 4 km NE Gravina in Puglia (BA) 2006
5 -- 3 km NE Santa Maria di Sala (VE) 2006
6 -- 10 km NE Lisciano Niccone (PG) 2006