# NOT RUN {
# open chord
am_frets <- c(0, 0, 2, 2, 1, 0) # first note will be muted; 'x' is drawn at 0
idx <- c(1, 1, 2, 2, 2, 1)
fill <- c("white", "black")[idx]
lab_col <- c("black", "white")[idx]
mute <- c(TRUE, rep(FALSE, 5))
fretboard_plot(6:1, am_frets, "notes", mute, label_color = lab_col, point_fill = fill)
# moveable chord
fretboard_plot(6:1, am_frets, mute = mute, point_fill = fill, fret_range = c(0, 4),
horizontal = TRUE, show_tuning = TRUE)
# scale shifting exercise
string <- c(6, 6, 6, 5, 5, 5, 4, 4, 4, 4, 4, 3, 3, 3, 2, 2, 2, 1, 1, 1)
fret <- "2 4 5 2 4 5 2 4 6 7 9 6 7 9 7 9 10 7 9 10" # string input style accepted
fretboard_plot(string, fret, labels = "notes")
# }
Run the code above in your browser using DataLab