AEUC1_91

Importacion de librerias

library(pacman)
p_load("fdth","base64enc", "htmltools", "mime", "xfun", "prettydoc","readr", "knitr","DT","dplyr", "ggplot2","modeest")

Teperatura_global_1850_2019 <- read_csv("Teperatura_global_1850_2019.csv")

## Rows: 170 Columns: 6

## -- Column specification --------------------------------------------------------
## Delimiter: ","
## chr (1): Entity
## dbl (4): Year, Median temperature anomaly from 1961-1990 average, Upper boun...
## lgl (1): Code

## 
## 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.

View(Teperatura_global_1850_2019)

library(readr)
CO2_global_1850_2019 <- read_csv("CO2_global_1850_2019.csv")

## Rows: 129 Columns: 4

## -- Column specification --------------------------------------------------------
## Delimiter: ","
## chr (2): Entity, Code
## dbl (2): Year, CO2 concentrations (NOAA, 2018)

## 
## 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.

View(CO2_global_1850_2019)

GER <- read_csv("CO2PerCapita_GER.csv")

## Rows: 220 Columns: 4

## -- Column specification --------------------------------------------------------
## Delimiter: ","
## chr (2): Entity, Code
## dbl (2): Year, Annual CO2 emissions (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.

View(GER)

MEX <- read_csv("CO2PerCapita_MEX.csv")

## Rows: 129 Columns: 4

## -- Column specification --------------------------------------------------------
## Delimiter: ","
## chr (2): Entity, Code
## dbl (2): Year, Annual CO2 emissions (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.

View(MEX)

Descarga de datos

xfun::embed_file("Teperatura_global_1850_2019.csv")

Download Teperatura_global_1850_2019.csv

xfun::embed_file("CO2_global_1850_2019.csv")

Download CO2_global_1850_2019.csv

xfun::embed_file("CO2PerCapita_MEX.csv")

Download CO2PerCapita_MEX.csv

xfun::embed_file("CO2PerCapita_GER.csv")

Download CO2PerCapita_GER.csv

Introduccion

Se analizara el aumento o desaumento de las emisiones de CO2 que dos paises presentaron durante el año 2019. Los paises elegidos para este caso de estudio fueron Alemania y Mexico, donde se usaran metodos estandares de probabilidad.

Aumento de las emiciones de CO2 undiales en un periodo desde 1850 hasta 2019

BCE=CO2_global_1850_2019$Year
ggplot(CO2_global_1850_2019,aes(x=BCE,y=CO2_global_1850_2019$`CO2 concentrations (NOAA, 2018)`))+
  geom_line(colour="red")+
  ggtitle("Emisiones de CO2 mundiales en un periodo desde 1850 hasta 2019")+
  xlab("Al año")+
  ylab("Ppm")

##Las concentraciones atmosféricas de CO2 y otros gases siguen aumentando y la reducción temporal por las medidas de confinamiento no tendrá un impacto duradero sobre éstas. El grafico muestra las ppm de CO2 que se dan mundialmente, se puede observar que en 1960 la concentración de CO2 comenzo a superar las 300 ppm.

Cambio de la temperatura mundial en un periodo de 1850 a 2019

Datos presentados en tabla

datatable(Teperatura_global_1850_2019)

Grafica Cambio de temperatura con respecto al tiempo (1850-2019)

Fecha = c(1850:2019)
media= Teperatura_global_1850_2019$`Median temperature anomaly from 1961-1990 average`
baja=Teperatura_global_1850_2019$`Lower bound (95% CI)`
alta=Teperatura_global_1850_2019$`Upper bound (95% CI)`
gcov = ggplot(data = Teperatura_global_1850_2019) +
  geom_line(aes(Fecha,media, colour="Media")) +
  geom_line(aes(Fecha,baja, colour="Baja")) +
  geom_line(aes(Fecha,alta, colour="Alta")) +
  xlab("Periodo") +
  ylab("Temperatura (°C)") +
  labs(colour="Temperaturas (°C)")+
  ggtitle("Cambio de temperatura")
gcov

## La temperatura global anual en 2019 fue de 1,1 grados centígrados más que el promedio de 1850-1900, utilizado para representar las condiciones preindustriales, desde 1980, cada década ha sido más cálida que la anterior, confirmando que el cambio climático está en marcha, como se puede observar en el grafico.

