Introducción

En el presente trabajo se analizara el tema del cambio climatico en base a las emisiones de dioxido de carbono (CO2) generado por cada persona en cada uno de los paises seleccionado; México y Australia. Esto podría ser de mucha ayuda ya que siendo un país de tercer mundo y uno de primero, nos podría decir en todo caso si termina siendo menos contaminante Australia que podríamos hacer nosostros, por otro lado también si resulta en lo contrario nos ayudaría a ver porque es que Australia contamina más (teóricamente), si son sus calles pavimentadas, su estilo de vida, sus costumbres, etc.

1 Importar Datos

xfun::embed_file("co-emissions-per-capita.csv")

Download co-emissions-per-capita.csv

xfun::embed_file("AE2UC1_9.rmd")

Download AE2UC1_9.rmd

#Cargamos los datos con todos los paises
emissionsPerCapita <- read_csv("co-emissions-per-capita.csv")
## 
## -- Column specification --------------------------------------------------------
## cols(
##   Entity = col_character(),
##   Code = col_character(),
##   Year = col_double(),
##   AnnualCO2Emissions = col_double()
## )

1.1 Creamos las variables

  • Seleccionamos los datos de México
#CO2MEX <- emissionsPerCapita %>% filter(Entity == "Mexico")
#datatable(CO2MEX)
emisionesMex <- (emissionsPerCapita[emissionsPerCapita$Entity == "Mexico", ])
CO2MEX <- data.frame(emisionesMex)
testMEX <- (CO2MEX[,4])
datatable(CO2MEX)
  • Seleccionamos los datos de Australia
emisionesAus <- (emissionsPerCapita[emissionsPerCapita$Entity == "Australia", ])
CO2AUS <- data.frame(emisionesAus)
testAUS <- (CO2AUS[,4])
datatable(CO2AUS)

2. Cambio Climatico

Cuando el clima cambia y no vuelve a estar como estaba, éste se entiende como un cambio de clima atribuido directa o indirectamente a la actividad humana que altera la composición de la atmósfera mundial y que se suma a la variabilidad natural del clima observada durante períodos de tiempo comparables.

2.1 ¿Qué pais emite mas CO2 per capita?

  • H0: Es menor el CO2 Per cápita en México que en Australia
  • H1: Es mayor el CO2 Pe cápita en México que en Australia

Primero analizaremos los datos que podamos obtener de ambos paises

  • México
summary(CO2MEX[,4])
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##  0.0396  1.0456  1.7760  2.2523  3.8218  6.0657

Podemos ver que en el año 1895 es cuando hubo la menor contaminacion (0.0396) pero en 1921 hubo la contaminacion (6.0657). La mayoria de los datos se centran entre emisiones de 1.0456 a 3.8218.

regresionMX = lm(CO2MEX$AnnualCO2Emissions ~ CO2MEX$Year,  data = CO2MEX)
plot(CO2MEX$Year, CO2MEX$AnnualCO2Emissions, xlab = "Año", ylab = "CO2 per capita", main = "Mexico CO2 Per Cápita", sub = "figura 1.0")
abline(regresionMX)

En esta gráfica podemos observar como por el año de 1920 hay un pico de emisión, esto debido a la revolución industrial en México, a partir de 1950 se puede ver que va escalando la emision del CO2, probablemente por la mayor adquisición de autos. Podemos ver que la correlación entre los años y la cantidad de contaminación en México se ve que esta enlazada de manera algo estrecha, esto se observa gracias a que en el resultado nos arroja un valor de 75% casi 76% siendo 0.7599156 como resultado.

MexCO2 <- fdt(CO2MEX[,4])
plot(MexCO2, type = "fh", main = "Emision CO2 per capita Absoluta: México", sub = "figura 1.1", xlab = "CO2", col = "light green")

Al ver este histograma de frecuencias podemos ver como los picos de los datos no están distribuidos normalmente, mostrando como las personas generan CO2 mayormente entre los rangos de valores 0.7 a 1.4 y 3.4 a 4.1, estos valores no son normales lo que obvia que probablemente se vean valores atípicos más adelante.

  • Australia
summary(CO2AUS[,4])
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##  0.1799  2.4630  4.7764  7.6587 14.3591 19.2762

Podemos ver que en el año 1864 es cuando hubo la menor contaminacion (0.1799) pero en 1921 hubo la contaminacion (19.2762). La mayoria de los datos se centran entre emisiones de 2.4630 a 14.3591. Cuando comparamos los limites de centralizacion con Mexico, podemos ver la gran diferencia en contaminacion, la mayoria de los datos de Australia comienzan casi donde esta el limite superior de Mexico.

regresionAUS = lm(CO2AUS$AnnualCO2Emissions ~ CO2AUS$Year,  data = CO2AUS)
plot(CO2AUS$Year, CO2AUS$AnnualCO2Emissions, xlab ="Año", ylab = "CO2 per capita", main = "Australia CO2 Per Cápita", sub = "figura 2.0")
abline(regresionAUS)

