Introducción

Este estudio analiza la relación entre el Producto Interno Bruto (PIB) per cápita y la esperanza de vida al nacer, utilizando datos del proyecto Gapminder. Los datos abarcan desde 1952 hasta 2007, con intervalos de 5 años, e incluyen información de 142 países.

Métodos

Base de datos

Se utilizó el conjunto de datos gapminder del paquete gapminder en R. Este conjunto de datos contiene información sobre la esperanza de vida, PIB per cápita y población de 142 países agrupados en 5 continentes.

Análisis estadístico

Se realizaron análisis descriptivos y visualizaciones para explorar la relación entre el PIB per cápita y la esperanza de vida, considerando además el continente y el año.

# Cargar datos
data("gapminder")
gapminder_clean <- gapminder
# Calcular estadísticas resumen por continente y año
resumen_continente <- gapminder_clean %>%
  group_by(continent, year) %>%
  summarise(
    Esperanza_vida_media = mean(lifeExp),
    PIB_per_capita_medio = mean(gdpPercap),
    .groups ='drop')

Tabla resumen

resumen_continente %>%
  filter(year %in% c(1952, 1977, 2007)) %>%
  kable(digits = 2) %>%
  kable_styling(bootstrap_options = "striped", full_width=FALSE)
continent year Esperanza_vida_media PIB_per_capita_medio
Africa 1952 39.14 1252.57
Africa 1977 49.58 2585.94
Africa 2007 54.81 3089.03
Americas 1952 53.28 4079.06
Americas 1977 64.39 7352.01
Americas 2007 73.61 11003.03
Asia 1952 46.31 5195.48
Asia 1977 59.61 7791.31
Asia 2007 70.73 12473.03
Europe 1952 64.41 5661.06
Europe 1977 71.94 14283.98
Europe 2007 77.65 25054.48
Oceania 1952 69.25 10298.09
Oceania 1977 72.85 17283.96
Oceania 2007 80.72 29810.19

Evolución temporal de la esperanza de vida y el PIB per cápita

ggplot(resumen_continente, aes(x = year, y = Esperanza_vida_media, color = continent))+
  geom_line(size = 1) +
  labs(title = "Evolución de la esperanza de vida media por continente",
       x = "Año",
       y = "Esperanza de vida (años)",
       color = "Continente") +
  theme_minimal()

## Relación entre PIB per cápita y esperanza de vida
ggplot(gapminder_clean, aes(x = gdpPercap, y = lifeExp, color = continent)) +
  geom_point(alpha = 0.5) +
  scale_x_log10() +  # Escala logarítmica para el PIB per cápita
  labs(title = "Relación entre PIB per cápita y esperanza de vida",
       x = "PIB per cápita (USD, escala logarítmica)",
       y = "Esperanza de vida (años)",
       color = "Continente") +
  theme_minimal()

Discusión

Los resultados muestran una clara relación positiva entre el PIB per cápita y la esperanza de vida. Sin embargo, esta relación varía entre continentes y a lo largo del tiempo.

  1. Evolución temporal: Todos los continentes han experimentado un aumento en la esperanza de vida y el PIB per cápita desde 1952, aunque con diferentes ritmos.

  2. Relación PIB-Esperanza de vida: La relación es más fuerte en los niveles más bajos de PIB. A medida que el PIB aumenta, la esperanza de vida tiende a aumentar, pero con rendimientos decrecientes.

  3. Diferencias continentales: África presenta una esperanza de vida consistentemente más baja, mientras que Oceanía, Europa y América tienen valores más altos. Asia muestra una gran variabilidad.

Estos hallazgos sugieren que el crecimiento económico está asociado con mejoras en la salud, pero también destacan la importancia de otros factores como el acceso a la atención médica, educación y estabilidad política.