¿Que pais emite mas CO2 per capita?

El pais de Alemania emite mas kilotoneladas de CO2 que el pais de Mexico , tomando datos de un estudio hecho en el año 2019, nos dice que Alemania emitio 702.600, mientras que Mexico emitio 485.004 kilotoneladas, se tiene una diferencia de 217.596 kilotoneladas.

¿Porque?

El carbon es de los recursos mas importantes en Alemania, ya que un cuarto de la electricidad es generada gracias a el, siendo el carbon uno de los principales contribuyentes en el aumento de emisiones en Alemania.

¿Que implica esto?

Las emisiones excesivas de este gas son las principales causas del calentamiento global. El aumento de CO2 tiene consecuencias negativas no solo para la calidad de aire que respiramos, si no tambien la contaminacion atmosferica que presenta.

Prueba de hipotesis

Este documento aborda una comparacion entre 2 paises uno desarrollado y el otro subdesarrollado.

En nuestra hipotesis se presentaron las siguientes cuestiones:

Hipotesis nula (H0): El pais de Alemania genera mas CO2 per capita que Mexico todo esto debido a la poblacion de cada pais y su vida privilegiada
Hipotesis Alternativa (H1): El pais de Mexico genera Mas CO2 per capita que Alemania esto debido a la poca regulacion en el pais a estas emisiones

Datos presentados en tabla

Mexico

datatable(MEX)

Alemania

datatable(GER)

Estadistica descriptiva

Medidas de tendencia central

La estadistica descriptiva es la rama de las Matematicas que recolecta, presenta y caracteriza un conjunto de datos con el fin de describir apropiadamente las diversas caracteristicas de ese conjunto. E.g. Edad de una poblacion, altura de los estudiantes de una escuela, temperatura en los meses de verano, etc.

Media

Mexico

mean(MEX$"Annual CO2 emissions (per capita)")

## [1] 2.252332

Alemania

mean(GER$`Annual CO2 emissions (per capita)`)

## [1] 5.869419

Mediana

Mexico

median(MEX$`Annual CO2 emissions (per capita)`)

## [1] 1.776

Alemania

median(GER$`Annual CO2 emissions (per capita)`)

## [1] 5.8683

Moda

Mexico

mlv(MEX$`Annual CO2 emissions (per capita)`, method = "shorth")

## [1] 0.8591754

Alemania

mlv(GER$`Annual CO2 emissions (per capita)`, method = "shorth")

## [1] 1.676564

Valor minimo

Mexico

min(MEX$`Annual CO2 emissions (per capita)`)

## [1] 0.0396

Alemania

min(GER$`Annual CO2 emissions (per capita)`)

## [1] 0.0283

Valor maximo

Mexico

max(MEX$`Annual CO2 emissions (per capita)`)

## [1] 6.0657

Alemania

max(GER$`Annual CO2 emissions (per capita)`)

## [1] 14.2518

Cuartil

Mexico

summary(MEX$`Annual CO2 emissions (per capita)`)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##  0.0396  1.0456  1.7760  2.2523  3.8218  6.0657

Alemania

summary(GER$`Annual CO2 emissions (per capita)`)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##  0.0283  0.7901  5.8683  5.8694 10.1455 14.2518

Regresion lineal

regresionMX = lm(MEX$`Annual CO2 emissions (per capita)` ~ MEX$Year,  data =  MEX )
regresionUSA = lm(GER$`Annual CO2 emissions (per capita)` ~ GER$Year,  data =  GER )

Mexico

summary(regresionMX)

## 
## Call:
## lm(formula = MEX$`Annual CO2 emissions (per capita)` ~ MEX$Year, 
##     data = MEX)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -1.0645 -0.5990 -0.2598  0.3741  4.9118 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept) -60.906478   4.794832  -12.70   <2e-16 ***
## MEX$Year      0.032306   0.002452   13.18   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.037 on 127 degrees of freedom
## Multiple R-squared:  0.5775, Adjusted R-squared:  0.5741 
## F-statistic: 173.6 on 1 and 127 DF,  p-value: < 2.2e-16

Parametros de la ecuacion de la recta

\[ y = -60.906 + 0.0323x \] * Alemania

summary(regresionUSA)

