U1A7

Análisis estadístico de calidad del aire del estado de Sonora

Importar

Importar paquetes

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

Importar datos

datos <- read.csv("cali.csv")

Transformar

Fecha = as.Date(datos$Fecha)
NO2 <- as.numeric(datos$NO2)
O3 <- as.numeric(datos$O3)
calidad <- data.frame(Fecha, NO2, O3)
no2o3 <- data.frame(NO2, O3)

Visualizar

#Tabla
datatable(datos)

#Grafico

ggplot(data=calidad) +
  geom_point(aes(Fecha, O3,  colour ="O3" )) +
  geom_point(aes(Fecha, NO2, colour = "NO2")) +
  xlab("Tiempo") +
  ylab("Concentración") + 
  labs (colour = "Estados") +
  ggtitle("Calidad del aire para Enero en Hermosillo (ERNO, UNAM)")

## Warning: Removed 1 rows containing missing values (geom_point).

## Warning: Removed 1 rows containing missing values (geom_point).

Analisis de correlacion

Grafico de dispercion

names(no2o3)

## [1] "NO2" "O3"

pairs(no2o3)

Grado de correlacion lineal

-Para calcular el grado de correlacion lineal calculamos la matriz de correlacion

cor(no2o3)

##            NO2         O3
## NO2  1.0000000 -0.2618802
## O3  -0.2618802  1.0000000

regresion <- lm(O3 ~ NO2, data= no2o3)
summary(regresion)

## 
## Call:
## lm(formula = O3 ~ NO2, data = no2o3)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -388.9 -156.7   -9.4  153.3  465.4 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 391.9696    11.1389  35.189  < 2e-16 ***
## NO2          -2.0746     0.2849  -7.281  8.7e-13 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 186.8 on 720 degrees of freedom
## Multiple R-squared:  0.06858,    Adjusted R-squared:  0.06729 
## F-statistic: 53.01 on 1 and 720 DF,  p-value: 8.698e-13

Conclusion

En el ejercio se realizaron graficas para poder observar la relacion entre 2 gases de NO2 y 03 en la ciudad de Hermosillo, Sonora, con datos del mes de Enero 2020. S e transformaron los datos en un data.frame para ver la relacion de los 2 gases. Donde de se puede observar que con poco NO2 se genera mucho 03. Se realizo un graico de dispercion y el indice de correlacion de los datos. Por ultimo se realizo un summary de regresion.