internet: Internet users per 100 people

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

Description

Internet users per 100 people, for over 250 countries and from 1990 to 2016.

Usage

internet

Format

An object of class tbl_df (inherits from tbl, data.frame) with 7128 rows and 3 columns.

References

World Bank. 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))

clauswilke/dviz.supp documentation built on Aug. 25, 2020, 2:12 a.m.