setwd("~/R Scripts") # Directorio de trabajo.
library("pacman") # Importa biblioteca "pacman". Se utiliza para hacer una mejor gestión de paquetes.
p_load("base64enc", "htmltools", "mime", "xfun", "prettydoc","readr", "knitr","DT","dplyr", "ggplot2","plotly", "gganimate","gifski","scales", "readxl", "tidyverse","cluster", "factoextra","NbClust","tidyr") # Paquetes necesarios para la elaboración.Descarga este documento
Para fines de reproducibilidad se incluye el código para su descarga.
xfun::embed_file("U1A13.Rmd")Introducción
###¿Qué es el cambio climático? Es un cambio en el clima que es atribuido directa o indirectamente a las actividades humanas que altera la composición global de la atmósfera y a la variabilidad climática que ha sido comparada con otros periodos de tiempo.
El cambio de temperatura actual está sucediendo en un espacio de tiempo muy corto, esto se vincula al aumento en la concentración de los Gases de Efecto Invernadero (GEI) como el dióxido de carbono (CO2), metano (CH4), vapor de agua (H2O), ozono (O3) y óxido nitroso (N2O).
El 68% de las emisiones globales vienen de sólo diez países entre ellos México, contribuyendo con el 1.68%. Las principales fuentes de emisiones de los GEI en México son el transporte, la generación de electricidad y la industria.
Fuente: https://www.wwf.org.mx/que_hacemos/cambio_climatico_y_energia/
###¿Qué causa el cambio climático?
Los principales puntos que causan cambios climáticos son:
- Transporte contaminante
- Edificios que necesitan rehabilitación energética
- La industria como causa del cambio climático
- Generación excesiva de residuos
- Agricultura y ganadería: sistema alimentario no sostenible
- Derroche de energía
- Deforestación
datos <- read_excel("materialAire.xlsx")
graf <- ggplot(data = datos) +
theme(axis.text.x = element_text(angle=90,hjust=1),axis.text.y =element_text(size = 6))+
geom_point(mapping = aes(x = año, y = norte, colour=norte))+
geom_point(mapping = aes(x = año, y = noroeste, colour=noroeste))+
geom_point(mapping = aes(x = año, y = sur, colour=sur))+
geom_point(mapping = aes(x = año, y = centro, colour=centro))+
geom_point(mapping = aes(x = año, y = surponiente, colour=surponiente))+
xlab("Año") +
ylab("Concentración PM10 ") +
labs(colour = "Concentración") +
ggtitle("Concentración promedio anual de material particulado en el aire") +
scale_y_continuous(labels = comma)
ggplotly(graf)datos <- read_excel("GEI.xlsx")
grafica1<- ggplot(datos, aes(x = año, y = GEI))+
geom_bar(stat ="identity", fill = "lightblue", width = 0.7, orientation = "vertical") +
xlab("Año") +
ylab("Concentración PM10 ") +
ggtitle("Millones de toneladas")
ggplotly(grafica1)Concentración promedio anual de material particulado en el aire
datos <- read_excel("materialAire.xlsx")
graf <- ggplot(data = datos) +
theme(axis.text.x = element_text(angle=90,hjust=1),axis.text.y =element_text(size = 6))+
geom_point(mapping = aes(x = año, y = norte, colour=norte))+
geom_point(mapping = aes(x = año, y = noroeste, colour=noroeste))+
geom_point(mapping = aes(x = año, y = sur, colour=sur))+
geom_point(mapping = aes(x = año, y = centro, colour=centro))+
geom_point(mapping = aes(x = año, y = surponiente, colour=surponiente))+
xlab("Año") +
ylab("Concentración PM10 ") +
labs(colour = "Concentración") +
ggtitle("Concentración promedio anual de material particulado en el aire") +
scale_y_continuous(labels = comma)
ggplotly(graf)Innovación para la sostenibilidad
Debido a todas las problemáticas actuales en el ambiente, han estado surgiendo ya desde hace tiempo todo tipo de tecnologías totalmente nuevas que vienen a solucionar los problemas de cambio climático, propuestas como los combustibles alternativos, el optar por usar diversas fuentes de energías renovables, el uso de vehículos eléctricos, esto podría ayudar a reducir la emisión de gases que generan los cambios de clima.
Una propuesta innovadora muy completa es el uso de las microalgas, su producción puede variar debido a los fines que se busquen con esta, para la creación de productos cosméticos, aceites, la creación de biocombustible, la demanda de este ultimo se ha mantenido bastante estable en los últimos años, la parte mas interesante de la producción de estas es que requieren CO2 para su producción es así como previenen su emisión, aquí en Sonora pueden empezara implementarse junto a nuestras plantas termo eléctricas que generan el CO2 de una manera controlada y así se aprovecharía.
Conclusión
La contaminacion ha estado siendo un problema creciente de los ultimos tiempos, cada vez la situación apunta a un peor estado general del ambiente, los datos graficados demuestran que Hermosillo no es la excepción, mas sin embargo las propuestas de apoyo al ambiente ahi estan, esperemos ven en un futuro la implementación de muchas de estas para poder mejorar la situación de nuestro medio ambiente.
Fuentes
https://agrotendencia.tv/agropedia/el-cultivo-de-microalgas/#:~:text=Las%20microalgas%20existen%20en%20casi,aunque%20algunas%20viven%20en%20tierra.
https://drive.google.com/file/d/0B1roV-EOd23ISzBYR1ZoTHg4RTQ/view
Instituto de Ecología. (2020). La ganadería y la pérdida de la biodiversidad. Recuperado de https://www.inecol.mx/inecol/index.php/es/2017-06-26-16-35-48/17-ciencia-hoy/845-la-ganaderia-y-la-perdida-de-la-biodiversidad