R/data-gdp_countries.R

In openintro: Datasets and Supplemental Functions from 'OpenIntro' Textbooks and Labs

#' 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"