Coursera Developing Data Products course Project

Simone Di Cicco
August, 2nd 2017

Earthquakes in Italy - Explorer

This is the second assignment for the final course project.

  • shiny package was user to build-up the data application
  • R-Presentation package was used to make the product presentation

Data Application

The application is hosted at ShinyApps.io following the link:

What you can do with the App:

  • Have a recap of the earthquakes happened in Italy between 2006 and 2016
  • Filter by range of Year
  • Filter by range of Magnitude
  • View a Map containing the places impacted by earthquakes
  • View an aggreagate by Year and Magnitude
  • Download the (eventual filtered) dataset

The Dataset

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:

The Dataset

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