ANALISIS DE LA CALIDAD DEL AIRE EN HERMOSILLO SON. DURANTE EL INICIO DE PANDEMIA.
El siguiente caso de estudio abarca el primer mes de pandemia (10/03/20-10/04/20)
Acerca de este archivo
Introducción
El dióxido de nitrógeno forma parte de un grupo de contaminantes gaseosos que se producen como consecuencia del tráfico rodado y de otros procesos de quema de combustibles fósiles. Su presencia en el aire contribuye a la formación y modificación de otros contaminantes del aire tales como el ozono y las partículas en suspensión, así como a la aparición de la lluvia ácida.
Se produce cuando el oxígeno (O2) y el nitrógeno (N2) presentes en el aire se combinan químicamente, algo que no ocurre a temperaturas normales, pero si en otras condiciones, como en las altas temperaturas generadas al interior de motores de combustión interna. Efectivamente, la combustión de combustibles fósiles en motores de combustión interna produce óxido nítrico (NO) que reacciona rápidamente con oxígeno ambiental para producir dióxido de nitrógeno (NO2).
Causa efectos nocivos en la salud, especialmente al sistema respiratorio. Respirar altos niveles de dióxido de nitrógeno durante poco tiempo perjudica las células pulmonares. Puede producir de forma rápida quemaduras en piel, ojos y en los tejidos de la garganta, acumular líquido en los pulmones y llevar a la muerte.
Importación de datos
setwd("~/Estadistica")
library(readxl)
library(tidyverse)## -- Attaching packages --------------------------------------- tidyverse 1.3.0 --## v ggplot2 3.3.3 v purrr 0.3.4
## v tibble 3.1.0 v dplyr 1.0.5
## v tidyr 1.1.3 v stringr 1.4.0
## v readr 1.4.0 v forcats 0.5.1## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()library(prettydoc)
library(readr)
library(DT)
library(pacman)
p_load("base64enc","htmltools","mime","xfun","prettydoc","readr","knitr","DT","dplyr","ggplot2","plotly","gganimate","gifski","scales")aire <- read_excel("Aire.xlsx")
view(aire)Gráfica de NO2
NO2 <- ggplot(data = aire) +
geom_line(aes(Fecha, NO2), color="green") +
xlab("Fecha") +
ylab("Concentración de NO2 (ppm)") +
ggtitle("Concentración de NO2 en el aire en Hermosillo, 2020.")
ggplotly(NO2)Gráfica de O3
ozono <- ggplot(data = aire) +
geom_line(aes(Fecha, O3), color="pink") +
xlab("Fecha") +
ylab("Concentración de O3 (ppm)") +
ggtitle("Concentración de O3 en el aire en Hermosillo, 2020.")
ggplotly(ozono)Gráfica de los promedios de O3 en marzo de 2020
marzo2020 <- read_excel("MAR20.xlsx")
view(marzo2020)promO3 <- ggplot(data = marzo2020) +
geom_line(aes(FECHA, O3), color="red") +
xlab("Fecha") +
ylab("Concentración de O3 (ppm)") +
ggtitle("Promedios de la concentración de O3 en el aire en Hermosillo, marzo 2020.")
ggplotly(promO3)movilidad <- read_excel("SonoraMov.xlsx")
view(movilidad)Gráfica de movilidad
mov <- ggplot(movilidad)+
geom_line(aes(x=date,y=transit_stations_percent_change_from_baseline,colour="Tránsito"))+
labs(colour = "") +
labs(title="Movilidad en Sonora 2020",x="Fecha",y="Tránsito")
ggplotly(mov)Conclusiones
Los inicios de la pandemia ayudaron al medio ambiente a mejorar la calidad el aire, debido a que muchas personas estaban completamente resguardadas, evitando utilizar diversos equipos que emiten ciertos gases contaminantes.
El tránsito de personas empezó a aumentar al paso de los meses, debido a que las personas tiene que retomar sus actividades, lo que causa un aumento en la emisión de gases contaminantes.