##Informacion de 1 pais

library(wbstats)
## Warning: package 'wbstats' was built under R version 4.1.3
gdp_data <- wb_data(country = "MX", indicator = "NY.GDP.PCAP.CD" , start_date = 1973, end_date = 2022)
head(gdp_data)
## # A tibble: 6 x 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   1973           981. <NA>  <NA>       <NA>    
## 2 MX    MEX   Mexico   1974          1242. <NA>  <NA>       <NA>    
## 3 MX    MEX   Mexico   1975          1476. <NA>  <NA>       <NA>    
## 4 MX    MEX   Mexico   1976          1454. <NA>  <NA>       <NA>    
## 5 MX    MEX   Mexico   1977          1301. <NA>  <NA>       <NA>    
## 6 MX    MEX   Mexico   1978          1589. <NA>  <NA>       <NA>    
## # ... with 1 more variable: last_updated <date>
tail(gdp_data)
## # A tibble: 6 x 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   2016          8745. <NA>  <NA>       <NA>    
## 2 MX    MEX   Mexico   2017          9288. <NA>  <NA>       <NA>    
## 3 MX    MEX   Mexico   2018          9687. <NA>  <NA>       <NA>    
## 4 MX    MEX   Mexico   2019          9950. <NA>  <NA>       <NA>    
## 5 MX    MEX   Mexico   2020          8432. <NA>  <NA>       <NA>    
## 6 MX    MEX   Mexico   2021          9926. <NA>  <NA>       <NA>    
## # ... with 1 more variable: last_updated <date>
library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.1.3
ggplot(gdp_data, aes(x= date, y= NY.GDP.PCAP.CD)) +
  geom_point()

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

ggplot(gdp_data,aes(x= date, y= NY.GDP.PCAP.CD)) +
  geom_point(fill= "red") +
  geom_point(color= "blue")

##informacion varios paises

more_gdp_data <- wb_data(country= c( "NG", "HT", "KE"),
                         indicator = "NY.GDP.PCAP.CD",
                         start_date= 1981, end_date= 2015)

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