R/data-gdp_countries.R

In npaterno/data_hunter: Data set repository for OpenIntro textbooks

#' GDP Countries Data.
#' 
#' From World Bank, GDP in current U.S. dollars 1960-2020 by decade
#'
#' @name gdp_countries
#' @docType data
#' @format A data frame with 659 rows and 9 variables.
#' \describe{
#'   \item{country}{Name of country.}
#'   \item{description}{description of data: GDP (in current US$), 
#'    GDP growth (annual %), GDP per capita (in current US$)}
#'   \item{year_1960}{value in 1960}
#'   \item{year_1970}{value in 1970}
#'   \item{year_1980}{value in 1980}   
#'   \item{year_1990}{value in 1990}
#'   \item{year_2000}{value in 2000}
#'   \item{year_2010}{value in 2010}   
#'   \item{year_2020}{value in 2020}
#' }
#' 
#' @examples
#' library(dplyr)
#' # don't use scientific notation
#' options(scipen = 999)
#' # List the top 10 countries by GDP (There is a row for World)
#' gdp_countries %>% 
#'   filter(description == 'GDP') %>%
#'   mutate(year2020 = format(year_2020,big.mark=",")) %>%
#'   select(country,year2020) %>%  
#'   arrange(desc(year2020)) %>% 
#'   top_n(n = 11)
#'
#' # List the 10 countries with the biggest GDP per capita change from 1960 to 2020
#' gdp_countries %>% 
#'   filter(description == 'GDP per capita') %>%
#'   mutate(change = format(round(year_2020-year_1960,0),big.mark=",")) %>%
#'   select(country,change,year_1960,year_2020) %>%  
#'   na.omit() %>%
#'   arrange(desc(change)) %>% 
#'   top_n(n = 10)  
#'
#' @source [World Bank](https://databank.worldbank.org/home.aspx)
#' @keywords datasets 
#' 
"gdp_countries"