選択できるのは25トピックまでです。 トピックは、先頭が英数字で、英数字とダッシュ('-')を使用した35文字以内のものにしてください。
boB Rudis c258bc3c61
Merge pull request #1 from erjanmx/fix-readme-typo
6年前
R tests and docs 6年前
README_files/figure-gfm See NEWS.md for all the changes (there are many) 6年前
data initial commit/quick hack 6年前
man tests and docs 6年前
tests tests and docs 6年前
vignettes tests and docs 6年前
.Rbuildignore gitlab ci support 6年前
.codecov.yml R package repo initialization complete 6年前
.gitignore See NEWS.md for all the changes (there are many) 6年前
.gitlab-ci.yml add devtools to gitlab ci 6年前
.travis.yml tests and docs 6年前
DESCRIPTION See NEWS.md for all the changes (there are many) 6年前
LICENSE See NEWS.md for all the changes (there are many) 6年前
NAMESPACE See NEWS.md for all the changes (there are many) 6年前
NEWS.md tests and docs 6年前
README.Rmd tests and docs 6年前
README.md Fix typo 6年前
worldtilegrid.Rproj R package repo initialization complete 6年前

README.md

Travis-CI BuildStatus

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