Introducción

Desde el comienzo de la pandemia hemos experimentado demasiados cambios drásticos a lo largo de la mísma, entre ellos un desplome económico, caída de los precios de la materia prima, interrupción de las cadenas de producción global , menor demanda de servicios turísticos, fuga de capitales y devaluaciones de monedas. En esta ocasión estaremos analizando la contaminación del aire que hubo en Hermosillo durante los inicios de covid, con el fin de llegar a la conclusión de el que fue lo que causo el cambio en la caldiad del aire(BBC News 2020). Actualmente llevamos 352 días en cuarentena considerando que empezó el 23 de Marzo de 2020 (Goal 2021).

Principales contaminantes del aire

El aire puede ser contaminado por bastantes químicos y muchos de ellos dañinos para la salud de los habitantes que lso respiran día con día, entre estos químicos se encuentra:

• CO

Este gas se produce por la combustión de bajas concentraciones de oxígeno, a lo que se le llama combustión incompleta. Este puede causar daños a la salud ya que reduce la capaciadad de la sangre de transportar el oxigeno a los diferentes órganos.

• NO NO2

Por sus nombres: óxido nítrico y dióxido de nitrógeno, NO es producido en cantidades mucho mayoores pero se oxida rápidamente a NO2 en la atmósfera y el 62% de su totalidad es producido por vehículos o transportes con combustión para generación de energía, mecánica y eléctrica. Este causa efectos dañinos en los bronquis, puede irritar los pulmones y bajar la resistencia a infecciones respiratorias.

• SO2

Se conoce como un gas muy reactivo a la atmósfera y el 93% de su totalidad es generado por los combustibles fósiles. La OMS actualmente a correlacionado que los efectos negativos sobre el aparato respitaroio y la concentración de SO2.

• O3

Conocido como ozono este puede llegar a ser muy malo si se mantiene en la para los edificios y rocas ya que si este se manitene en un nivel bajo de la atmósfera puede ser corrosivo. Además de los daños a las estructuras también puede dañar a los seres humanos empeorando síntomas de numerosas enfermedades.

Ozono como fuente de contaminación

Para iniciar, el ozono es un gas formado por tres atomos de oxigeno, se sule utilizar para esterilizar el agua, purificar el aire y llevar a cabo oxidaciones en química orgánica. A pesar de desempeñar un papel fundamental para proteger a los seres vivos de la radiación solar y los rayos UV en las capas altas de la atmósfera, el ozono tambien actúa como un importante agente contaminante en las capas bajas de la misma, afectando a cualquier ser vivo por que este entra directamente por el aparato digestivo.

Hay cuatro grupos de la población que son sensibles a la contaminación por ozono:

• Niños: este es el grupo de mayor riesgo. Esto por que los niños pasan la mayoría de su tiempo expuestos al aire libre en actividades físicas.

• Adultos: cuando se realizan actividades físicas por mucho tiempo en el exterior, por la agitacion que el ejercicio provoca es facil que particulas de ozono entren a nuestro organismo.

• Personas con enfermedades respiratorias como asma o bronquitis, el ozono puede agravar el problema.

• Personas que sin razon conocida son sensibles al ozono.

Lo preocupante de este gás es que se puede adentrar en cualquier organismo por medio de la respiración, esto es bastante grave por el daño tan grave que esto supone para cualquiera por las afecciones respiratorias que se pueden traer y otros daños a la salud en general.

OZONO

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

# Datos de movilidad
reporteMovilidad <- read_csv("2020_MX_Region_Mobility_Report.csv")

# Datos de contaminantes en el aire
contaminantes<- read_csv("contaminantes.csv")

reporteMovilidad <- reporteMovilidad[reporteMovilidad$sub_region_1=="Sonora",]
reporteMovilidad <- reporteMovilidad[388:774,]

Gráfica interactiva de movilidad (Gráfica 1)

gmovilidad <- ggplot(reporteMovilidad)+
  geom_line(aes(x=date,y=retail_and_recreation_percent_change_from_baseline,colour="Lugares de recreación"))+
    geom_line(aes(x=date,y=grocery_and_pharmacy_percent_change_from_baseline,colour="Tiendas de primera necesidad y farmacias"))+
    geom_line(aes(x=date,y=parks_percent_change_from_baseline,colour="Parques"))+
    geom_line(aes(x=date,y=transit_stations_percent_change_from_baseline,colour="Estaciones de transito"))+
    geom_line(aes(x=date,y=workplaces_percent_change_from_baseline,colour="Lugares de trabajo"))+
    geom_line(aes(x=date,y=residential_percent_change_from_baseline,colour="Lugares residenciales"))+
    labs(title="Reporte de movilidad",x="Fecha",y="Procentaje de cambio de movilidad")

ggplotly(gmovilidad)

En esta gráfica podemos apreciar como es que los lugares donde frecuentaba la gente eran parejos hasta abril de 2020, que fue cuando lllegó la pandemia, se puede apreciar que los lugares residenciales aumentaron por mucho debido a la contingencia y todos los demás bajaron una cantidad importante.

Gráfica interactiva del Ozono (O3) (Gráfica 2)

gOzono <- ggplot(contaminantes)+
  geom_line(aes(x=Fecha,y=O3),color="green")+
  labs(title="Ozono en el aire",x="Fecha",y="Partes por millon (ppm)")
  
ggplotly(gOzono)

Gráfica interactiva del Dioxido de azufre (NO2) (Gráfica 3)

gNO2 <- ggplot(contaminantes)+
  geom_line(aes(x=Fecha,y=NO2),color="blue")+
  labs(title="Dióxido de nitrógeno en el aire",x="Fecha",y="Partes por millon (ppm)")

ggplotly(gNO2)

grid.arrange(gmovilidad,gOzono,gNO2)