Generates colors according to the data
getLegendColors(Legend = c("up", "down", "NS"))
Legend,
unique Legends
mainPlotControls
getLegendColors
x <- getLegendColors(c("up", "down", "GS", "NS"))