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
1 year ago
R tests and docs 1 year ago
README_files/figure-gfm See NEWS.md for all the changes (there are many) 1 year ago
data initial commit/quick hack 1 year ago
man tests and docs 1 year ago
tests tests and docs 1 year ago
vignettes tests and docs 1 year ago
.Rbuildignore gitlab ci support 1 year ago
.codecov.yml R package repo initialization complete 1 year ago
.gitignore See NEWS.md for all the changes (there are many) 1 year ago
.gitlab-ci.yml add devtools to gitlab ci 1 year ago
.travis.yml tests and docs 1 year ago
DESCRIPTION See NEWS.md for all the changes (there are many) 1 year ago
LICENSE See NEWS.md for all the changes (there are many) 1 year ago
NAMESPACE See NEWS.md for all the changes (there are many) 1 year ago
NEWS.md tests and docs 1 year ago
README.Rmd tests and docs 1 year ago
README.md Fix typo 1 year ago
worldtilegrid.Rproj R package repo initialization complete 1 year 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()