chord-table.md

library(tidyverse)
library(knitr)

chord_table <- tribble(
  ~number, ~flavour, ~intervals,
  1,       "Major 7",    "1 3 5 7",
  2,       "Minor 7",    "1 b3 5 b7",
  3,       "Minor 7",    "1 b3 5 b7",
  4,       "Major 7",    "1 3 5 7",
  5,       "Dominant 7", "1 3 5 b7",
  6,       "Minor 7",    "1 b3 5 b7",
  7,       "Half-Dim 7", "1 b3 b5 b7"
)

kable(chord_table)

number	flavour	intervals
1	Major 7	1 3 5 7
2	Minor 7	1 b3 5 b7
3	Minor 7	1 b3 5 b7
4	Major 7	1 3 5 7
5	Dominant 7	1 3 5 b7
6	Minor 7	1 b3 5 b7
7	Half-Dim 7	1 b3 b5 b7

distinct(chord_table, flavour, .keep_all = TRUE) %>% 
  select(flavour:intervals) %>% 
  slice(1, 3, 2, 4) %>% 
  kable()

flavour	intervals
Major 7	1 3 5 7
Dominant 7	1 3 5 b7
Minor 7	1 b3 5 b7
Half-Dim 7	1 b3 b5 b7

^{Created on 2020-09-22 by the reprex package (v0.3.0)}