{"id":13712356,"url":"https://github.com/hrbrmstr/waffle","last_synced_at":"2025-05-16T19:05:13.058Z","repository":{"id":28954531,"uuid":"32480618","full_name":"hrbrmstr/waffle","owner":"hrbrmstr","description":":maple_leaf: Make waffle (square pie) charts in R","archived":false,"fork":false,"pushed_at":"2024-01-08T18:23:44.000Z","size":7439,"stargazers_count":778,"open_issues_count":53,"forks_count":94,"subscribers_count":28,"default_branch":"master","last_synced_at":"2025-04-12T17:48:08.977Z","etag":null,"topics":["data-visualisation","data-visualization","datavisualization","ggplot2","r","rstats","square-pie-charts","waffle-charts"],"latest_commit_sha":null,"homepage":"","language":"R","has_issues":true,"has_wiki":null,"has_pages":null,"mirror_url":null,"source_name":null,"license":null,"status":null,"scm":"git","pull_requests_enabled":true,"icon_url":"https://github.com/hrbrmstr.png","metadata":{"files":{"readme":"README.md","changelog":null,"contributing":null,"funding":".github/FUNDING.yml","license":null,"code_of_conduct":null,"threat_model":null,"audit":null,"citation":null,"codeowners":null,"security":null,"support":null,"governance":null,"roadmap":null,"authors":null,"dei":null,"publiccode":null,"codemeta":null},"funding":{"patreon":"hrbrmstr"}},"created_at":"2015-03-18T19:48:47.000Z","updated_at":"2025-03-28T08:44:21.000Z","dependencies_parsed_at":"2024-05-02T07:58:15.664Z","dependency_job_id":"0c6a1bc8-1c54-4a9d-ac10-89acc812c724","html_url":"https://github.com/hrbrmstr/waffle","commit_stats":{"total_commits":100,"total_committers":15,"mean_commits":6.666666666666667,"dds":0.5900000000000001,"last_synced_commit":"3f61463e6ab8d088ecff35db7cc1edfe633ee9f3"},"previous_names":[],"tags_count":1,"template":false,"template_full_name":null,"repository_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/hrbrmstr%2Fwaffle","tags_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/hrbrmstr%2Fwaffle/tags","releases_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/hrbrmstr%2Fwaffle/releases","manifests_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/hrbrmstr%2Fwaffle/manifests","owner_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners/hrbrmstr","download_url":"https://codeload.github.com/hrbrmstr/waffle/tar.gz/refs/heads/master","host":{"name":"GitHub","url":"https://github.com","kind":"github","repositories_count":254592368,"owners_count":22097011,"icon_url":"https://github.com/github.png","version":null,"created_at":"2022-05-30T11:31:42.601Z","updated_at":"2022-07-04T15:15:14.044Z","host_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub","repositories_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories","repository_names_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repository_names","owners_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners"}},"keywords":["data-visualisation","data-visualization","datavisualization","ggplot2","r","rstats","square-pie-charts","waffle-charts"],"created_at":"2024-08-02T23:01:17.475Z","updated_at":"2025-05-16T19:05:12.997Z","avatar_url":"https://github.com/hrbrmstr.png","language":"R","readme":"\n# 🧇 waffle\n\nCreate Waffle Chart Visualizations\n\n## Description\n\nSquare pie charts (a.k.a. waffle charts) can be used to communicate\nparts of a whole for categorical quantities. To emulate the percentage\nview of a pie chart, a 10x10 grid should be used with each square\nrepresenting 1% of the total. Modern uses of waffle charts do not\nnecessarily adhere to this rule and can be created with a grid of any\nrectangular shape. Best practices suggest keeping the number of\ncategories small, just as should be done when creating pie charts. Tools\nare provided to create waffle charts as well as stitch them together,\nand to use glyphs for making isotype pictograms.\n\nIt uses ggplot2 and returns a ggplot2 object.\n\n## What’s Inside the Tin\n\nThe following functions are implemented:\n\n- `waffle`: Make waffle (square pie) charts\n\n- `draw_key_pictogram`: Legend builder for pictograms\n\n- `fa_grep`: Search Font Awesome glyph names for a pattern\n\n- `fa_list`: List all Font Awesome glyphs\n\n- `fa5_brand`: Font Awesome 5 Brand\n\n- `fa5_solid`: Font Awesome 5 Solid\n\n- `geom_pictogram`: Pictogram Geom\n\n- `geom_waffle`: Waffle (Square pie chart) Geom\n\n- `install_fa_fonts`: Install Font Awesome 5 Fonts\n\n- `iron`: Veritical, left-aligned layout for waffle plots\n\n- `scale_label_pictogram`: Used with geom_pictogram() to map Font\n  Awesome fonts to labels\n\n- `theme_enhance_waffle`: Waffle chart theme cruft remover that can be\n  used with any other theme\n\n## Installation\n\n``` r\ninstall.packages(\"waffle\") # NOTE: CRAN version is 0.7.0\n# or\nremotes::install_github(\"hrbrmstr/waffle\")\n```\n\nNOTE: To use the ‘remotes’ install options you will need to have the\n[{remotes} package](https://github.com/r-lib/remotes) installed.\n\n## Usage\n\n``` r\nlibrary(waffle)\nlibrary(magrittr)\nlibrary(hrbrthemes)\nlibrary(ggplot2)\nlibrary(dplyr)\nlibrary(waffle)\n\n# current verison\npackageVersion(\"waffle\")\n## [1] '1.0.2'\n```\n\n### Some new bits up first\n\n``` r\ndata.frame(\n  parts = factor(rep(month.abb[1:3], 3), levels=month.abb[1:3]),\n  vals = c(10, 20, 30, 6, 14, 40, 30, 20, 10),\n  col = rep(c(\"navy\", \"black\", \"maroon\"), 3),\n  fct = c(\n    rep(\"Thing 1\", 3),\n    rep(\"Thing 2\", 3),\n    rep(\"Thing 3\", 3)\n  )\n) -\u003e xdf\n\nxdf %\u003e%\n  count(parts, wt = vals) %\u003e%\n  ggplot(\n    aes(fill = parts, values = n)\n  ) +\n  geom_waffle(\n    n_rows = 20,\n    size = 0.33, \n    colour = \"white\",\n    flip = TRUE\n  ) +\n  scale_fill_manual(\n    name = NULL,\n    values = c(\"#a40000\", \"#c68958\", \"#ae6056\"),\n    labels = c(\"Fruit\", \"Sammich\", \"Pizza\")\n  ) +\n  coord_equal() +\n  theme_ipsum_rc(grid=\"\") +\n  theme_enhance_waffle()\n```\n\n\u003cimg src=\"README_files/figure-commonmark/new-bits-1.png\" width=\"768\" /\u003e\n\n``` r\n\nxdf %\u003e%\n  count(parts, wt = vals) %\u003e%\n  ggplot(\n    aes(label = parts, values = n)\n  ) +\n  geom_pictogram(\n    n_rows = 10, \n    aes(colour = parts), \n    flip = TRUE, \n    make_proportional = TRUE\n  ) +\n  scale_color_manual(\n    name = NULL,\n    values = c(\"#a40000\", \"#c68958\", \"#ae6056\"),\n    labels = c(\"Fruit\", \"Sammich\", \"Pizza\")\n  ) +\n  scale_label_pictogram(\n    name = NULL,\n    values = c(\"apple-alt\", \"bread-slice\", \"pizza-slice\"),\n    labels = c(\"Fruit\", \"Sammich\", \"Pizza\")\n  ) +\n  coord_equal() +\n  theme_ipsum_rc(grid=\"\") +\n  theme_enhance_waffle() +\n  theme(\n    legend.key.height = unit(2.25, \"line\"),\n    legend.text = element_text(size = 10, hjust = 0, vjust = 0.75)\n  ) \n```\n\n\u003cimg src=\"README_files/figure-commonmark/new-bits-2.png\" width=\"768\" /\u003e\n\n``` r\n\nxdf %\u003e%\n  count(parts, wt = vals) %\u003e%\n  ggplot(\n    aes(label = parts, values = n)\n  ) +\n  geom_pictogram(\n    n_rows = 20, \n    size = 6, \n    aes(colour = parts), \n    flip = TRUE,\n    family = \"FontAwesome5Brands-Regular\"\n  ) +\n  scale_color_manual(\n    name = NULL,\n    values = c(\"#073f9c\", \"black\", \"#f34323\"),\n    labels = c(\"BitBucket\", \"GitHub\", \"Other\")\n  ) +\n  scale_label_pictogram(\n    name = NULL,\n    values = c(\"bitbucket\", \"github\", \"git-alt\"),\n    labels = c(\"BitBucket\", \"GitHub\", \"Other\")\n  ) +\n  coord_equal() +\n  theme_ipsum_rc(grid=\"\") +\n  theme_enhance_waffle() +\n  theme(\n    legend.text = element_text(hjust = 0, vjust = 1)\n  )\n```\n\n\u003cimg src=\"README_files/figure-commonmark/new-bits-3.png\" width=\"768\" /\u003e\n\n### Geoms!\n\n``` r\nlibrary(hrbrthemes)\nlibrary(waffle)\nlibrary(tidyverse)\n\ntibble(\n  parts = factor(rep(month.abb[1:3], 3), levels=month.abb[1:3]),\n  values = c(10, 20, 30, 6, 14, 40, 30, 20, 10),\n  fct = c(rep(\"Thing 1\", 3), rep(\"Thing 2\", 3), rep(\"Thing 3\", 3))\n) -\u003e xdf\n\nggplot(\n  data = xdf, \n  aes(fill=parts, values=values)\n) +\n  geom_waffle(\n    color = \"white\", \n    size = 1.125, \n    n_rows = 6\n  ) +\n  facet_wrap(~fct, ncol=1) +\n  scale_x_discrete(\n    expand = c(0,0,0,0)\n  ) +\n  scale_y_discrete(\n    expand = c(0,0,0,0)\n  ) +\n  ggthemes::scale_fill_tableau(name=NULL) +\n  coord_equal() +\n  labs(\n    title = \"Faceted Waffle Geoms\"\n  ) +\n  theme_ipsum_rc(grid=\"\") +\n  theme_enhance_waffle()\n```\n\n\u003cimg src=\"README_files/figure-commonmark/geoms-1.png\" width=\"576\" /\u003e\n\n### Waffle Bar Charts with scales!\n\n``` r\nlibrary(dplyr)\nlibrary(waffle)\n\nstorms %\u003e% \n  filter(year \u003e= 2010) %\u003e% \n  count(year, status) -\u003e storms_df\n\nggplot(\n  data = storms_df, \n  aes(fill = status, values = n)\n) +\n  geom_waffle(\n    color = \"white\", \n    size = .25, \n    n_rows = 10, \n    flip = TRUE\n  ) +\n  facet_wrap(\n    ~year, \n    nrow = 1, \n    strip.position = \"bottom\"\n  ) +\n  scale_x_discrete() + \n  scale_y_continuous(\n    labels = function(x) x * 10, # make this multiplier the same as n_rows\n    expand = c(0,0)\n  ) +\n  ggthemes::scale_fill_tableau(name=NULL) +\n  coord_equal() +\n  labs(\n    x = \"Year\", y = \"Count\",\n    title = \"Faceted Waffle Bar Chart\",\n    subtitle = \"{dplyr} storms data\"\n  ) +\n  theme_minimal(\n    base_family = \"Roboto Condensed\"\n  ) +\n  theme(\n    panel.grid = element_blank(), \n    axis.ticks.y = element_line()\n  ) +\n  guides(\n    fill = guide_legend(reverse = TRUE)\n  )\n```\n\n\u003cimg src=\"README_files/figure-commonmark/waffle-bars-1.png\"\nwidth=\"672\" /\u003e\n\n### Basic example\n\n``` r\nparts \u003c- c(80, 30, 20, 10)\nwaffle(parts, rows = 8)\n```\n\n\u003cimg src=\"README_files/figure-commonmark/fig0-1.png\" width=\"576\" /\u003e\n\n### Use a data frame\n\n``` r\nparts \u003c- data.frame(\n  names = LETTERS[1:4],\n  vals = c(80, 30, 20, 10)\n)\n\nwaffle(parts, rows = 8)\n```\n\n\u003cimg src=\"README_files/figure-commonmark/fig1-1.png\" width=\"576\" /\u003e\n\n### Slightly more complex example\n\n``` r\nc(\n  `Un-breached\\nUS Population` = (318 - 11 - 79), \n  `Premera` = 11, \n  `Anthem` = 79\n) -\u003e parts\n```\n\n``` r\nwaffle(\n  parts = parts, \n  rows = 8, \n  size = 1, \n  colors = c(\"#969696\", \"#1879bf\", \"#009bda\"),\n  legend_pos = \"bottom\"\n)\n```\n\n**Health records breaches as fraction of US Population**\n\n\u003cimg src=\"README_files/figure-commonmark/fig2-1.png\" width=\"576\" /\u003e\n\n\u003cspan style=\"font-size:8pt\"\u003eOne square == 1m ppl\u003c/span\u003e\n\n``` r\nwaffle(\n  parts = parts / 10, \n  rows = 3,\n  colors = c(\"#969696\", \"#1879bf\", \"#009bda\")\n)\n```\n\n**Health records breaches as fraction of US Population**\n\n\u003cimg src=\"README_files/figure-commonmark/fig3-1.png\" width=\"576\" /\u003e\n\n\u003cspan style=\"font-size:8pt\"\u003e(One square == 10m ppl)\u003c/span\u003e\n\n``` r\nlibrary(extrafont)\n\nwaffle(\n  parts = parts / 10, \n  rows = 3, \n  colors = c(\"#969696\", \"#1879bf\", \"#009bda\"),\n  use_glyph = \"medkit\", \n  size = 8\n) + \n  expand_limits(\n    y = c(0, 4)\n  )\n```\n\n\u003cimg src=\"README_files/figure-commonmark/medkit-1.png\" width=\"576\" /\u003e\n\n### Replicating an old favourite\n\n![](https://graphics8.nytimes.com/images/2008/07/20/business/20debtgraphic.jpg)\n\nVia: \u003chttps://www.nytimes.com/2008/07/20/business/20debt.html\u003e\n\n``` r\nc(\n  `Mortgage\\n($84,911)` = 84911, \n  `Auto and\\ntuition loans\\n($14,414)` = 14414,\n  `Home equity loans\\n($10,062)` = 10062, \n  `Credit Cards\\n($8,565)` = 8565\n) -\u003e savings\n```\n\n``` r\nwaffle(\n  parts = savings / 392, \n  rows = 7, \n  size = 0.5, \n  legend_pos = \"bottom\",\n  colors = c(\"#c7d4b6\", \"#a3aabd\", \"#a0d0de\", \"#97b5cf\")\n)\n```\n\n**Average Household Savings Each Year**\n\n\u003cimg src=\"README_files/figure-commonmark/fig4a-1.png\" width=\"768\" /\u003e\n\n\u003cspan style=\"font-size:8pt\"\u003e(1 square == \\$392)\u003c/span\u003e\n\n### More replication\n\nSimilar to \u003chttps://eagereyes.org/techniques/square-pie-charts\u003e\n\n``` r\nprofessional \u003c- c(`Male` = 44, `Female (56%)` = 56)\n```\n\n``` r\nwaffle(\n  parts = professional, \n  rows = 10, \n  size = 0.5,\n  colors = c(\"#af9139\", \"#544616\")\n)\n```\n\n### Keeps factor by default levels now\n\nWith:\n\n``` r\niron(\n  waffle(\n    parts = c(thing1 = 0, thing2 = 100), \n    rows = 5\n  ),\n  waffle(\n    parts = c(thing1 = 25, thing2 = 75), \n    rows = 5\n  )\n)\n```\n\n\u003cimg src=\"README_files/figure-commonmark/fct-1.png\" width=\"576\" /\u003e\n\nWithout (you can disable this via `keep` parameter now):\n\n``` r\niron(\n  waffle(\n    parts = c(thing1 = 0, thing2 = 100), \n    rows = 5, \n    keep = FALSE\n  ),\n  waffle(\n    parts = c(thing1 = 25, thing2 = 75), \n    rows = 5, \n    keep = FALSE\n  )\n)\n```\n\n\u003cimg src=\"README_files/figure-commonmark/no_fct-1.png\" width=\"576\" /\u003e\n\n**Professional Workforce Makeup**\n\n\u003cimg src=\"README_files/figure-commonmark/f5-1.png\" width=\"384\" /\u003e\n\nIron example (left-align \u0026 padding for multiple plots)\n\n``` r\npain.adult.1997 \u003c- c(`YOY (406)` = 406, `Adult (24)` = 24)\n\nwaffle(\n  parts = pain.adult.1997 / 2,\n  rows = 7, \n  size = 0.5,\n  colors = c(\"#c7d4b6\", \"#a3aabd\"),\n  title = \"Paine Run Brook Trout Abundance (1997)\",\n  xlab = \"1 square = 2 fish\", pad = 3\n) -\u003e A\n\npine.adult.1997 \u003c- c(`YOY (221)` = 221, `Adult (143)` = 143)\n\nwaffle(\n  parts = pine.adult.1997 / 2, \n  rows = 7, \n  size = 0.5,\n  colors = c(\"#c7d4b6\", \"#a3aabd\"),\n  title = \"Piney River Brook Trout Abundance (1997)\",\n  xlab = \"1 square = 2 fish\", pad = 8\n) -\u003e B\n\nstan.adult.1997 \u003c- c(`YOY (270)` = 270, `Adult (197)` = 197)\n\nwaffle(\n  parts = stan.adult.1997 / 2, \n  rows = 7, \n  size = 0.5,\n  colors = c(\"#c7d4b6\", \"#a3aabd\"),\n  title = \"Staunton River Trout Abundance (1997)\",\n  xlab = \"1 square = 2 fish\"\n) -\u003e C\n\niron(A, B, C)\n```\n\n\u003cimg src=\"README_files/figure-commonmark/f8-1.png\" width=\"672\" /\u003e\n\n## Package Code Metrics\n\n``` r\ncloc::cloc_pkg_md()\n```\n\n| Lang | \\# Files |  (%) | LoC |  (%) | Blank lines |  (%) | \\# Lines |  (%) |\n|:-----|---------:|-----:|----:|-----:|------------:|-----:|---------:|-----:|\n| R    |       14 | 0.44 | 624 | 0.35 |         218 | 0.36 |      439 | 0.38 |\n| Rmd  |        2 | 0.06 | 255 | 0.15 |          88 | 0.14 |      139 | 0.12 |\n| SUM  |       16 | 0.50 | 879 | 0.50 |         306 | 0.50 |      578 | 0.50 |\n\n{cloc} 📦 metrics for waffle\n\n## Code of Conduct\n\nPlease note that this project is released with a [Contributor Code of\nConduct](CONDUCT.md). By participating in this project you agree to\nabide by its terms.\n","funding_links":["https://patreon.com/hrbrmstr"],"categories":["Plot layers","R","Graphic Displays","ggplot"],"sub_categories":["Additional Plot Types"],"project_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Fhrbrmstr%2Fwaffle","html_url":"https://awesome.ecosyste.ms/projects/github.com%2Fhrbrmstr%2Fwaffle","lists_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Fhrbrmstr%2Fwaffle/lists"}