maj_root <- c('existence', 'contentment', 'vigor')
maj_minor2nd <- c('uneasy','discomfort','aggravation')
maj_major2nd <- c('hope','reassurance','warmth','aspiration')
maj_minor3rd <- c('defiance', 'rebellion', 'dissent', 'fortitude')
maj_major3rd <- c('positive', 'optimism', 'brightness')
maj_perf4th <- c('expectation', 'elevation', 'prolonged')
maj_augm4th <- c('enchantment','adventure','magic') # could be magical
maj_perf5th <- c('stability', 'nobility', 'confidence', 'prominent')
maj_min6th <- c('eerie', 'strange', 'uncanny')
maj_maj6th <- c('comfort','calm','peace')
maj_min7th <- c('anticipation', 'prospect', 'pause', 'dissent') # nonconformist
maj_maj7th <- c('yearn','romance', 'desire', 'nostalgia')
maj_00 <- multiple_term_centres(data = warriner,terms = maj_root); maj_00$chord<-'root'
maj_01 <- multiple_term_centres(data = warriner,terms = maj_minor2nd); maj_01$chord<-'m2'
maj_02 <- multiple_term_centres(data = warriner,terms = maj_major2nd); maj_02$chord<-'M2'
maj_03 <- multiple_term_centres(data = warriner,terms = maj_minor3rd); maj_03$chord<-'m3'
maj_04 <- multiple_term_centres(data = warriner,terms = maj_major3rd); maj_04$chord<-'M3'
maj_05 <- multiple_term_centres(data = warriner,terms = maj_perf4th); maj_05$chord<-'P4'
maj_06 <- multiple_term_centres(data = warriner,terms = maj_augm4th); maj_06$chord<-'A4'
maj_07 <- multiple_term_centres(data = warriner,terms = maj_perf5th); maj_07$chord<-'P5'
maj_08 <- multiple_term_centres(data = warriner,terms = maj_min6th); maj_08$chord<-'m6'
maj_09 <- multiple_term_centres(data = warriner,terms = maj_maj6th); maj_09$chord<-'M6'
maj_10 <- multiple_term_centres(data = warriner,terms = maj_min7th); maj_10$chord<-'m7'
maj_11 <- multiple_term_centres(data = warriner,terms = maj_maj7th); maj_11$chord<-'M7'
maj<-rbind(maj_00,maj_01,maj_02,maj_03,maj_04,maj_05,maj_06,maj_07,maj_08,maj_09,maj_10,maj_11)Chord projections
Show where the chords are based on term locations of V and A space.
Major
Minor
min_root <- c('solitude', 'loneliness', 'severity')
min_minor2nd <- c('gloom', 'ruin', 'doom')
min_major2nd <- c('yearn', 'regret', 'lament')
min_minor3rd <- c('sadness', 'melancholy', 'darkness')
min_major3rd <- c('tension', 'distress', 'agitation', 'disturbance')
min_perf4th <- c('indifference', 'elevation', 'regretful') # wistfulness
min_augm4th <- c('dread', 'evil', 'sinister', 'wickedness', 'apprehension')
min_perf5th <- c('solemn', 'seriousness', 'dignity') # gravitas
min_min6th <- c('ominous', 'apparition', 'foreboding')
min_maj6th <- c('enchantment', 'charm', 'mystique', 'allure', 'seduction') # bewitchment
min_min7th <- c('brooding', 'contemplate', 'respite') # brooding > pensiveness
min_maj7th <- c('despair', 'defeat', 'resignation', 'tragedy', 'hopeless', 'depression') # fatalism to resignation
min_00 <- multiple_term_centres(data = warriner,terms = min_root); min_00$chord<-'min_root'
min_01 <- multiple_term_centres(data = warriner,terms = min_minor2nd); min_01$chord<-'m2'
min_02 <- multiple_term_centres(data = warriner,terms = min_major2nd); min_02$chord<-'M2'
min_03 <- multiple_term_centres(data = warriner,terms = min_minor3rd); min_03$chord<-'m3'
min_04 <- multiple_term_centres(data = warriner,terms = min_major3rd); min_04$chord<-'M3'
min_05 <- multiple_term_centres(data = warriner,terms = min_perf4th); min_05$chord<-'P4'
min_06 <- multiple_term_centres(data = warriner,terms = min_augm4th); min_06$chord<-'A4'
min_07 <- multiple_term_centres(data = warriner,terms = min_perf5th); min_07$chord<-'P5'
min_08 <- multiple_term_centres(data = warriner,terms = min_min6th); min_08$chord<-'m6'
min_09 <- multiple_term_centres(data = warriner,terms = min_maj6th); min_09$chord<-'M6'
min_10 <- multiple_term_centres(data = warriner,terms = min_min7th); min_10$chord<-'m7'
min_11 <- multiple_term_centres(data = warriner,terms = min_maj7th); min_11$chord<-'M7'
min <- rbind(min_01,min_02,min_03,min_04,min_05,min_06,min_07,min_08,min_09,min_10,min_11)Define centres (major) and plot
Inverted geom defaults of fill and color/colour.
To change them back, use invert_geom_defaults().
Define centres (minor) and plot
