Relación entre el cambio climático y el desarrollo económico
Temperaturas 2020
setwd("~/Estadistica Aplicada")library(pacman) # Importación la biblioteca pacman.
p_load("base64enc", "htmltools", "mime", "xfun", "prettydoc","readr", "knitr","DT","dplyr", "ggplot2","plotly", "gganimate","gifski","scales")## Disponible para descargar el código
xfun::embed_file("U1A17.Rmd")¿El cambio climático afecta de igual forma a todos los países?
Aunque el cambio climático es un problema que afecta a todas las personas, es indiscutible que no todos los países sufren sus consecuencias de la misma manera, y que no tienen la misma capacidad de respuesta y de protección ante su amenaza.
Son los países en situación de pobreza los que sentirán más el impacto del calentamiento global: parece bastante claro que el cambio climático actuará de forma sinérgica con las vulnerabilidades que ya padecen estos países.
De esta manera, las personas de estas comunidades verán más mermado su acceso a aspectos tan esenciales como el agua. También serán víctimas de más inundaciones, huracanes o sequías, y sus capacidades de desarrollo disminuirán no solo por un acceso peor a los recursos, sino porque es probable que su entorno se degrade más rápidamente por culpa de factores como la contaminación o la deforestación.
Información recuperada de: https://compromiso.atresmedia.com/hazte-eco/cambio-climatico/ya-no-mas-excusas/cambio-climatico-afecta-todos-igual_201611025943e4c00cf26e79abb2204a.html.
Porcentaje del producto interno bruto generado y acceso a la electricidad en Mexico del anio 1990 - 2016
library(readxl)
accesoElectricidad <- read_excel("AccesoElectricidad.xlsx")tabla1<-ggplot(accesoElectricidad, aes(x =Anio, y = `GPA%`))+
geom_point(color="darkgreen")+
geom_line(aes(mapping="count"),color="darkgreen")+
xlab("Anio")+
ylab("producto interno bruto %")+
ggtitle("Porcentaje del producto interno bruto generado en Mexico del anio 1990 - 2016")## Warning: Ignoring unknown aesthetics: mappingggplotly(tabla1)## Disponible para descargar datos
xfun::embed_file("AccesoElectricidad.xlsx")Download AccesoElectricidad.xlsx
Crisis económica en México (2008-2009)
El entorno internacional que se observó en 2009 condujo a que México enfrentara caídas importantes en la demanda por sus exportaciones manufactureras y en otros renglones de ingresos de la cuenta corriente, una fuerte restricción de financiamiento externo y un choque a sus términos de intercambio. A su vez, el brote de influenza A(H1N1) fue un factor adicional que acentuó la caída en los niveles de actividad durante el segundo trimestre del año y sus efectos sobre la demanda por diversos servicios. Como consecuencia de estos eventos, en el año que se reporta los niveles de actividad productiva del país descendieron 6.5 por ciento anual, lo cual es comparable con la contracción del PIB registrada durante la crisis de 1995 (6.2%).
Información recuperada de: https://expansion.mx/economia/2010/02/22/mexico-se-contrae-65-en-2009 y de https://www.banxico.org.mx/publicaciones-y-prensa/informes-anuales/%7B2E1F4338-89D6-6731-C7BB-0F1C3D59A290%7D.pdf.
Variación de temperatura global de 1850 a 2019
temperaturas <- read.csv("temperature-anomaly.csv")
tempMedia <- temperaturas$Median.temperature.anomaly.from.1961.1990.average
year <- temperaturas$Year
tmp <- data.frame(tempMedia,year)tabla1<- ggplot(tmp)+
geom_point(aes(year,tempMedia),color="red")+
geom_line(aes(year,tempMedia),color="red")+
ggtitle("Variación de temperatura global de 1850 a 2019")+
xlab("Año")+
ylab("Temperatura")
ggplotly(tabla1)Una de las evidencias más contundentes del cambio climático es el incremento de la temperatura, conocido como “calentamiento global”. Entre 1880 y 2012, la temperatura anual global promedio registró un aumento de 0.85°C con respecto al promedio del periodo 1961-1990 (IPCC, 2013). Información recuperada de: https://apps1.semarnat.gob.mx:8443/dgeia/informe_resumen14/05_atmosfera/5_2_3.html.
- 1877-78: en esos dos años el fenómeno climático El Niño fue especialmente intenso y causó un sensible aumento de las temperaturas globales.
- Entre la década de 1880 y 1910 hubo un ligero enfriamiento debido a erupciones volcánicas ocurridas en varias zonas del planeta.
- Entre 1910-1940 la temperatura volvió a subir gracias al fin de las erupciones volcánicas, un aumento de la energía solar y variaciones naturales.
- Entre 1950-1970 las temperaturas fueron estables debido a que el efecto resfriante de los aerosoles industriales balancearon el calentamiento provocado por el efecto invernadero.
- Desde 1980 al día de hoy se desató un fuerte calentamiento global, con temperaturas que alcanzaron máximos históricos en 1998 y 2016 por El Niño y diversas actividades globales que repercuten duramente en el ambiente.
Información recuperada de: https://www.infobae.com/america/mundo/2017/06/02/asi-ha-aumentado-la-temperatura-en-la-tierra-desde-1950-hasta-2017/.
## Disponible para descargar datos
xfun::embed_file("temperature-anomaly.csv")Productividad por hora (dinero generado por hora de trabajo) en algunos países de América
prod <- read_excel("productividadPorHoraPaises.xlsx")prod %>%
ggplot(aes(x=Productivity, y=Entity, size=Year, color=Year)) +
geom_point(alpha=0.4)+
scale_size_continuous(range = c(1, 7))+
labs(x="Productividad", y="País", size="Año",color="Productividad")
En América Latina, el manejo del tipo de cambio y las condiciones laborales pueden influir en la manera de incrementar la productividad, pero no necesariamente como se desearía, ya que esta región se caracteriza por tener una especialización productiva primaria con exportaciones de productos con bajo valor agregado. El crecimiento de la productividad laboral es uno de los objetivos más grandes que tienen las economías para mejorar su nivel de vida.
Esta región cuenta con varios problemas históricos y estructurales, como la desigualdad, la informalidad, la composición sectorial, la distribución poblacional, el nivel y las condiciones de empleo, entre otros, que afectan directamente al comportamiento de la productividad de los países. Es ahí, donde la productividad marca las grandes diferencias que existen entre las economías latinoamericanas y los países desarrollados.
Información recuperada de: https://dialnet.unirioja.es/servlet/tesis?codigo=178996.
## Disponible para descargar datos
xfun::embed_file("productividadPorHoraPaises.xlsx")Países con representaciones en burbujas respecto a PIB, Co2 y temperatura de 2013
library(readxl)
temperatura <- read_excel("datos.xlsx")t= temperatura %>%
ggplot(aes(y=temperatura,x=co2, 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="Temperatura", x="Co2", size="PIB", color="País")+
scale_x_continuous(labels = comma)plotb=plotly_build(t)
style(plotb,hoverinfo = "text", traces = c(1))## Gráfica 4De acuerdo a la gráfica 4, podemos observar que el tamaño de las burbujas representa el PIB de cada país, en el eje de las Y, podemos ver la temperatura promedio del año 2013 y en las X, el total de Co2 por año.
## Disponible para descargar datos
xfun::embed_file("datos.xlsx")Conclusión
Durante el análisis de cambio climático y el desarrollo económico, pudimos concluir que, como país, podemos ser de los más afectados ante los posibles cambios de temperatura debido a nuestra productividad económica. Algunas consecuencias que nos podría traer el cambio climático, además del impacto económico y aumento de pobreza, “son el aumento del nivel mar, perdida de la capacidad del trabajo debido al calor, conflictos bélicos por acceso a los recursos limitados, empoderamiento al acceso del agua potable, descenso de la productividad de las cosechas, subida de precios y alimentos básicos, propagación de enfermedades por el aumento de temperatura y aumento de fenómenos meteorológicos”.
Citando a la página: https://www.iberdrola.com/medio-ambiente/impacto-del-cambio-climatico.
Referencias: Roser, M. (2013) Crecimiento económico. Ourworldindata. Recuperado de: https://ourworldindata.org/economic-growth.