2/14/2022

Medición y Zona

A continuación se presenta un pantallazo de la base de datos

library(readxl)
datos = read_excel("~/Desktop/prueba_1736694__20220207-32661-d9psyo.xlsx")
head(datos[,4:10])
## # A tibble: 6 x 7
##   Latitude Longitude  temp   pm1  pm10 pm2.5 humedad
##      <dbl>     <dbl> <dbl> <dbl> <dbl> <dbl>   <dbl>
## 1     33.5     -76.5    72    NA    NA    NA      NA
## 2     33.5     -76.5    NA    NA    NA    NA      91
## 3     33.5     -76.5    NA     3    NA    NA      NA
## 4     33.5     -76.5    NA    NA    NA     5      NA
## 5     33.5     -76.5    NA    NA     6    NA      NA
## 6     33.5     -76.5    73    NA    NA    NA      NA

Medición y Zona

require(leaflet)

leaflet() %>% addMarkers(lng = datos$Longitude[1:20],lat = datos$Latitude[1:20]/10) %>% addTiles()

Hipotesis Planteadas

Ejemplo: El nivel de contaminación en la U es menor que en la cañas gordas?

Resultados

  • Univariado

-Bivariad

##Limitaciones y Recomendaciones