## 
## Call:
## lm(formula = GER$`Annual CO2 emissions (per capita)` ~ GER$Year, 
##     data = GER)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -6.676 -1.096 -0.078  1.255  3.575 
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept) -1.262e+02  3.500e+00  -36.07   <2e-16 ***
## GER$Year     6.917e-02  1.832e-03   37.77   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 1.725 on 218 degrees of freedom
## Multiple R-squared:  0.8674, Adjusted R-squared:  0.8668 
## F-statistic:  1426 on 1 and 218 DF,  p-value: < 2.2e-16

Parametros de la ecuacion de la recta

\[ y = -1.262e^2 + 6.917e^-2x \]

Histogramas y Poligonos

Alemania

GER<-fdt(GER)
plot(GER, type = "fh", main = "Emision C02 per capita Absoluta: Alemania ", xlab = "C02", col = "dark orange")

## El grafico nos muestra el pico de los datos ocurre en torno 0.03 emisiones per capita de CO2

GER

## Year 
##         Class limits  f   rf rf(%)  cf  cf(%)
##      [1782,1810.577) 11 0.05  5.00  11   5.00
##  [1810.577,1839.153) 29 0.13 13.18  40  18.18
##   [1839.153,1867.73) 28 0.13 12.73  68  30.91
##   [1867.73,1896.307) 29 0.13 13.18  97  44.09
##  [1896.307,1924.883) 28 0.13 12.73 125  56.82
##   [1924.883,1953.46) 29 0.13 13.18 154  70.00
##   [1953.46,1982.037) 29 0.13 13.18 183  83.18
##  [1982.037,2010.613) 28 0.13 12.73 211  95.91
##   [2010.613,2039.19)  9 0.04  4.09 220 100.00
## 
## Annual CO2 emissions (per capita) 
##       Class limits  f   rf rf(%)  cf  cf(%)
##  [0.028017,1.6243) 65 0.30 29.55  65  29.55
##    [1.6243,3.2205) 19 0.09  8.64  84  38.18
##    [3.2205,4.8168) 15 0.07  6.82  99  45.00
##     [4.8168,6.413) 19 0.09  8.64 118  53.64
##     [6.413,8.0093) 21 0.10  9.55 139  63.18
##    [8.0093,9.6056) 18 0.08  8.18 157  71.36
##    [9.6056,11.202) 24 0.11 10.91 181  82.27
##    [11.202,12.798) 17 0.08  7.73 198  90.00
##    [12.798,14.394) 22 0.10 10.00 220 100.00

plot(GER, type = "fp", main = "Emision C02 per capita Absoluta: Alemania", xlab = "C02",col = "dark orange")

GER

## Year 
##         Class limits  f   rf rf(%)  cf  cf(%)
##      [1782,1810.577) 11 0.05  5.00  11   5.00
##  [1810.577,1839.153) 29 0.13 13.18  40  18.18
##   [1839.153,1867.73) 28 0.13 12.73  68  30.91
##   [1867.73,1896.307) 29 0.13 13.18  97  44.09
##  [1896.307,1924.883) 28 0.13 12.73 125  56.82
##   [1924.883,1953.46) 29 0.13 13.18 154  70.00
##   [1953.46,1982.037) 29 0.13 13.18 183  83.18
##  [1982.037,2010.613) 28 0.13 12.73 211  95.91
##   [2010.613,2039.19)  9 0.04  4.09 220 100.00
## 
## Annual CO2 emissions (per capita) 
##       Class limits  f   rf rf(%)  cf  cf(%)
##  [0.028017,1.6243) 65 0.30 29.55  65  29.55
##    [1.6243,3.2205) 19 0.09  8.64  84  38.18
##    [3.2205,4.8168) 15 0.07  6.82  99  45.00
##     [4.8168,6.413) 19 0.09  8.64 118  53.64
##     [6.413,8.0093) 21 0.10  9.55 139  63.18
##    [8.0093,9.6056) 18 0.08  8.18 157  71.36
##    [9.6056,11.202) 24 0.11 10.91 181  82.27
##    [11.202,12.798) 17 0.08  7.73 198  90.00
##    [12.798,14.394) 22 0.10 10.00 220 100.00

plot(GER, type = "cfh", main = "Emision C02 per capita Acumulada: Alemania ", xlab = "C02",col = "dark orange")

## El grafico nos muestra el pico de los datos va en aumento y ocurre apartir  en torno 9.61 emisiones per capita de CO2

