R/internet.R

In clauswilke/dviz.supp: Supporting materials for Claus Wilke's data visualization book

#' Internet users per 100 people
#' 
#' Internet users per 100 people, for over 250 countries and from 1990 to 2016.
#' 
#' @references
#' World Bank. \url{https://data.worldbank.org/indicator/IT.NET.USER.ZS}
#' 
#' @examples
#' country_list = c("United States", "China", "India", "Japan", "Algeria",
#'                  "Brazil", "Germany", "France", "United Kingdom", "Italy", "New Zealand",
#'                  "Canada", "Mexico", "Chile", "Argentina", "Norway", "South Africa", "Kenya",
#'                  "Israel", "South Africa", "Iceland")
#' 
#' internet_short <- filter(internet, country %in% country_list) %>%
#'   mutate(users = ifelse(is.na(users), 0, users))
#' 
#' internet_summary <- internet_short %>%
#'   group_by(country) %>%
#'   summarize(year1 = min(year[users > 0]),
#'             last = users[n()]) %>%
#'   arrange(last, desc(year1))
#' 
#' internet_short <- internet_short %>%
#'   mutate(country = factor(country, levels = internet_summary$country))
#' 
#' ggplot(filter(internet_short, year > 1993),
#'        aes(x = year, y = country, fill = users)) +
#'   geom_tile(color = "white", size = 0.25) +
#'   scale_fill_viridis_c(option = "A", begin = 0.05, end = 0.98,
#'                        limits = c(0, 100),
#'                        name = "internet users / 100 people",
#'                        guide = guide_colorbar(direction = "horizontal",
#'                                               label.position = "bottom",
#'                                               title.position = "top",
#'                                               ticks = FALSE,
#'                                               barwidth = grid::unit(3.5, "in"),
#'                                               barheight = grid::unit(0.2, "in"))) +
#'   scale_x_continuous(expand = c(0, 0), name = NULL) +
#'   scale_y_discrete(name = NULL, position = "right") +
#'   theme_half_open(12) +
#'   labs(title = "Internet adoption over time",
#'        subtitle = "Nordic countries are ahead of the curve",
#'        caption = "Source: World Bank") +
#'   theme(axis.line = element_blank(),
#'         axis.ticks = element_blank(),
#'         axis.ticks.length = grid::unit(0, "pt"),
#'         plot.title = element_text(size = 14, face = "bold"),
#'         plot.subtitle = element_text(size = 12),
#'         plot.caption = element_text(size = 10),
#'         legend.position = "top",
#'         legend.justification = "right",
#'         legend.title.align = 0.5,
#'         legend.title = element_text(size = 10.286),
#'         plot.margin = margin(14, 14, 7, 14))
"internet"