Introducción

Los datos del World Bank Indicators (WBI) son una fuente completa de indicadores económicos, sociales y medioambientales de mÔs de 200 países. Fuente: WB

Instalar paquetes y llamar librerĆ­as

# install.packages("WDI")
library(WDI)
# install.packages("wbstats")
library(wbstats)
# install.packages("tidyverse")
library(tidyverse)
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## āœ” dplyr     1.1.4     āœ” readr     2.1.5
## āœ” forcats   1.0.0     āœ” stringr   1.5.1
## āœ” ggplot2   3.5.1     āœ” tibble    3.2.1
## āœ” lubridate 1.9.3     āœ” tidyr     1.3.1
## āœ” purrr     1.0.2     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## āœ– dplyr::filter() masks stats::filter()
## āœ– dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
# install.packages("ggplot2")
library(ggplot2)

Información de 1 país

gdp_mexico <- wb_data(country = "MX", indicator = "NY.GDP.PCAP.CD", start_date= 1900, end_date= 2024)
# (ISO3166-2 country codes)
summary(gdp_mexico)
##     iso2c              iso3c             country               date     
##  Length:64          Length:64          Length:64          Min.   :1960  
##  Class :character   Class :character   Class :character   1st Qu.:1976  
##  Mode  :character   Mode  :character   Mode  :character   Median :1992  
##                                                           Mean   :1992  
##                                                           3rd Qu.:2007  
##                                                           Max.   :2023  
##  NY.GDP.PCAP.CD        unit            obs_status          footnote        
##  Min.   :  359.5   Length:64          Length:64          Length:64         
##  1st Qu.: 1431.5   Class :character   Class :character   Class :character  
##  Median : 4017.8   Mode  :character   Mode  :character   Mode  :character  
##  Mean   : 5132.1                                                           
##  3rd Qu.: 8959.9                                                           
##  Max.   :13926.1                                                           
##   last_updated       
##  Min.   :2024-06-28  
##  1st Qu.:2024-06-28  
##  Median :2024-06-28  
##  Mean   :2024-06-28  
##  3rd Qu.:2024-06-28  
##  Max.   :2024-06-28
head(gdp_mexico)
## # A tibble: 6 Ɨ 9
##   iso2c iso3c country  date NY.GDP.PCAP.CD unit  obs_status footnote
##   <chr> <chr> <chr>   <dbl>          <dbl> <chr> <chr>      <chr>   
## 1 MX    MEX   Mexico   1960           360. <NA>  <NA>       <NA>    
## 2 MX    MEX   Mexico   1961           378. <NA>  <NA>       <NA>    
## 3 MX    MEX   Mexico   1962           393. <NA>  <NA>       <NA>    
## 4 MX    MEX   Mexico   1963           424. <NA>  <NA>       <NA>    
## 5 MX    MEX   Mexico   1964           486. <NA>  <NA>       <NA>    
## 6 MX    MEX   Mexico   1965           511. <NA>  <NA>       <NA>    
## # ℹ 1 more variable: last_updated <date>
tail(gdp_mexico)
## # A tibble: 6 Ɨ 9
##   iso2c iso3c country  date NY.GDP.PCAP.CD unit  obs_status footnote
##   <chr> <chr> <chr>   <dbl>          <dbl> <chr> <chr>      <chr>   
## 1 MX    MEX   Mexico   2018         10130. <NA>  <NA>       <NA>    
## 2 MX    MEX   Mexico   2019         10435. <NA>  <NA>       <NA>    
## 3 MX    MEX   Mexico   2020          8896. <NA>  <NA>       <NA>    
## 4 MX    MEX   Mexico   2021         10363. <NA>  <NA>       <NA>    
## 5 MX    MEX   Mexico   2022         11477. <NA>  <NA>       <NA>    
## 6 MX    MEX   Mexico   2023         13926. <NA>  <NA>       <NA>    
## # ℹ 1 more variable: last_updated <date>
ggplot(gdp_mexico, aes(x= date, y = NY.GDP.PCAP.CD)) +
  geom_point()

ggplot(gdp_mexico, aes(x= date, y = NY.GDP.PCAP.CD)) +
  geom_col()

ggplot(gdp_mexico, aes(x= date, y = NY.GDP.PCAP.CD)) +
  geom_col(fill = "cyan") +
  geom_point(color = "blue") +
  labs(title="Producto Interno Bruto en MƩxico (US per Capita)", x = "AƱo", y = "PIB")

Información de varios paises

gdp_varios <- wb_data(country = c("MX", "EC", "CL"), indicator = "NY.GDP.PCAP.CD", start_date= 1900, end_date= 2024)

ggplot(gdp_varios, aes(x = date, y=NY.GDP.PCAP.CD, color= country)) +
  geom_point()