GER

## Year 
##         Class limits  f   rf rf(%)  cf  cf(%)
##      [1782,1810.577) 11 0.05  5.00  11   5.00
##  [1810.577,1839.153) 29 0.13 13.18  40  18.18
##   [1839.153,1867.73) 28 0.13 12.73  68  30.91
##   [1867.73,1896.307) 29 0.13 13.18  97  44.09
##  [1896.307,1924.883) 28 0.13 12.73 125  56.82
##   [1924.883,1953.46) 29 0.13 13.18 154  70.00
##   [1953.46,1982.037) 29 0.13 13.18 183  83.18
##  [1982.037,2010.613) 28 0.13 12.73 211  95.91
##   [2010.613,2039.19)  9 0.04  4.09 220 100.00
## 
## Annual CO2 emissions (per capita) 
##       Class limits  f   rf rf(%)  cf  cf(%)
##  [0.028017,1.6243) 65 0.30 29.55  65  29.55
##    [1.6243,3.2205) 19 0.09  8.64  84  38.18
##    [3.2205,4.8168) 15 0.07  6.82  99  45.00
##     [4.8168,6.413) 19 0.09  8.64 118  53.64
##     [6.413,8.0093) 21 0.10  9.55 139  63.18
##    [8.0093,9.6056) 18 0.08  8.18 157  71.36
##    [9.6056,11.202) 24 0.11 10.91 181  82.27
##    [11.202,12.798) 17 0.08  7.73 198  90.00
##    [12.798,14.394) 22 0.10 10.00 220 100.00

plot(GER, type = "cfp", main = "Emision C02 per capita Acumulada: Alemania ", xlab = "C02",col = "dark orange")

Mexico

MEX<-fdt(MEX)
plot(MEX, type = "fh", main = "Emision C02 per capita Absoluta: Mexico ", xlab = "C02", col = "dark green")

## El grafico nos muestra un pico de datos de menor emison de CO2 apartir de 0.03, y esta va en deficiencia con mayor emison de CO2 apartir de 1.39, obteniendo de nuevo un pico de datos con una emision de CO2 mas alta

MEX

## Year 
##         Class limits  f   rf rf(%)  cf  cf(%)
##   [1872.09,1890.657)  0 0.00  0.00   0   0.00
##  [1890.657,1909.223) 19 0.15 14.73  19  14.73
##   [1909.223,1927.79) 18 0.14 13.95  37  28.68
##   [1927.79,1946.357) 19 0.15 14.73  56  43.41
##  [1946.357,1964.923) 18 0.14 13.95  74  57.36
##   [1964.923,1983.49) 19 0.15 14.73  93  72.09
##   [1983.49,2002.057) 19 0.15 14.73 112  86.82
##  [2002.057,2020.623) 17 0.13 13.18 129 100.00
##   [2020.623,2039.19)  0 0.00  0.00 129 100.00
## 
## Annual CO2 emissions (per capita) 
##     Class limits  f   rf rf(%)  cf  cf(%)
##  [0.0392,0.7156) 23 0.18 17.83  23  17.83
##   [0.7156,1.392) 31 0.24 24.03  54  41.86
##    [1.392,2.068) 16 0.12 12.40  70  54.26
##    [2.068,2.745)  6 0.05  4.65  76  58.91
##    [2.745,3.421)  5 0.04  3.88  81  62.79
##    [3.421,4.097) 31 0.24 24.03 112  86.82
##    [4.097,4.774) 14 0.11 10.85 126  97.67
##     [4.774,5.45)  1 0.01  0.78 127  98.45
##     [5.45,6.126)  2 0.02  1.55 129 100.00

plot(MEX, type = "fp", main = "Emision C02 per capita Absoluta: Mexico ", xlab = "C02",col = "dark green")

MEX

