named_pal <- palette(roygbiv)
names(named_pal) <- c('red', 'orange', 'yellow', 'green', 'blue', 'indigo', 'violet')