LS0tDQp0aXRsZTogIldvcmxkIEJhbmsiDQphdXRob3I6ICJEaWVnbyBBY29zdGEgQTAxNDExODQ2Ig0KZGF0ZTogIjIwMjQtMDktMTEiDQpvdXRwdXQ6IA0KICBodG1sX2RvY3VtZW50Og0KICAgIHRvYzogVFJVRQ0KICAgIHRvY19mbG9hdDogVFJVRQ0KICAgIGNvZGVfZG93bmxvYWQ6IFRSVUUNCiAgICB0aGVtZTogeWV0aQ0KLS0tDQoNCiFbXShDOlxcVXNlcnNcXGRpYXpfXFxPbmVEcml2ZVxcRG9jdW1lbnRvc1xcQ0xBU0VTIFRFQ1xcU0VNQU5BIFRFQyBQUk9HUkFNQUNJT05cXHdvcmxkX2JhbmtfbG9vcC5naWYpDQoNCiMgPHNwYW4gc3R5bGU9ImNvbG9yOiBibHVlOyI+SW50cm9kdWNjacOzbjwvc3Bhbj4NCkxvcyBkYXRvcyBkZWwgKldvcmxkIEJhbmsgSW5kaWNhdG9ycyAoV0JJKSogc29uIHVuYSBmdWVudGUgY29tcGxldGEgZGUgaW5kaWNhZG9yZXMgZWNvbsOzbWljb3MsIHNvY2lhbGVzIHkgbWVkaW9hbWJpZW50YWxlcyBkZSBtw6FzIGRlIDIwMCBwYcOtc2VzLg0KW0Z1ZW50ZTogV0JdKGh0dHBzOi8vZGF0YS53b3JsZGJhbmsub3JnL2luZGljYXRvcikNCg0KIyA8c3BhbiBzdHlsZT0iY29sb3I6IGJsdWU7Ij5JbnN0YWxhciBwYXF1ZXRlcyB5IGxsYW1hciBsaWJyZXLDrWFzPC9zcGFuPg0KYGBge3J9DQojIGluc3RhbGwucGFja2FnZXMoIldESSIpDQpsaWJyYXJ5KFdESSkNCiMgaW5zdGFsbC5wYWNrYWdlcygid2JzdGF0cyIpDQpsaWJyYXJ5KHdic3RhdHMpDQojIGluc3RhbGwucGFja2FnZXMoInRpZHl2ZXJzZSIpDQpsaWJyYXJ5KHRpZHl2ZXJzZSkNCiMgaW5zdGFsbC5wYWNrYWdlcygiZ2dwbG90MiIpDQpsaWJyYXJ5KGdncGxvdDIpDQpgYGANCg0KIyA8c3BhbiBzdHlsZT0iY29sb3I6IGJsdWU7Ij5JbmZvcm1hY2nDs24gZGUgMSBwYcOtczwvc3Bhbj4NCmBgYHtyfQ0KZ2RwX21leGljbyA8LSB3Yl9kYXRhKGNvdW50cnkgPSAiTVgiLCBpbmRpY2F0b3IgPSAiTlkuR0RQLlBDQVAuQ0QiLCBzdGFydF9kYXRlPSAxOTAwLCBlbmRfZGF0ZT0gMjAyNCkNCiMgKElTTzMxNjYtMiBjb3VudHJ5IGNvZGVzKQ0Kc3VtbWFyeShnZHBfbWV4aWNvKQ0KaGVhZChnZHBfbWV4aWNvKQ0KdGFpbChnZHBfbWV4aWNvKQ0KDQpnZ3Bsb3QoZ2RwX21leGljbywgYWVzKHg9IGRhdGUsIHkgPSBOWS5HRFAuUENBUC5DRCkpICsNCiAgZ2VvbV9wb2ludCgpDQoNCmdncGxvdChnZHBfbWV4aWNvLCBhZXMoeD0gZGF0ZSwgeSA9IE5ZLkdEUC5QQ0FQLkNEKSkgKw0KICBnZW9tX2NvbCgpDQoNCmdncGxvdChnZHBfbWV4aWNvLCBhZXMoeD0gZGF0ZSwgeSA9IE5ZLkdEUC5QQ0FQLkNEKSkgKw0KICBnZW9tX2NvbChmaWxsID0gImN5YW4iKSArDQogIGdlb21fcG9pbnQoY29sb3IgPSAiYmx1ZSIpICsNCiAgbGFicyh0aXRsZT0iUHJvZHVjdG8gSW50ZXJubyBCcnV0byBlbiBNw6l4aWNvIChVUyBwZXIgQ2FwaXRhKSIsIHggPSAiQcOxbyIsIHkgPSAiUElCIikNCg0KYGBgDQoNCiMgPHNwYW4gc3R5bGU9ImNvbG9yOiBibHVlOyI+SW5mb3JtYWNpw7NuIGRlIHZhcmlvcyBwYWlzZXM8L3NwYW4+DQpgYGB7cn0NCmdkcF92YXJpb3MgPC0gd2JfZGF0YShjb3VudHJ5ID0gYygiTVgiLCAiRUMiLCAiQ0wiKSwgaW5kaWNhdG9yID0gIk5ZLkdEUC5QQ0FQLkNEIiwgc3RhcnRfZGF0ZT0gMTkwMCwgZW5kX2RhdGU9IDIwMjQpDQoNCmdncGxvdChnZHBfdmFyaW9zLCBhZXMoeCA9IGRhdGUsIHk9TlkuR0RQLlBDQVAuQ0QsIGNvbG9yPSBjb3VudHJ5KSkgKw0KICBnZW9tX3BvaW50KCkNCmBgYA0KDQoNCg0KDQoNCg0K