Add COSG to plot method list

and add a corresponding colour

code/plot-utils.R

@@ -81,7 +81,8 @@ method_lookup <- c(
   scran = "scran",
   seurat = "Seurat",
   cepo = "Cepo",
-  nsforest = "NSForest"
+  nsforest = "NSForest",
+  cosg = "COSG"
 )
 
 endothelial_clusters_lookup <- c(
@@ -133,14 +134,14 @@ metric_lookup <- c(
 
 package_fill_values <- c(
   "#2f4f4f", "#8b4513", "#7cfc00", "#000080", "#0000ff", "#ffd700", "#ff00ff",
-  "#00ffff", "#1e90ff", "#228b22", "#ff0000", "#eee8aa", "#ff69b4"
+  "#00ffff", "#1e90ff", "#228b22", "#ff0000", "#eee8aa", "#ff69b4", "#ffdf00"
 )
 names(package_fill_values) <- method_lookup
 package_fill <- scale_fill_manual(name = "Package", values = package_fill_values)
 
 package_colour_values <- c(
   "#2f4f4f", "#8b4513", "#7cfc00", "#000080", "#0000ff", "#ffd700", "#ff00ff",
-  "#00ffff", "#1e90ff", "#228b22", "#ff0000", "#eee8aa", "#ff69b4"
+  "#00ffff", "#1e90ff", "#228b22", "#ff0000", "#eee8aa", "#ff69b4", "#ffdf00"
 )
 names(package_colour_values) <- method_lookup
 package_colour <- scale_colour_manual(
@@ -150,11 +151,11 @@ package_colour <- scale_colour_manual(
 
 external_package_colour_values <- c(
   "#8b4513", "#7cfc00", "#000080", "#0000ff", "#00ffff", "#1e90ff", "#228b22",
-  "#ff0000", "#eee8aa", "#ff69b4"
+  "#ff0000", "#eee8aa", "#ff69b4", "#ffdf00"
 )
 names(external_package_colour_values) <- c(
   "edgeR", "glmGamPoi", "limma", "presto", "RankCorr", "Scanpy", "scran",
-  "Seurat", "Cepo", "NSForest"
+  "Seurat", "Cepo", "NSForest", "COSG"
 )
 external_package_colour <- scale_colour_manual(
   name = "Package",
@@ -163,11 +164,11 @@ external_package_colour <- scale_colour_manual(
 
 external_package_fill_values <- c(
   "#8b4513", "#7cfc00", "#000080", "#0000ff", "#00ffff", "#1e90ff", "#228b22",
-  "#ff0000", "#eee8aa", "#ff69b4"
+  "#ff0000", "#eee8aa", "#ff69b4", "#ffdf00"
 )
 names(external_package_fill_values) <- c(
   "edgeR", "glmGamPoi", "limma", "presto", "RankCorr", "Scanpy", "scran",
-  "Seurat", "Cepo", "NSForest"
+  "Seurat", "Cepo", "NSForest", "COSG"
 )
 external_package_fill <- scale_fill_manual(
   name = "Package",