Quakes

1 Introducción

En este reporte utilizaremos el dataset quakes para realizar el gráfico interactivo

2 Carga de datos

Cargamos el dataset quakes

library(datasets)

2.1 Visualización con paged

quakes

2.2 Visualización con librería DT:

library(DT)
datatable(quakes)

3 Análisis Gráfico

3.1 Magnitud de los sismos

library(plotly)
library(ggplot2)
fig1 <- ggplot(quakes, mapping = aes(x = mag)) +
  geom_histogram() +
  xlab("Magnitud") + ylab("Frecuencia") +
  theme(axis.text.x = element_text(angle = 12))
ggplotly(fig1)

3.2 Profundidad de los sismos

library(plotly)
library(ggplot2)
fig1 <- ggplot(quakes, mapping = aes(x = depth)) +
  geom_histogram() +
  xlab("Magnitud") + ylab("Frecuencia") +
  theme(axis.text.x = element_text(angle = 12))
ggplotly(fig1)

3.3 Geolocalización de los sismos

library(leaflet)
leaflet() %>%     # Inicialización
  addTiles() %>%  # Añadir mapa.
  addMarkers(lng = as.numeric(as.character(quakes[,2])),
             lat = as.numeric(as.character(quakes[,1])),
             clusterOptions = markerClusterOptions() # Agrupar al alejar 
             )