En la gráfica podemos ver que a partir de 1900 la emisión de CO2 fue en aumento, pero no fue hasta 1950 que se ve una subida alarmante ya que fue una época de avances de proyectos tanto energeticos como industriales, esto se ve como un reflejo de proyectos como la implementación del ferrocarril en 1910, y no fue hasta el año 2000 que empezo a disminuir un poco. Aqui vemos como su contaminación va aumentando conforme avanzan los años, mostrando un 95% de correlación es preocupante ya que su emisión no parece que se pueda disminuir tan rapido como subio.

AusCO2 <- fdt(CO2AUS[,4])
plot(AusCO2, type = "fh", main = "Emision CO2 per capita Absoluta: Australia", sub = "figura 2.1", xlab = "CO2", col = "light blue")

En este caso este histograma de frecuencia muestra que, si bien no se genera tanta basura en grandes cantidades, si lo hace más frecuentemente, lo que provoca que se acumule aún más, si bien el per Cápita no se ve tan mal, que lo está, aquí también se puede ver que los datos son atípicos y no normales.

boxplot(testMEX, testAUS)

Comparando ambos boxplot podemos ver que los datos tanto de México como de Australia no son normales, ademas de que podemos confirmar en que Australia produce mas CO2 per capita que México y contamina mas. Para México aquí vemos los datos del CO2 per cápita, parece ver datos atipicos ya que el tercer cuatil esta lejos de la media, podemos ver como su media se ubica por alrededor del 2.2523, con un mínimo de 0.0396 y llegando a un máximo de 6.0657, y su mediana de 1.7760. Para Australia aquí vemos los datos del CO2 per cápita, aqui también se miran datos atipicos estando el tercer cuartil lejos de la media, podemos ver como su media se ubica por alrededor del 7.6587, con un mínimo de 0.1799 y llegando a un máximo de 19.2762, además de que el 3er cuartil es más grande que el primero

2.2 Prueba de normalidad

  • Shaphiro-Wilk
shapiro.test(testMEX)
## 
##  Shapiro-Wilk normality test
## 
## data:  testMEX
## W = 0.91318, p-value = 4.506e-07

Viendo que los datos de México son menores a p = 0.05, concluimos que no son normales

shapiro.test(testAUS)
## 
##  Shapiro-Wilk normality test
## 
## data:  testAUS
## W = 0.86806, p-value = 1.157e-10

Viendo que los datos de Australia son menores a p = 0.05, concluimos que no son normales

  • Kolmogorov-Smirnov
ks.test(testMEX, "pnorm", mean = mean(testMEX), sd = sd((testMEX)))
## Warning in ks.test(testMEX, "pnorm", mean = mean(testMEX), sd = sd((testMEX))):
## ties should not be present for the Kolmogorov-Smirnov test
## 
##  One-sample Kolmogorov-Smirnov test
## 
## data:  testMEX
## D = 0.15388, p-value = 0.004443
## alternative hypothesis: two-sided

Viendo que los datos de México son menores a p = 0.05, concluimos que no son normales

ks.test(testAUS, "pnorm", mean = mean(testAUS), sd = sd((testAUS)))
## 
##  One-sample Kolmogorov-Smirnov test
## 
## data:  testAUS
## D = 0.21671, p-value = 5.951e-07
## alternative hypothesis: two-sided

Viendo que los datos de Australia son menores a p = 0.05, concluimos que no son normales

2.3 ¿Porque?

  • En México La emisión de CO2 en México se empieza a notar como consecuencia directa de la revolución Industrial que tiene como periodo de tiempo 1890 a 1930, lo que sabemos en ese tiempo trajo a México grandes propuestas, como la creación de fábricas, junto con la locomotora de Texas 1938. El período 1920-1940 se caracteriza por la asimilación de las demandas de las masas sublevadas al proyecto de las clases dominantes, como “revolución pasiva”, para establecer las bases y hegemonía del moderno Estado democrático burgués y de un nuevo “bloque histórico” en México. Cabe mencionar además que desde 1910 surgió la revolución mexicana en contra del gobierno, saliendo victoriosa el 20 de noviembre del 1920.

  • En Australia En el año 1901 se formó la nación de Australia, compuesta por seis estados. Inicialmente se aprobó una ley llamada Política de la Australia Blanca, que pretendía restringir la entrada en el país a personas provenientes de Europa. Con el tiempo, Australia se ha convertido en el destino y el hogar de personas provenientes de todas las partes del mundo. Esto podría parecer no gran cosa, pero implica en el aumento de la población lo que obviamente significa más gastos de recursos, más hogares, mejores carreteras, más expansión, etc. y el baby boom 1946-1954 que en Australia fue uno de los países más afectados, lo que la hace generar más CO2 per cápita, ya que son más personas las que consumirán. Durante los años 50 se desarrollaron importantes proyectos como el Proyecto Hidroeléctrico de las Montañas Nevadas.

