data/InternetPenetration_1990-2014.R

In gitronald/InternetPenetration: World Bank Internet Penetration Data on Customizable World Map

load("WorldMap-InternetPenetration.Rda")
library(ggplot2)
library(maps)
library(ggmap)
library(extrafont)

# Spot check country and year
mean_check <- function(x, y) {
  z <- mean(WorldMapInternetPenetration[WorldMapInternetPenetration["region"] == x, as.character(y)])
  return(z)
}

# Uncomment below to obtain gradient maps for all years
# # Loop through all years and store image in list
# a <- lapply(1990:2014, ggplot_intpen, data = WorldMapInternetPenetration)