circle of fifths

Using flipbookr and xaringan

library(ggstamp)
library(ggplot2)
library(tidyverse)

major = c("C", "G", "D", "A", "E", "B", 
            "Gb","Db", "Ab", "Eb", "Bb", "F")
minor = c("Am", "Em", "Bm", "F#m", "C#m", "G#m", "Ebm",
            "Bbm", "Fm", "Cm", "Gm", "Dm")
spot = 1:12

---

ggcanvas() + 
  stamp_tile(x = 1:12) +
  stamp_text(x = 1:12, 
             label = major) + 
  stamp_tile(x = 1:12, y = -1) +
  stamp_text(x = 1:12, y = -.8, 
             label = minor,
             size = 4) +
  coord_polar(start = -.25) + 
  theme_void_fill(fill = "white") + 
  stamp_tile(x = 1, alpha = .25) ->
circle

ggstamp::ggcanvas() + 
  stamp_segment(x = 1:6, y = 0, xend = 1:6, yend = 7) + 
  stamp_segment(y = 0:5, yend = 0:5, x = 1, xend = 6) + 
  scale_y_reverse() + 
  theme_void() ->
frets

library(patchwork)

circle + frets + 
  circle + frets +
  circle + frets +
  circle + frets +
  circle + frets +
  circle + frets