fix(?) seaborn palette stuff

R/clusterviz.R

@@ -25,13 +25,14 @@ if (args$virtualenv != "-") {
 }
 
 p <- import("pandas")
-sns <- import("seaborn")
-cbp <- as.character(p$Series(sns$color_palette("colorblind", as.integer(9))$as_hex()))
 aggdf <- p$read_pickle(args$cluster_file)
-# aggdf <- as.data.frame(aggdf)
 aggdf$cluster <- factor(aggdf$cluster)
 str(aggdf)
 clusters = levels(aggdf$cluster)
+cbp <- c('#0173b2', '#de8f05', '#029e73', '#d55e00', '#cc78bc', '#ca9161', '#fbafe4', '#949494', '#ece133', '#56b4e9', '#0173b2', 
+         '#de8f05', '#029e73', '#d55e00', '#cc78bc', '#ca9161', '#fbafe4', '#949494', '#ece133', '#56b4e9', '#0173b2', '#de8f05', 
+         '#029e73', '#d55e00', '#cc78bc', '#ca9161', '#fbafe4', '#949494', '#ece133', '#56b4e9', '#0173b2', '#de8f05', '#029e73', 
+         '#d55e00', '#cc78bc', '#ca9161', '#fbafe4', '#949494', '#ece133', '#56b4e9')[1:length(clusters)
 
 ggplot(aggdf, aes(y = kwh_tot_mean, x = cluster)) + geom_boxplot()