R/data-cia_factbook.R

In tessington/qsci381: Data used in QSCI 381, University of Washington

#' CIA Factbook Details on Countries
#'
#' Country-level statistics from the US Central Intelligence Agency (CIA).
#'
#'
#' @name cia_factbook
#' @aliases cia.factbook cia_factbook
#' @docType data
#' @format A data frame with 259 observations on the following 11 variables.
#' \describe{\item{country}{Country name.} \item{area}{Land
#' area, in square kilometers. (1 square kilometer is 0.386 square miles}
#' \item{birth_rate}{Birth rate, in births per 1,000 people.}
#' \item{death_rate}{Death rate, in deaths per 1,000 people.}
#' \item{infant_mortality_rate}{Infant mortality, in deaths per 1,000
#' live births.} \item{internet_users}{Total number of internet users.}
#' \item{life_exp_at_birth}{Live expectancy at birth, in years.}
#' \item{maternal_mortality_rate}{Number of female deaths per 100,000
#' live births where the death is related to pregnancy or birth.}
#' \item{net_migration_rate}{Net migration rate.}
#' \item{population}{Total population.}
#' \item{population_growth_rate}{Population growth rate.} }
#' @source CIA Factbook, Country Comparisons, 2014.
#' \url{https://www.cia.gov/library/publications/the-world-factbook/rankorder/rankorderguide.html}
#' @keywords datasets
#' @examples
#'
#' library(dplyr)
#' library(ggplot2)
#'
#' cia_factbook_iup <- cia_factbook %>%
#'   mutate(internet_users_percent = 100 * internet_users / population)
#'
#' ggplot(cia_factbook_iup, aes(x = internet_users_percent, y = life_exp_at_birth)) +
#'   geom_point() +
#'   labs(x = "Percentage of internet users", y = "Life expectancy at birth")
#'
"cia_factbook"