No Description
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
boB Rudis c258bc3c61
Merge pull request #1 from erjanmx/fix-readme-typo
10 months ago
R tests and docs 10 months ago
README_files/figure-gfm See NEWS.md for all the changes (there are many) 10 months ago
data initial commit/quick hack 11 months ago
man tests and docs 10 months ago
tests tests and docs 10 months ago
vignettes tests and docs 10 months ago
.Rbuildignore gitlab ci support 10 months ago
.codecov.yml R package repo initialization complete 11 months ago
.gitignore See NEWS.md for all the changes (there are many) 10 months ago
.gitlab-ci.yml add devtools to gitlab ci 10 months ago
.travis.yml tests and docs 10 months ago
DESCRIPTION See NEWS.md for all the changes (there are many) 10 months ago
LICENSE See NEWS.md for all the changes (there are many) 10 months ago
NAMESPACE See NEWS.md for all the changes (there are many) 10 months ago
NEWS.md tests and docs 10 months ago
README.Rmd tests and docs 10 months ago
README.md Fix typo 10 months ago
worldtilegrid.Rproj R package repo initialization complete 11 months ago

README.md

Travis-CI Build
Status

worldtilegrid [WIP]

A ggplot2 Geom for World Tile Grids

Description

A “tile grid map” is a cartogram that uses same-sized tiles in approximate, relative positions of each other to represent a world map. The world tile grid relative position reference system used by this ‘ggplot2’ ‘Geom/Stat’ was the original work of ‘Jon Schwabish’ and converted to ‘CSV’ by ‘Maarten Lambrechts’.

What’s Inside The Tin

The following functions are implemented:

  • geom_wtg / stat_wtg: World Tile Grid Geom/Stat
  • theme_enhance_wtg World tile grid theme cruft remover that can be used with any other theme

The following data is included/exported:

wtg: World Tile Grid Basemap Data

Installation

devtools::install_github("hrbrmstr/worldtilegrid")

Usage

library(worldtilegrid)
library(tidyverse)

# current version
packageVersion("worldtilegrid")
## [1] '0.1.0'

Example (All countries are in the data set)

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

ggplot(xdf, aes(country = ctry, fill = `Thing Val`)) +
  geom_wtg() +
  geom_text(aes(label = stat(alpha.2)), stat="wtg", size=2) + # re-compute the stat to label
  coord_equal() +
  viridis::scale_fill_viridis() +
  labs(title = "World Tile Grid") +
  hrbrthemes::theme_ft_rc() +
  theme_enhance_wtg()

Example (Only a few countries are in the data set)

set.seed(1)
data_frame(
  ctry = worldtilegrid::wtg$alpha.3[1:30],
  `Thing Val` = sample(1000, length(ctry))
) -> xdf

ggplot(xdf, aes(country = ctry, fill = `Thing Val`)) +
  geom_wtg() +
  geom_text(aes(label = stat(alpha.2)), stat="wtg", size=2) + # re-compute the stat to label
  coord_equal() +
  viridis::scale_fill_viridis() +
  labs(title = "World Tile Grid") +
  hrbrthemes::theme_ft_rc() +
  theme_enhance_wtg()

Facet Example (All countries are in the data set)

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() +
  theme_enhance_wtg()

Facet Example (Only a few countries are in the data set)

The geom will fill in the gaps for you:

set.seed(1)
data_frame(
  ctry = c("USA", "MEX", "CAN", "RUS", "BRA"),
  `Thing Val` = sample(1000, length(ctry)),
  grp = 'Thing One'
) -> xdf1

data_frame(
  ctry = c("USA", "MEX", "CAN", "RUS", "BRA"),
  `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(na.value = hrbrthemes::ft_cols$gray) +
  labs(title = "World Tile Grid Facets") +
  hrbrthemes::theme_ft_rc() +
  theme_enhance_wtg()