Fixed colour vector when layered=TRUE.

TrigosTeam · Sep 7, 2023 · 7ed4529 · 7ed4529
1 parent b28fcf4
commit 7ed4529
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/plot_cell_categories.R b/R/plot_cell_categories.R
@@ -104,7 +104,7 @@ plot_cell_categories <- function(spe_object, categories_of_interest = NULL,
                   panel.background = element_blank(), axis.line = element_line(colour = "black"))+
             guides(alpha = "none") +
             ggtitle(paste(attr(spe_object, "name"), feature_colname, sep = " ")) +
-            scale_color_manual(breaks = categories_of_interest, values=colour_vector)
+            scale_color_manual(breaks = categories_of_interest, values=c(all_colours))
     }
     else{
         p <- ggplot(formatted_data, aes(x = .data$Cell.X.Position, y = .data$Cell.Y.Position)) +