## Year 
##         Class limits  f   rf rf(%)  cf  cf(%)
##   [1872.09,1890.657)  0 0.00  0.00   0   0.00
##  [1890.657,1909.223) 19 0.15 14.73  19  14.73
##   [1909.223,1927.79) 18 0.14 13.95  37  28.68
##   [1927.79,1946.357) 19 0.15 14.73  56  43.41
##  [1946.357,1964.923) 18 0.14 13.95  74  57.36
##   [1964.923,1983.49) 19 0.15 14.73  93  72.09
##   [1983.49,2002.057) 19 0.15 14.73 112  86.82
##  [2002.057,2020.623) 17 0.13 13.18 129 100.00
##   [2020.623,2039.19)  0 0.00  0.00 129 100.00
## 
## Annual CO2 emissions (per capita) 
##     Class limits  f   rf rf(%)  cf  cf(%)
##  [0.0392,0.7156) 23 0.18 17.83  23  17.83
##   [0.7156,1.392) 31 0.24 24.03  54  41.86
##    [1.392,2.068) 16 0.12 12.40  70  54.26
##    [2.068,2.745)  6 0.05  4.65  76  58.91
##    [2.745,3.421)  5 0.04  3.88  81  62.79
##    [3.421,4.097) 31 0.24 24.03 112  86.82
##    [4.097,4.774) 14 0.11 10.85 126  97.67
##     [4.774,5.45)  1 0.01  0.78 127  98.45
##     [5.45,6.126)  2 0.02  1.55 129 100.00

plot(MEX, type = "cfh", main = "Emision C02 per capita Acumulada: Mexico", xlab = "C02",col = "dark green")

##

MEX

## Year 
##         Class limits  f   rf rf(%)  cf  cf(%)
##   [1872.09,1890.657)  0 0.00  0.00   0   0.00
##  [1890.657,1909.223) 19 0.15 14.73  19  14.73
##   [1909.223,1927.79) 18 0.14 13.95  37  28.68
##   [1927.79,1946.357) 19 0.15 14.73  56  43.41
##  [1946.357,1964.923) 18 0.14 13.95  74  57.36
##   [1964.923,1983.49) 19 0.15 14.73  93  72.09
##   [1983.49,2002.057) 19 0.15 14.73 112  86.82
##  [2002.057,2020.623) 17 0.13 13.18 129 100.00
##   [2020.623,2039.19)  0 0.00  0.00 129 100.00
## 
## Annual CO2 emissions (per capita) 
##     Class limits  f   rf rf(%)  cf  cf(%)
##  [0.0392,0.7156) 23 0.18 17.83  23  17.83
##   [0.7156,1.392) 31 0.24 24.03  54  41.86
##    [1.392,2.068) 16 0.12 12.40  70  54.26
##    [2.068,2.745)  6 0.05  4.65  76  58.91
##    [2.745,3.421)  5 0.04  3.88  81  62.79
##    [3.421,4.097) 31 0.24 24.03 112  86.82
##    [4.097,4.774) 14 0.11 10.85 126  97.67
##     [4.774,5.45)  1 0.01  0.78 127  98.45
##     [5.45,6.126)  2 0.02  1.55 129 100.00

plot(MEX, type = "cfp", main = "Emision C02 per capita Acumulada: Mexico ", xlab = "C02",col = "dark green")

Conclusion

Conforme a los datos obtenidos de ambos paises, Alemania y Mexico. Se llega a la conclusion de que ambos paises son grandes contrubuyentes en la contaminacion del ambiente, mediante emisiones de CO2. Alemania siendo un pais desarrollado, no ha podido disminuir sus emisiones. Esto se debe a la era en la que se vive actualmente, donde nos encontramos rodeados de tecnologias. La revolucion industrial, fue un gran contribuyente ya que genero grandes cambios tecnológicos y contribuyo al capitalismo a nivel global, precedente al desarrollo de una economía basada en la industria.

La hipotesis nula fue aceptada en este caso de estudio, ya que se pudo observar como Alemania tenia mmas numeros elevados de emisiones de CO2 que Mexico.

AEUC1_91

Pacheco Huerta Rodrigo, Ibarra Salgueiro Alimely, Fino Limon Waleska

3/10/2021

Importacion de librerias

Descarga de datos

Introduccion

Aumento de las emiciones de CO2 undiales en un periodo desde 1850 hasta 2019

Cambio de la temperatura mundial en un periodo de 1850 a 2019

¿Que pais emite mas CO2 per capita?

¿Porque?

¿Que implica esto?

Prueba de hipotesis

Datos presentados en tabla

Estadistica descriptiva

Medidas de tendencia central

Media

Mediana

Moda

Valor minimo

Valor maximo

Cuartil

Regresion lineal

Parametros de la ecuacion de la recta

Parametros de la ecuacion de la recta

Histogramas y Poligonos

Alemania

Mexico

Conclusion