Importar Datos

library(pacman)
p_load("readxl", "DT")
library(readxl)

setwd("~/APLICADA")

library(readxl)
Concentracion_Mov <- read_excel("Concentracion_Mov.xlsx")
View(Concentracion_Mov)

Analisis exploratorio de datos

Empezamos este analisis utilizando una matriz de diagramas de dispersión

Cual de las variables de movilidad afectan mas a la incidencia de contaminantes atmosfericos?

Nuestra hipotesis es que a medida que las personas aumentan su estadia en casas ( y por consecuente no usan su automovil o el transporte publico) los contaminantes atmosfericos bajan su concentración.

pairs(Concentracion_Mov)

library(pacman)
p_load(rmdformats,readr,readxl,ggplot2,plotly,DT,xfun,gridExtra,leaflet)

content <- paste(sep = "<br/>",
  "<b><a href='https://www.ruoa.unam.mx/index.php?page=estaciones&id=6#datos'>ERNO</a></b>","Lng: -110.9706, Lat: 29.0814")


m <- leaflet() %>%
  addTiles() %>%  
  addMarkers(lng=-110.9706, lat= 29.0814, popup= content)

m