Internet users over time; plot variations

internet.csv

internet.R

library(tidyverse) # code uses development version of ggplot2 for viridis scales; otherwise, viridis package would be needed

df_internet <- read.csv("internet.csv")

# sort countries by internet users in final year
internet_summary <- df_internet %>%
  group_by(country) %>%
  summarize(last = users[n()]) %>%
  arrange(last)

df_internet <- mutate(df_internet, country = factor(country, levels = internet_summary$country))

# heatmap
ggplot(df_internet, aes(x = year, y = country, fill = users)) +
  geom_tile(color = "white", size = 0.25) +
  scale_fill_viridis_c(option = "A")

# line plot
ggplot(df_internet, aes(x = year, y = users, color = country)) +
  geom_line() +
  scale_color_viridis_d(option = "A")

# side-by-side boxplots
ggplot(df_internet, aes(x = year, y = users, group = year)) + 
  geom_boxplot()

# bar plot of current internet usage
ggplot(filter(df_internet, year == 2016), aes(x = country, y = users)) +
  geom_col() + coord_flip()