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.
1.6 KiB
1.6 KiB
---
output: rmarkdown::github_document
---
# 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
```{r eval=FALSE}
devtools::install_github("hrbrmstr/worldtilegrid")
```
```{r message=FALSE, warning=FALSE, error=FALSE, include=FALSE}
options(width=120)
```
## Usage
```{r message=FALSE, warning=FALSE, error=FALSE}
library(worldtilegrid)
# current verison
packageVersion("worldtilegrid")
```
### Example
```{r message=FALSE, warning=FALSE, error=FALSE, fig.width=10, fig.height=6}
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")
```