Waffle – Unlocking the Power of Data Visualization with R

Load the libraries

library(tidyverse)

Warning: package 'ggplot2' was built under R version 4.4.1

Warning: package 'tibble' was built under R version 4.4.1

Warning: package 'purrr' was built under R version 4.4.1

Warning: package 'stringr' was built under R version 4.4.1

Warning: package 'forcats' was built under R version 4.4.1

Warning: package 'lubridate' was built under R version 4.4.1

── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.1.4          ✔ readr     2.1.5     
✔ forcats   1.0.1          ✔ stringr   1.5.2     
✔ ggplot2   4.0.0          ✔ tibble    3.3.0     
✔ lubridate 1.9.4          ✔ tidyr     1.3.1.9000
✔ purrr     1.1.0          
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

tuesdata <- tidytuesdayR::tt_load(2022, week = 52)

---- Compiling #TidyTuesday Information for 2022-12-27 ----
--- There are 2 files available ---


── Downloading files ───────────────────────────────────────────────────────────

  1 of 2: "tlBooks.csv"
  2 of 2: "tlFootnotes.csv"

tlBooks <- tuesdata$tlBooks
tlFootnotes<-tuesdata$tlFootnotes

tlBooks%>%names

 [1] "year"               "title"              "series"            
 [4] "anthology"          "format"             "number"            
 [7] "novelization"       "setting"            "stardate_start"    
[10] "stardate_end"       "detailed_date"      "section"           
[13] "primary_entry_year" "footnote"

tlFootnotes%>%names

[1] "footnote" "text"

Join the two sets by footnote

The new dataset combines, year, title, … with the footnote of the Star Trek Timelines. The data comes from the {rtrek} package by Georgios Karamanis.

df <- tlBooks %>%
  inner_join(tlFootnotes,by="footnote")

df%>%DataExplorer::profile_missing()%>%arrange(pct_missing)

# A tibble: 15 × 3
   feature            num_missing pct_missing
   <fct>                    <int>       <dbl>
 1 year                         0      0     
 2 title                        0      0     
 3 format                       0      0     
 4 novelization                 0      0     
 5 setting                      0      0     
 6 footnote                     0      0     
 7 text                         0      0     
 8 series                      28      0.0568
 9 section                    265      0.538 
10 number                     302      0.613 
11 anthology                  325      0.659 
12 primary_entry_year         367      0.744 
13 stardate_start             406      0.824 
14 detailed_date              425      0.862 
15 stardate_end               464      0.941

How to make a `Waffle`

This is a little example from: https://r-charts.com/part-whole/waffle-chart-ggplot2/

# install.packages("waffle", repos = "https://cinc.rud.is")
library(waffle)

# Vector
x <- c(30, 25, 20, 5)

# Waffle chart
waffle(x, rows = 8)

Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
ℹ Please use `linewidth` instead.
ℹ The deprecated feature was likely used in the waffle package.
  Please report the issue to the authors.

In this dataset there are three formats: book, episode and story

df%>%
  count(format)%>%
  waffle(rows=20)

Using `ggplot2`

This Waffle is made of 12 different colors for identifying the SSeries. Here are used many colors from the trekcolors package for coloring the series of different colors.

# install.packages("trekcolors")
library(trekcolors)

Warning: package 'trekcolors' was built under R version 4.4.1

# trekcolors::lcars_colors()

The fonts are from the trekfont package.

# install.packages("trekfont")
library(trekfont)

Warning: package 'trekfont' was built under R version 4.4.1

# trekfont::show_trekfonts()
library(showtext)

Loading required package: sysfonts

Loading required package: showtextdb

font <- c("Khan", "StarNext", "FederationDS9Title", "Federation", "Klingon", "ModernVulcan", "TNGcast", "FederationStarfleet")
path <- system.file(paste0("fonts/", font, ".ttf"), package = "trekfont")
for(i in seq_along(font)) font_add(font[i], path[i])
font_families()

 [1] "sans"                "serif"               "mono"               
 [4] "wqy-microhei"        "Khan"                "StarNext"           
 [7] "FederationDS9Title"  "Federation"          "Klingon"            
[10] "ModernVulcan"        "TNGcast"             "FederationStarfleet"

showtext_auto(enable = TRUE)

library(waffle)
df%>%
  count(series)%>%
  drop_na()%>%
  waffle(rows = 20, size = 0.5)+
  scale_fill_manual(values =as.character(lcars_colors())) +
  # Waffle plot
  #ggplot(aes(fill = series, values = n)) +
  #geom_waffle(n_rows = 20, size = 0.5, colour = "white") +
  #scale_fill_manual(values =as.character(lcars_colors())) +
  coord_equal() +
  scale_x_continuous(expand = c(0, 0))+
  labs(title="Star Trek Timelines Series",
       subtitle = "",
       caption="DataSource: #TidyTuesday 2022 week52 - Star Trek Timelines\nDataViz: Federica Gazzelloni #30DayChartChallenge 2023 Day2 - Waffle\n")+
  theme_void()+
  theme(text = element_text(family= "StarNext",size=14),
        #legend.position = "bottom",
        plot.title = element_text(size=50,hjust = 0.3,vjust = 0),
        plot.caption = element_text(size=20,hjust = 0.4,family="FederationDS9Title"),
        panel.background = element_rect(fill="#9977AA",color="#9977AA"),
        plot.background = element_rect(fill="#9977AA",color="#9977AA"))

Scale for fill is already present.
Adding another scale for fill, which will replace the existing scale.
Coordinate system already present.
ℹ Adding new coordinate system, which will replace the existing one.
Scale for x is already present.
Adding another scale for x, which will replace the existing scale.

ggsave("ss.png",
       width = 6,height = 5.5,
       bg="#9977AA",
       dpi=200)

How to make a Waffle

Using ggplot2

How to make a `Waffle`

Using `ggplot2`