Modern musical notation encodes musical symbols for the purpose of communicating with musicians. However, the format is optimized for musical performance rather than pattern analysis. R and ggplot2 can be used to analyze music and highlight patterns in a visual medium that are otherwise somewhat difficult to discern.
Music analysis using R is not a new idea. There is an R package (tuneR) dedicated to the topic and programs written by faculty of the Indiana University Bloomington (Music Informatics) are available online. I have not seen any music analysis done using ggplot2 and thought it would provide an excellent way of visualizing attributes of musical compositions. Many have been intrigued at the symmetry, patterns and repeating structures in compositions by J.S. Bach. The visualization below is based upon a Two Part Invention (No. 8 in F Major – BWV779). It is intended to compactly illustrate the notes as they occur in time, organized by voice.
The color of notes assists in the visual identification of repeating patterns. The y axis indicates the octave boundaries; the color indicates the note played. The x axis is based upon the time series for the track, with the scale set so that lines break on each measure. The position on the y axis indicates the pitch, and the color represents the note (which is the same regardless of the octave in which it appears).
The sqldf package is used to derive this information from the data frame. Code to complete this work is as follows:
library(sqldf) df=read.csv('bach2part8inF.txt',sep=';', header=TRUE) df = df[,-1] # Algorithm to split voices # 1) Identify number of simultaneous notes at the time each note occurs df=sqldf('select df.Time, df.Pitch, df.Note, df.Octave, t2.simultaneous_notes from df join (select Time, count(*) simultaneous_notes from df group by Time) t2 on t2.Time = df.Time') #) 2) Find all of the notes that are the highest when more than one occurs at the same time, and combine them with # the set of all notes that occur by themselves but are higher that the first note in the piece upper=sqldf('select Time, max(Pitch) Pitch from df where simultaneous_notes >1 group by time union select time, Pitch from df where simultaneous_notes=1 and Pitch >= 65') # 3) Identify voice 1 (upper voice) and 2 (lower voice). Note that this is not exactly accurate # for the last chord which has 4 simultaneous notes df=sqldf('select df.*, "1" Voice from df where (Time + Pitch) in (select Time + Pitch from upper) union select df.*, "2" Voice from df where (Time + Pitch) not in (select Time + Pitch from upper)') octave_boundary=sqldf('select Octave + 1, max(Pitch) + 1 Pitch from df group by Octave having Octave < 6')
The code specific to creating the plot:
library(ggplot2) ggplot(data=df, aes(Time, Pitch, color=Note, group=Voice)) + geom_line() + geom_point() + scale_x_continuous('Measure', breaks=seq(0,103000, 3072), labels=1:length(seq(0,103000, 3072))) + scale_y_continuous("Octave", breaks=as.numeric(octave_boundary$Pitch), labels=octave_boundary$Octave) + opts(title="Bach 2 Part Invention #8 in F Major (BWV779)") ggsave('bach2part8inF.png')
Traditional summarization techniques can be done with the data readily available in a data frame. This stacked bar chart illustrates the occurrences of notes by octave.
A similar analysis is the occurrences of notes by voice.
There are numerous repeating patterns throughout the piece (for instance, notice the sequences that are staggered between the voices at the end of measure 2 into the beginning of measure 4). The graph can be modified by limiting the scope of the data frame. For instance, you might choose to view only the first four measures:
df[df$Time <= 18750,]
If you wanted to separate each voice into its own chart, you can use facets:
facet_wrap(~ Voice, ncol=1)
This visualization illustrates one of the limitations in the algorithm used to split the voices. An F is shared by both voices, and has been edited in after rendering.
By Casimir Saternos
All Code and Data available in links above or in a github repository.
Last edited by coolbutuseless,