2.4 ¿Qué implica esto?

El aumento en la emisión de CO2 no solo en México o Australia sino en alrededor del mundo ha llegado a ser alarmante ya que la tasa de cambio climático ha aumentado desde la década de 1950, vinculada con aumentos sustanciales (10-30%) en las concentraciones atmosféricas de los GEI CO2, N2O y metano (CH4). Si bien el aumento de las concentraciones de CO2 puede mejorar la productividad de los cultivos, el aumento de las concentraciones de estos GEI en combinación ha aumentado las temperaturas y ha alterado la distribución de las lluvias, y es muy probable que también provoquen un aumento de las olas de calor y los eventos de lluvias extremas. Esto puede ahogar a los cultivos, si se trata de temperaturas bajas/heladas puede quemarlos, además del claro aumento térmico que se experimenta hoy en día, lo que reduce la dispersión de calor acumulado por la radiación solar en la superficie del planeta hacia el espacio y provoca un mayor calentamiento de la Tierra. De modo que el problema surge cuando el efecto invernadero se acentúa por la emisión excesiva de ciertos gases, como el dióxido de carbono y el metano, debido principalmente a la actividad humana.

Esto trae consigo el cambio climático que, aunque estaban percatados de esto no lo tomaron en cuenta ya que solo se preocupaban por su avance tecnológico y mejora en la calidad de vida.

Conclusiónes

Santana:

Concluyo que, si la cantidad de CO2 en Australia es mayor que en México, es porque la densidad poblacional es mucho más grande, ya que desde 1900 en adelante se había levantado la prohibición de la migración y mucha gente llego a Australia y además del babyboom que fue cuando nacieron muchos infantes y Australia fue uno de los más afectados. Proporcionamos evidencia de la relación a largo plazo con la dinámica a corto plazo entre la intensidad de las emisiones de carbono, el progreso tecnológico y el crecimiento económico utilizando los datos de AUS y MEX para el período 1860-2019.

Cazarez:

Con importantes patentes de innovaciones y nuevas tecnologías, los niveles de emisiones de CO2 de cada país alcanzaron un pico durante la revolución industrial. Este estudio investiga el vínculo entre las emisiones de carbono, el progreso tecnológico y el crecimiento económico. Los hallazgos respaldan la evidencia existente de que el progreso tecnológico es uno de los principales impulsores del control de la contaminación, ya sea para aumentarlo o reducirlo, así como el aumento de la población que trae la necesidad de producir más y consumir más recursos. Se demostró que el progreso tecnológico había afectado a Australia antes que a México debido a la llegada anticipada de estaciones de carbón para el primero; y junto con esto y ciertos factores como la diferencia en el tamaño de la población y la productividad de cada país se comprueba que la hipótesis nula (H0) es correcta.

Osuna:

Con un análisis de datos sobre la emisión de CO2 de México y Australia, podemos decir que en Australia existe mayor contaminación total entre los años 1900 a los 2000. Esto debido al avance tecnológico de Australia. México tuvo su revolución industrial 140 años después de Australia, lo cual nos indica que al momento que México entra en ese periodo histórico, Australia ya tenía un número significativo de fábricas motorizadas en funcionamiento, las cuales aportan la mayor contaminación de C02. Con experiencia podemos crear grandes mejoras, esa experiencia de 140 años ayudo a México a crear fabricas más eficientes con la guía de extranjeros no solo de Australia, pero del resto del mundo.

Urías:

En base a el estudio estadístico echo en R podemos observar que el país que más contamina CO2 es Australia esto se puede deber a su población, cultura, etc. o también que en ese país se empezó a industrializar mucho antes que en México por lo que lleva más tiempo emitiendo CO2 por lo tanto se acepta nuestra hipótesis nula que nos dice que es menor el CO2 Per cápita en México que en Australia.

Final:

En base a los datos obtenidos en nuestra comparativa de estos países México y Australia, cada uno de ellos llega a un pico de contaminación alto esto se debe a el avance tecnológico, el avance de nueva infraestructura, la llegada de nuevas máquinas como el ejemplo del ferrocarril en México que por esas fechas la revolución industrial en México llego junto con el ferrocarril. La revolución industrial llega siempre a todos los países solo que algunos más rápido que otros como el ejemplo de Australia su revolución industrial comenzó desde los 1890 que fue la fecha en que llegaron las primeras estaciones motorizadas con carbón.

El país que más contamina cO2 per cápita resulto ser Australia esto podría deberse a diferentes factores como lo podría ser el tamaño de la población, a que se dedica cada uno de sus habitantes y también en cómo se mantiene el estado. En todo caso la hipótesis nula (H0) es menor el CO2 Per cápita en México que en Australia es la que es correcta después de ver todos los datos, se concluye que es Australia el que per cápita contamina más.

Referencias Bibliográficas