Reporte del año 1952

El presente reporte muestra información estadística y gráfica de una data de 200 países correspondiente al año 1952 para los siguientes indicadores:
- Esperanza de vida
- Población
- PBI per cápita

# Cargando paquetes
library(pacman)
p_load(dplyr, ggplot2, datos, kableExtra, knitr, 
       flextable, foreign, gganimate)
options(scipen = 999)
options(digits = 3)

Estadísticas del año 1952 a nivel mundial

paises %>% filter(anio == params$anio) %>% 
  summarize(esperanza_de_vida_media = mean(esperanza_de_vida),
            poblacion_media = mean(poblacion),
            pbi_per_capita_media = mean(pib_per_capita)) %>% 
  flextable %>% autofit

esperanza_de_vida_media

poblacion_media

pbi_per_capita_media

49.1

16,950,402

3,725

Estadísticas del año 1952 por continente

paises %>% filter(anio == params$anio) %>% group_by(continente) %>% 
  summarize(esperanza_de_vida_media = mean(esperanza_de_vida),
            poblacion_media = mean(poblacion),
            pbi_per_capita_media = mean(pib_per_capita)) %>% 
  flextable %>% autofit

continente

esperanza_de_vida_media

poblacion_media

pbi_per_capita_media

África

39.1

4,570,010

1,253

Américas

53.3

13,806,098

4,079

Asia

46.3

42,283,556

5,195

Europa

64.4

13,937,362

5,661

Oceanía

69.3

5,343,003

10,298

Esperanza de vida media del año 1952 por continente

paises %>% filter(anio == params$anio) %>% group_by(continente) %>% 
  summarise(esperanza_de_vida_media = mean(esperanza_de_vida)) %>%
  ggplot() + aes(continente, esperanza_de_vida_media, fill = continente) +
  geom_bar(stat = "identity", show.legend = F) + ylim(0, 100) +
  labs(x="Continente", y= "Esperanza de vida media") +
  geom_text(aes(label= round(esperanza_de_vida_media,1)), vjust = -1.0) +
  theme_bw() + transition_states(continente) +
  enter_grow() + shadow_mark()