Cambio climático
Introducción
El cambio climático es un tema del que se ha hablado mucho últimamente, ya que tiene impacto en una gran variedad de cosas, entre ellas se encuentra la sustentabilidad económica del país. Esta se ve afectada directamente o indirectamente de acuerdo a diversos factores que terminan influyendo en los problemas con la economía, inflación y cosas de este tipo.
Antecedentes
Fueron los científicos quienes llamaron la atención internacional sobre las amenazas planteadas por el efecto invernadero. La historia del descubrimiento científico del cambio climático comenzó a principios del siglo XIX cuando se sospechó por primera vez que hubo cambios naturales en el paleoclima y se identificó por primera vez el efecto invernadero natural. En los decenios de 1950-60, 1960-70 y 1970-80 se recogieron datos que demostraron que las concentraciones de dióxido de carbono en la atmósfera estaban aumentando muy rápidamente. Al mismo tiempo, las investigaciones sobre los núcleos de hielo y los sedimentos lacustres revelaron que el sistema climático había sufrido otras fluctuaciones abruptas en el pasado lejano: parece que el clima ha tenido “puntos de inflexión” capaces de generar fuertes sacudidas y recuperaciones. Aunque los científicos todavía están analizando lo que ocurrió durante esos acontecimientos del pasado, está claro que un mundo con miles de millones de personas es un lugar arriesgado para realizar experimentos con el clima. Sin embargo, tuvieron que pasar años para que la comunidad internacional reaccionara.
Objetivos
Entender qué es lo que causa el cambio climático Poder ver las consecuencias del cambio climático. *Descubrir maneras para evitar o reducir el cambio climático.
Teoría
¿Qué causa el cambio climático? El cambio climático es causado por diversos factores, de los cuales la mayoría son causados por acciones humanas, ya que hacemos uso de combustibles fósiles, manejos de desperdicios, cambios de suelos, procesos industriales y fabricacion de fertilizantes, todo esto son responsables del 92% de las emisiones de gases de Efecto Invernadero (Que es una de las consecuencias del cambio climático). Se considera que esto del cambio climático es considerablemente malo ya que con todo lo mencionado anteriormente se generan varios problemas como el Efecto Invernadero, el ciclo del agua se ve afectado de forma muy significativa, se crean cambio bruscos en la atmosfera, etc.
library(readr) #para leer datos
library(DT) # tablas interactivas
library(prettydoc) #documentos con mejor formato
co2combustibles <- read_csv("co2combustibles.csv") #importar datos##
## -- Column specification --------------------------------------------------------
## cols(
## AÑO = col_double(),
## LOCALIZACION = col_character(),
## `EMISIONES_DE_CO2_(MILLONES_DE_TONELADAS)` = col_double()
## )HM20 <- read_csv("HM20.csv")##
## -- Column specification --------------------------------------------------------
## cols(
## Fecha = col_datetime(format = ""),
## O3 = col_double(),
## SO2 = col_logical(),
## NO2 = col_double()
## )anomalia <- read_csv("anomalia.csv")##
## -- Column specification --------------------------------------------------------
## cols(
## Entity = col_character(),
## Code = col_logical(),
## Year = col_double(),
## `Median temperature anomaly from 1961-1990 average` = col_double(),
## `Upper bound (95% CI)` = col_double(),
## `Lower bound (95% CI)` = col_double()
## )datatable(co2combustibles) #visualizar datos en tabla knitr::include_graphics("pastel.jpeg") 
¿Como varió la calidad del aire en Hermosillo durante los primeros días de cuarentena por COVID-19?
El periodo de cuarentena por COVID-19 se vio iniciado en el mes de marzo del año 2020, y mediante las siguientes gráficas se puede observar que por algunos días, hubo una disminución en el NO2 y O3 que se reportaba en Hermosillo, esto fue ocasionado porque las personas dejaron de salir de casa por la cuarentena, por lo que no usaban sus automóviles e incluso algunos trabajos fueron detenidos por algun tiempo para evitar los contagios innecesarios dentro de la sociedad.
periodoHermosillo <- read_csv("periodoHermosillo.csv")##
## -- Column specification --------------------------------------------------------
## cols(
## Fecha = col_datetime(format = ""),
## Temperatura = col_double(),
## Humedad = col_double(),
## `Precipitación Total` = col_double()
## )class(periodoHermosillo)## [1] "spec_tbl_df" "tbl_df" "tbl" "data.frame"datatable(periodoHermosillo)NO2 Durante el comienzo de la cuarentena
knitr::include_graphics("NO2.jpeg") 
O3 Durante el comienzo de la cuarentena
knitr::include_graphics("O3.jpeg") 
gas <- scan ("http://verso.mat.uam.es/~joser.berrendero/datos/gas6677.dat")plot (gas)
gas.ts <- ts(gas, start= c(1966,1), frequency = 12)print(gas.ts)## Jan Feb Mar Apr May Jun Jul Aug Sep
## 1966 92.718 91.380 111.643 118.888 119.432 127.796 158.943 178.013 143.385
## 1967 113.661 108.224 142.256 129.835 150.735 149.554 185.792 201.758 166.565
## 1968 135.951 126.615 146.647 165.822 163.365 169.294 215.538 233.427 184.402
## 1969 154.844 143.552 171.573 188.322 192.756 195.296 252.288 268.379 218.810
## 1970 179.759 173.821 211.387 210.551 218.371 232.057 294.173 312.700 251.891
## 1971 193.916 188.375 236.187 249.037 235.957 258.980 321.085 334.562 276.932
## 1972 225.010 225.742 265.159 271.986 290.953 285.108 362.687 386.347 314.205
## 1973 268.578 256.063 312.041 326.741 315.157 353.016 403.662 451.098 356.811
## 1974 289.186 296.881 302.589 334.091 325.790 337.782 423.297 454.172 353.727
## 1975 317.760 298.188 363.429 350.203 372.149 371.877 472.458 485.517 406.223
## 1976 352.200 334.938 372.891 397.388 385.657 416.961 492.480 512.209 411.514
## 1977 363.367 342.979 384.936 421.718 402.877 427.615 538.254 528.007
## Oct Nov Dec
## 1966 127.179 114.403 124.900
## 1967 148.048 131.581 141.315
## 1968 178.432 155.179 163.355
## 1969 203.545 172.148 198.381
## 1970 235.560 202.876 224.383
## 1971 258.269 233.532 251.755
## 1972 292.124 261.740 291.810
## 1973 352.566 305.580 410.614
## 1974 353.413 315.272 341.902
## 1975 377.262 329.794 384.350
## 1976 392.380 369.671 400.243
## 1977plot(gas.ts)
boxplot(gas.ts ~ cycle(gas.ts))
Resultados y discusión
Como se muestra en la tabla que vimos, a medida que pasan los años se va aumentando considerablemente la emisión de CO2, y esto continuará así cada año si no se realizan cambios enormes para evitarlo, con la grande población del planeta se tienen que pensar en estrategias nuevas y viables, al igual que obligar a las grandes empresas a que implementen medidas ecológicas, ya que estas son las que más generan CO2 y los gobiernos no hacen nada para evitarlo.
Sin embargo, en las graficas presentadas más adelante se puede ver que hubo una pequeña disminución en el NO2 y el O3 durante un breve periodo de tiempo durante la cuarentena por COVID-19, esto deja varias cosas que pensar, ya que estos cambios nunca antes se vieron, por lo que es posible pensar que el ser humano no podría cambiar su entorno voluntariamente, siempre se tendría que ver relacionado con un factor externo que obligue a las personas a cambiar sus hábitos más básicos dentro de la sociedad para así poder llegar a una mejora entre todos los ciudadanos del entorno.
Conclusión
La contaminación y el cambio climatico, a dia de hoy, son uno de los problemas mas grandes que hay, esto se debe a que si no hacemos algo y cambiamos nuestras rutinas podriamos pagar un precio alto, debido a que basicamente los cambios climaticos podrian acabar con nuestras vidas. Una de las principales razones por las que hay tanta contaminación son las empresas, las cuales solamente se encargar de crear sus productos, sin importarle realmente lo que le hagan al clima, esto no quiere decir que las personas no provoquen daños, nosotros como individuos deberiamos de encargarnos de tomar riendas sobre el asunto y tratar de mejorar rapidamente el medio ambiente.