setwd("~/estadistica aplicada")
library("pacman")
library(readxl)
library(ggplot2)
library(dplyr)##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionlibrary(plotly)##
## Attaching package: 'plotly'## The following object is masked from 'package:ggplot2':
##
## last_plot## The following object is masked from 'package:stats':
##
## filter## The following object is masked from 'package:graphics':
##
## layoutp_load("base64enc", "htmltools", "mime", "xfun", "prettydoc","readr", "knitr","DT","dplyr", "ggplot2","plotly", "gganimate","gifski","scales", "readr", "tidyverse","cluster", "factoextra","NbClust","tidyr")Cambio climatico y desarrollo economico
Introducción
El cambio climático no solo es una seria amenaza para el planeta y las personas, también lo es para la economía mundial. Se trata de un problema que requiere de la colaboración entre el sector público y el privado para cambiar el modelo productivo hacia otro que garantice e impulse el desarrollo y el crecimiento económico sostenible.
El cambio climático ya está considerado como una de las mayores amenazas para la estabilidad económica. Las olas de calor merman la capacidad de trabajo y la productividad. Los huracanes, ciclones y tifones dejan a millones de personas en la más absoluta pobreza tras arrasar poblaciones con total indiferencia. Y las sequías reducen las cosechas, dificultando cada vez más la ardua tarea de alimentar a una población mundial que promete alcanzar los 10.000 millones de personas en 2050 (Perspectivas de la Población Mundial 2019, ONU).
¿El cambio climático afecta de igual forma a todos los países?
No todo el mundo sufre sus consecuencias de la misma manera,serán los países en situación de pobreza los que sentirán más el impacto del calentamiento global ya que no tienen la misma capacidad de respuesta y de protección ante su amenaza.
co2gdp <- read_csv("concentraciones de co2 y gdp.csv")##
## -- Column specification --------------------------------------------------------
## cols(
## year = col_double(),
## co2 = col_double(),
## gdp = col_double()
## )gdpt <- read_csv("gdp-temperatura.csv")##
## -- Column specification --------------------------------------------------------
## cols(
## year = col_double(),
## GDP = col_double(),
## temperatura = col_double()
## )data <- read_excel("BURBUJADATA.xlsx")Relacion de los niveles de co2 y el gbp global (1990-2015)
df <- data.frame(co2gdp)
d<-df %>%
ggplot(aes(x = year, y = co2, size = gdp)) +
geom_point(alpha = 0.6)+
scale_size_continuous(range = c(1,7))+
labs(x = "año" , y = "CO2(ppm)", size = "GDP (trillones de dolares)")+
ggtitle("Niveles de CO2 vs GDP global") +
scale_y_continuous(labels = comma)
ggplotly(d)Figura 1 Gráfico comparativo de niveles de CO2 y GDP global por año
Esta grafica muestra la relacion entre el co2 y el gdp global,mientras aumenta el gpd tambien aumenta el co2
Grafica de temperatura y gpd global (1990-2015)
df <- data.frame(gdpt)
d<-df %>%
ggplot(aes(x = year, y = temperatura, size = GDP)) +
geom_point(alpha = 0.6)+
scale_size_continuous(range = c(1,7))+
labs(x = "año" , y = "temperatura", size = "GDP(trillones de dolares)")+
ggtitle("temperatura vs GDP") +
scale_y_continuous(labels = comma)
ggplotly(d)Figura 2 Gráfico comparativo de temperatura y GDP global por año
En esta grafica se observa la variacion de temperatura y gdp global durante 1990 al 2015.El año 2015 fue el año con mayor temperatura y mayor gdp
d = data %>%
ggplot(aes(y=CO2,x=TEMP, size=PIB, color=Pais)) +
geom_point(alpha=0.8)+
geom_text(aes(label = Pais), hjust = 0, vjust = 0)+
scale_size_continuous(range = c(1, 7))+
labs(y="co2", x="temperatura", size="PIB", color="País")+
ggtitle("PIB en relacion con temperatura-CO2") +
scale_x_continuous(labels = comma)
plotb=plotly_build(d)
style(plotb,hoverinfo = "text", traces = c(1))Figura 3 Gráfico PIB de Paises en relación temperatura-CO2
Conclusion
El cambio climatico y el desarollo economico podran parecer no tener una relación proporcional aparente puesto que suceden dentro de ambitos distintos pero podemos ver en base a los graficos que ambas tienen cierta relación, puesto que conforme aumenta el desarrollo economico aumentan los cambios en el clima, que puede ser producto a los diferentes residuos que se dejan de ellos, posiblemente contaminación, emisiones de gases y algunos otros, que aportan a que el cambio climatico siga produciendose pero que no esta ligado en si a la actividad economica, sino que es producto de las actividades y practicas que se realicen en algunas en especifico, debido a que existen actividades economicas que han adoptado practicas sustentables y amigables con el medio ambiente, por lo que a pesar de estar aparentemente relacionadas podria no estarlo y que por ello mismo como sociedad deberiamos de implementar actividades que eviten que este problema mundial deje de seguir aumentando sin afectar el desarrollo economico que se realice en el mundo.
Descarga de datos y codigo
xfun::embed_file("U1A17.Rmd")xfun::embed_file("concentraciones de co2 y gdp.csv")Download concentraciones de co2 y gdp.csv
xfun::embed_file("gdp-temperatura.csv")xfun::embed_file("BURBUJADATA.xlsx")