Occupant satisfaction

Code 
satisfaction_levels <- c("-3", "-2", "-1", "0", "+1", "+2", "+3")
satisfaction_labels <- c("Very\nDissatisfied", "Dissatisfied", "Somewhat\nDissatisfied", "Neither",  "Somewhat\nSatisfied", "Satisfied", "Very\nSatisfied")
satisfaction_palette <- c("#ba3b50", "#cf6b61", "#d09da9", '#f3e8e7', "#c2e8bb", "#8bcc8a", "#4cb15e")

Thermal sensation

Code 
thermal_sensation_levels <- c("-3", "-2", "-1", "0", "+1", "+2", "+3")
thermal_sensation_labels <- c("Cold", "Cool", "Slightly cool", "Neutral", "Slightly warm", "Warm", "Hot")
thermal_sensation_palette <- c("#6b8dd6","#82c6ed","#b8e4f7","#c9e0b0","#f7a9b7","#eb6b58","#b44a4a")

Thermal preference

Code 
thermal_preference_levels <- c("-1", "0", "+1")
thermal_preference_labels <- c("Cooler", "No change", "Warmer")
thermal_preference_palette <- c("#82c6ed","#c9e0b0","#eb6b58")

Thermal acceptability

Code 
thermal_acceptability_levels <- c("-2", "-1", "0", "+1", "+2")
thermal_acceptability_labels <- c("Very unacceptable", "Somewhat unacceptable", "Neither nor", "Somewhat acceptable", "Very acceptable")
thermal_acceptability_palette <- c('#bc3e4d','#d99fa8','#f3e8e7','#c1e0b9','#38a257')