Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://liamgilbey.github.io/ggwaffle/
Creating waffle charts in a ggplot friendly way
https://liamgilbey.github.io/ggwaffle/
charts data-visualization ggplot2 r waffle-charts
Last synced: about 2 months ago
JSON representation
Creating waffle charts in a ggplot friendly way
- Host: GitHub
- URL: https://liamgilbey.github.io/ggwaffle/
- Owner: liamgilbey
- License: gpl-2.0
- Created: 2018-08-24T08:48:58.000Z (about 6 years ago)
- Default Branch: master
- Last Pushed: 2022-12-03T04:06:59.000Z (almost 2 years ago)
- Last Synced: 2024-07-17T01:21:05.043Z (2 months ago)
- Topics: charts, data-visualization, ggplot2, r, waffle-charts
- Language: R
- Homepage: https://liamgilbey.github.io/ggwaffle/
- Size: 720 KB
- Stars: 62
- Watchers: 3
- Forks: 4
- Open Issues: 4
-
Metadata Files:
- Readme: README.Rmd
- License: LICENSE
Awesome Lists containing this project
README
---
output: github_document
---
```{r, echo = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.path = "man/figures/README-"
)
```
# ggwaffle 
[](https://travis-ci.org/liamgilbey/ggwaffle)
[](https://app.codecov.io/gh/liamgilbey/ggwaffle?branch=master)
Create waffle charts in R in a ggplot2-friendly way.
## Acknowledgements
Really all credit to [Bob Rudis](https://github.com/hrbrmstr) for the work done on the original [waffle package](https://github.com/hrbrmstr/waffle).
## Description
ggwaffle is designed to work in a very similar way to the original [waffle package](https://github.com/hrbrmstr/waffle), while being slightly closer to the workflow of a standard ggplot graphic. Consequently, it is a little more verbose.
## Installation
Currently only available through github:
```r
# install.packages("devtools")
devtools::install_github("liamgilbey/ggwaffle")
```
## Usage
ggwaffle heavily relies on the usage of [ggplot2](https://github.com/tidyverse/ggplot2). Much like standard ggplot graphs, waffle charts are created by adding layers to a base graphic.
Because of the inner mechanisms of ggplot2, some of the necessary data transformations have to be completed outside of a standard plot creation. The function `waffle_iron` has been added to help with issue.
ggwaffle also introduces a column mapping function, `aes_d`. At this stage I have no idea of how useful this is outside the context of the package, but it seemed a nice way to specify dynamic column renaming.
`aes_d` is obviously coined from ggplot's `aes` function and has a very similar idea. Here we are mapping column names to feed into a function so they can be renamed for used appropriately.
```{r}
library(ggwaffle)
waffle_data <- waffle_iron(mpg, aes_d(group = class))
ggplot(waffle_data, aes(x, y, fill = group)) +
geom_waffle()
```
Functions have also been included to make the default graphics more waffle-like.
``theme_waffle`` is a ggplot theme that strips back a lot of the elements of the waffle to create a cleaner look. ``scale_fill_waffle`` returns a discrete scale to make your charts look a lot like waffles.
Using ``coord_equal`` is recommended to make the size of the blocks even in all dimensions.
```{r, fig.width=12, fig.height=6}
waffle_data <- waffle_iron(iris, aes_d(group = Species))
ggplot(waffle_data, aes(x, y, fill = group)) +
geom_waffle() +
coord_equal() +
scale_fill_waffle() +
theme_waffle()
```
The shape of the waffle tile can also be controlled, choosing from either a regular square, or a circle tile shape.
```{r, fig.width=12, fig.height=6}
waffle_data <- waffle_iron(iris, aes_d(group = Species))
ggplot(waffle_data, aes(x, y, colour = group)) +
geom_waffle(tile_shape = 'circle', size = 12) +
coord_equal() +
scale_colour_waffle() +
theme_waffle()
```
# Icons
The best way to implement icons into waffle charts is to use Guangchuang YU's [emojifont](https://cran.r-project.org/web/packages/emojifont/vignettes/emojifont.html) package.
```{r, fig.width=12, fig.height=6}
library(emojifont)
waffle_data <- waffle_iron(iris, aes_d(group = Species))
waffle_data$label = fontawesome('fa-twitter')
ggplot(waffle_data, aes(x, y, colour = group)) +
geom_text(aes(label=label), family='fontawesome-webfont', size=12) +
coord_equal() +
scale_colour_waffle() +
theme_waffle()
```