U1A14

EQUIPO 6: Angélica Payán Serna, Karen Gutiérrez Velásquez y Andrea Higuera Chávez

11/3/2021

ESTUDIO DE CASO 9: ANALISIS DE LA CALIDAD DEL AIRE EN HERMOSILLO SON, EN FUNCIÓN DEL INCREMENTO DE NO2 DURANTE EL INICIO DE PANDEMIA.

Descarga este código

Descarga de este código

xfun::embed_file("U1A14.Rmd")

Download U1A14.Rmd

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.

  • El dióxido de nitrógeno (NO2) es un gas corrosivo y oxidante de color rojiso-marrón con un olor penetrante e irritante. El dióxido de nitrógeno 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.

  • Durante el inicio de pandemia en Hermosillo, Son., la concentración de NO2 bajo debido a que estabamos en cuarentena, lo que quiere decir es que el ser humano es uno de los principales causantes de este fénomeno, y en el presente trabajo se demostrara las relaciones que se tienen de este problema.

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.0.5     v dplyr   1.0.4
## v tidyr   1.1.2     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)

Tabla de datos

datatable(aire)

Graficación de datos

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)

Importación de datos de movilidad

movilidad <- read_excel("SonoraMov.xlsx")
view(movilidad)

Gráfica de tránsito

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)

Gráfica de movilidad con todos los elementos que incrementan el NO2

mov <- ggplot(movilidad)+
  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 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="Movilidad en Sonora",x="Fecha",y="Procentaje de cambio de movilidad")

ggplotly(mov)
  • Se puede observar, como los lugares residenciales producen más NO2.

CONCLUSIÓN

  • Con esta investigación, nos pudimos percatar que al inicio de la pandemia ayudo a disminuir los incrementos de NO2, lo cual favorecio bastante al medio ambiente, debido a que muchas personas estaban completamente resguardadas, evitando utilizar diversos equipos que emiten ciertos gases contaminantes.

  • 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. Por lo cual debemos estar más consientes de este problema y darnos cuenta de como nuestras actividades diarias afectan al ambiente.