Introducción
En el presente trabajo se analizara el tema del cambio climatico con base a las emisiones de dioxido de carbono (C02) generado por cada persona en Mexico y Brasil. Decidimos comparar México con Brasil ya que nos resulto interesante comparar un país mayormente de clima seco como lo es México con uno de clima tropical, además de ser 2 paises de tercer mundo resulta interesante ver las similitudes en cuanto al cambio climatico.
Importaamos los datos:
- Los datos utilizados para este proyecto pueden ser descargados aqui: :
xfun::embed_file("co-emissions-per-capita.csv")Download co-emissions-per-capita.csv
xfun::embed_file("AE2UC1_9.rmd")#Cargamos los datos con todos los paises
emissionsPerCapita <- read_csv("co-emissions-per-capita.csv")## Rows: 22735 Columns: 4## -- Column specification --------------------------------------------------------
## Delimiter: ","
## chr (2): Entity, Code
## dbl (2): Year, AnnualCO2Emissions(per capita)##
## i Use `spec()` to retrieve the full column specification for this data.
## i Specify the column types or set `show_col_types = FALSE` to quiet this message.“Declaración” de variables:
- Datos de México
#emisionesMex <- (emissionsPerCapita[emissionsPerCapita$Entity == "Mexico", ])
#C02MEX <- data.frame(emisionesMex)
#datatable(C02MEX)
C02MEX <- emissionsPerCapita %>% filter(Entity == "Mexico")
datatable(C02MEX)- Datos de Brasil
emisionesBRA <- (emissionsPerCapita[emissionsPerCapita$Entity == "Brazil", ])
C02BRA <- data.frame(emisionesBRA)
datatable(C02BRA)El cambio climatico
El responsable del cambio climático es el ser humano y sus emisiones de gases de efecto invernadero que calientan el planeta. El gas más conocido es el CO2, causante del 63% del calentamiento global, pero existen otros como el metano o el óxido nitroso.
Así, los gases se acumulan en la atmósfera (hoy hay más de un 40% de gas acumulado) y aquí calientan la Tierra en exceso provocando graves consecuencias.
¿Que país emite mas C02 per capita?
- H0: Es menor el CO2 Per capita en México que en Brasil
- H1: Es mayor el C02 Per capita en México que en Brasil
Analisis de datos:
- México
summary(C02MEX[,4])## AnnualCO2Emissions(per capita)
## Min. :0.0396
## 1st Qu.:1.0456
## Median :1.7760
## Mean :2.2523
## 3rd Qu.:3.8218
## Max. :6.0657pairs(C02MEX[,3:4], main = "México")
Como se puede observar en la gráfica entre el año 1900 y 1940 hubo un gran aumento en el CO2 per capita.
cor(C02MEX[,3:4])## Year AnnualCO2Emissions(per capita)
## Year 1.0000000 0.7599156
## AnnualCO2Emissions(per capita) 0.7599156 1.0000000La coorelacion de años y contaminación nos da como resultado un valor de 0.7599156 lo cual nos indica que estan enlazadas.
MexC02 <- fdt(C02MEX[,4])
plot(MexC02, type = "fh", main = "Emision C02 per capita Absoluta: México", xlab = "C02", col = "light green")
plot(MexC02, type = "fp", main = "Emision C02 per capita Absoluta: México", xlab = "C02", col = "light green")
plot(MexC02, type = "cfh", main = "Emision C02 per capita Acumulada: México", xlab = "C02", col = "light green")
plot(MexC02, type = "cfp", main = "Emision C02 per capita Acumulada: México", xlab = "C02", col = "light green")
boxplot(C02MEX[,4])
Como se puede observar en los datos de CO2 per cápita, no hay datos atípicos.
- Brasil
summary(C02BRA[,4])## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.0877 0.1560 0.6491 0.8763 1.4582 2.5838pairs(C02BRA[,3:4], main = "Brazil")
Se observa como desde 1900 el aumento de CO2 es muy evidente, ya que fueron años de mucho avance tecnológico lo cual se ve reflejado en la grafica, de igual manera se puede observar que del año 2019 al 2021 comienza a disminuir.
cor(C02BRA[,3:4])## Year AnnualCO2Emissions.per.capita.
## Year 1.000000 0.944029
## AnnualCO2Emissions.per.capita. 0.944029 1.000000La correlacion de años y aumento de CO2 nos arroja un valor de 0.944029 casi el 95% lo cual nos indican que la contaminación va aumentando de manera preocupante.
BRAC02 <- fdt(C02BRA[,4])
plot(BRAC02, type = "fh", main = "Emision C02 per capita Absoluta: Brazil", xlab = "C02", col = "darkorchid4")
plot(BRAC02, type = "fp", main = "Emision C02 per capita Absoluta: Brazil", xlab = "C02", col = "springgreen3")
plot(BRAC02, type = "cfh", main = "Emision C02 per capita Acumulada: Brazil", xlab = "C02", col = "brown4")
plot(BRAC02, type = "cfp", main = "Emision C02 per capita Acumulada: Brazil", xlab = "C02", col = "yellow")
boxplot(C02BRA[,4])
¿Porque?
Como ser grandes paises latinoamericanos son las naciones mas pobladas de america latina ambas naciones cuentan con mayories economias emergentes del mundo y son consideradas como potencias regionales,por lo tanto mucho incremento en la creacion de fabricas que contaminan. En estos ultimos años a crecido la poblacion de brazil por lo tanto tambien la contaminacion al igual que mexico por compartir una frontera con E.U que tiene una mayor poblacion. Por eso la causa en el calentamiento global.
¿Qué implica esto?
Implica que mexico por querer ser un pais primermundista como lo quiere tambien brasil hacen que crezca la industrializacion y eso hace que aumente el co2 ya que tambien crecen la contaminacion
Conclusión:
Al tomar Mexico y brazil para realizar calculos y gradicas nos dimos cuenta de su emision de co2. LLegamos a la conclucion de que el pais que mas contamina c02 per capital resulta ser Brazil puede ser por el tamaño de la poblacion, como podemos ver inicio con un indice muy por debajo pero como fue evolucionando tambien termimno evolucionando distintos desastres naturales. que más contamina c02 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.