Visualización parte del proyecto #datosdemiercoles de @R4DS_es.

Más información acá

Herramienta de #rstats: mapbox + plotly

Mapa interactivo

incendios <- readr::read_csv("https://raw.githubusercontent.com/cienciadedatos/datos-de-miercoles/master/datos/2019/2019-09-11/incendios.csv")
library(tidyverse)
library(plotly)
library(lubridate)

incendios_julio <- incendios %>% filter(mes==7) %>%
  mutate(Dia=day(fecha))

plot_mapbox(data=incendios_julio) %>%
  add_markers(x= ~longitud,
              y= ~latitud,
              size= ~intensidad,
              text= ~paste(fecha, 
              "Hora:", horamin, sep=" "),
              hoverinfo="text",
              color="darkred",
              marker=list(symbol = 'circle', sizemode = 'diameter',
                          sizemode = 'diameter'),
              frame= ~Dia
              ) %>% 
  hide_legend() %>%
  layout(mapbox = list(style = "satellite", 
                       zoom=2.6, 
                       center=list(lat= ~-11.78,
                                   lon= ~-59.78)),
         title="Incendios registrados mediante imágenes satelitales - JULIO 2019"
  ) %>%
  animation_opts(1000, easing = "elastic", redraw = TRUE, mode = "immediate") %>%
  animation_slider(currentvalue = list(prefix="Día", font = list(color="black"), face="bold"))

Sobre los datos

"Los incendios activos se detectan mediante imágenes de satélites, sobre la base de anomalías termales, es decir, diferencias considerables entre la temperatura de un pixel dado y las temperaturas que se registran en el terreno a su alrededor.

El sensor MODIS a bordo de los satélites Terra y Aqua registra incendios en pixeles de 1 km de lado. El sensor VIIRS está a bordo del satélite SNPP y usa un algoritmo similar para detectar incendios; sin embargo, el pixel es de 375 m de lado. Debido al tamaño del pixel en el terreno, puede haber más de un foco de incendio en los datos de MODIS, pero con pocos pixeles se cubre mejor toda América Latina.

El dataset que se presenta corresponde a 6 meses de registros de incendios activos diarios detectados por el sensor MODIS tanto por el satelite Terra como por el Aqua. En conjunto, ambos una misma región 4 veces por día."

Fuente: R4DS_ES