U1A7 analisis de la calidad del aire

Importar

library(pacman)
p_load("readr", "tidyverse", "DT", "prettydoc")

Datos de la calidad del aire para los contamiantes atmosféricos o3 y No2 de la estacion ERNO de la UNAM en hermosillo para el mes de Marzo de 2020

#leyendo datos del mes de abril
datos <- read.csv("aire.csv")
#leyendo datos del mes de mayo
datosMayo <- read.csv("aireMayo.csv")

#tabla de datos para el mes de abril
datatable(datos)

#tabla de datos para el mes de mayo
datatable(datosMayo)

#Gráfica de datos del mes de abril
O3 <- datos$O3
NO2 <- datos$NO2
aire <- data.frame(O3,NO2)
pairs(aire)

#Gráfica de datos del mes de mayo
O3mayo <- datosMayo$O3
NO2mayo <- datosMayo$NO2
aireMayo <- data.frame(O3mayo, NO2mayo)
pairs(aireMayo)

cor(aire)

##            O3       NO2
## O3  1.0000000 0.1882128
## NO2 0.1882128 1.0000000

cor(aireMayo)

##             O3mayo    NO2mayo
## O3mayo  1.00000000 0.04372315
## NO2mayo 0.04372315 1.00000000