Evo: Bolivia nunca fue primera en ningún rubro (hasta que llegó él); la historia lo desmiente

En el Congreso de Juventudes del Moviento al Socialismo de 2018 Evo Morales dijo:

Desde la fundación de la República nunca Bolivia ha sido primero en algún rubro, ni en Sudamérica ni en América, menos en el Mundo. Pero imagínense datos de CEPAL, datos del BID, entre el 2014, 15, 16, 17, Bolivia primero en crecimiento económico en Sudamérica, eso no ha habido antes. Que lo diga algún (inaudible), algún ex ministro de tiempos pasados. Reconocen los organismos internacionales nuestro crecimiento económico

Sin embargo, Bolivia si fue el primer país en crecimiento económico un par de veces antes del gobierno de Evo Morales:

• Año 1963, gobierno de Víctor Paz Estenssoro
• Año 1998, gobierno de Hugo Ba nzer Suárez

Los datos que demuestran esto provienen del Banco Mundial.

El siguiente cuadro muestra los países que tuvieron la mayor tasa de crecimiento del Producto Interno Bruto (PIB), desde el año 1960 hasta el 2005, año en el que aún no gobernaba Evo Morales.

El siguiente cuadro muestra a todos los países de Sudamérica y sus tasas de crecimiento de PIB desde el año 1961 hasta el 2005. Note que:

• Al pasar el "mouse" por cada año se muestra en orden de mayor a menor a los países con sus tasas de crecimiento.
• Debajo del gráfico  está el listado de países, del cual puede seleccionar los que desee para compararlos.

Los datos fueron extraídos de la página del Banco Mundial y procesados en R. Dejo el código y otras carecterísticas visibles para quienes quieren reproducir el trabajo o criticarlo.

Este trabajo fue reproducido parcialmente en los periódicos:

• El Deber
• Los Tiempos

Datos del sistema:
macOS High Sierra
Versión 10.13.3

Datos de R:
Version 3.4.2 (2017-09-28)

Datos de RStudio:
Versión 1.1.383

# cargar librerías
library(tidyverse)
library(WDI)
library(magrittr)
library(rvest)
library(highcharter)

# importar los datos
WDI::WDIsearch("gdp growth")
pib <- WDI(country = "all", indicator = "NY.GDP.MKTP.KD.ZG", start = 1961)

# limpieza
pib %<>%  filter(year != 2006 & year != 2007 & year != 2008 & year != 2009 & year != 2010 & year != 2011) %>%
  spread(year, value = "NY.GDP.MKTP.KD.ZG")


# bajar lista de paises de sudamérica de wikipedia para filtrar la base
sur <-  read_html("https://en.wikipedia.org/wiki/South_America") %>%
  html_table(., fill = T)
sur[[4]]$`Country or territory with flag` %<>% gsub("Chile\\[42\\]", "Chile", .)
sur[[4]]$`Country or territory with flag` %<>% gsub("Venezuela", "Venezuela, RB", .)
pib <- pib[pib$country %in% sur[[4]]$`Country or territory with flag`, ]

# detectar país con mayor crecimiento por año
paises <- data.frame()
max <- data.frame()
for(i in 3:ncol(pib)) {
  temp <- max(pib[ , i], na.rm = T)
  max %<>% rbind(., temp)
  temp1 <- max(pib[ , i], na.rm = T) == pib[, i]
  temp2 <- print(pib[temp1, "country"]) %>% as.data.frame()
  paises  %<>% rbind(., temp2)
  paises %<>% na.omit()
}

paises %<>% cbind(., max)
paises %<>% mutate(año = 1961:2005)  %>%
  mutate_if(is.numeric, function(x) round(x, 2))
colnames(paises)[1:2] <- c("País", "PIB")

vars <- colnames(pib)[3:ncol(pib)]
pib %<>% gather(vars, key = año, value = PIB)  %>%
  mutate_if(is.numeric, function(x) round(x, 2))

# gráficos
g1 <- hchart(pib, "line", hcaes(x = año, y = PIB, group = country),
             tooltip =list(valueDecimals = 2, valueSuffix = "%")) %>%
  hc_yAxis(title = list(text = "Porcentaje de crecimiento del PIB")) %>%
  hc_xAxis(title = list(text = "Año"))  %>%
  hc_title(text = "Crecimiento del PIB a precios constantes") %>%
  hc_subtitle(text = "Sudamérica") %>%
  hc_tooltip(table = TRUE, sort = TRUE) %>%
  hc_credits(
    enabled = TRUE,
    text = "Fuente: Banco Mundial",
    href = "https://data.worldbank.org/indicator/NY.GDP.MKTP.KD.ZG?end=2016&start=1961")  %>%
  hc_add_theme(hc_theme_smpl())

g2 <- highchart() %>%
  hc_add_series(data = paises, hcaes(año, PIB), type = "line",
                tooltip = list(pointFormat = "<br>País con mayor crecimiento: {point.País}<br> Crecimiento del PIB: {point.PIB} %")) %>%
  hc_yAxis(title = list(text = "Porcentaje de crecimiento del PIB")) %>%
  hc_xAxis(title = list(text = "Año"))  %>%
  hc_title(
    text = "País con el mayor crecimiento del PIB a precios constantes por año",
    useHTML = TRUE) %>%
  hc_subtitle(text = "Sudamérica") %>%
  hc_credits(
    enabled = TRUE,
    text = "Fuente: Banco Mundial",
    href = "https://data.worldbank.org/indicator/NY.GDP.MKTP.KD.ZG?end=2016&start=1961") %>%
  hc_add_theme(hc_theme_smpl()) %>%
  hc_legend(enabled = FALSE)