worldtilegrid [WIP]

A ggplot2 Geom for World Tile Grids

Description

• Ref: https://policyviz.com/2017/10/12/the-world-tile-grid-map/
• Ref: http://www.maartenlambrechts.com/2017/10/22/tutorial-a-worldtilegrid-with-ggplot2.html

What’s Inside The Tin

The following functions are implemented:

• geom_wtg: World Tile Grid Geom

The following data is included/exported:

wtg: World Tile Grid Basemap Data

Installation

devtools::install_github("hrbrmstr/worldtilegrid")

Usage

library(worldtilegrid)

# current verison
packageVersion("worldtilegrid")

## [1] '0.1.0'

Example

library(worldtilegrid)
library(tidyverse)

set.seed(1)
data_frame(
  ctry = worldtilegrid::wtg$alpha.3,
  `Thing Val` = sample(1000, length(ctry)),
  grp = 'Thing One'
) -> xdf1

data_frame(
  ctry = worldtilegrid::wtg$alpha.3,
  `Thing Val` = sample(1000, length(ctry)),
  grp = 'Thing Two'
) -> xdf2

bind_rows(
  xdf1,
  xdf2
) -> xdf

ggplot(xdf, aes(country = ctry, fill = `Thing Val`)) +
  geom_wtg() +
  coord_equal() +
  facet_wrap(~grp) +
  viridis::scale_fill_viridis() +
  labs(title = "World Tile Grid Facets") +
  hrbrthemes::theme_ft_rc(grid="") +
  theme(panel.border = element_rect(color=hrbrthemes::ft_cols$white, fill="#00000000")) +
  theme(axis.text = element_blank()) +
  theme(legend.position = "bottom")