Update 08_Clustering.R

Beeswarm plot function was broken in calling scater:::.resolve_plot_colours. I managed to fix it by more directly calling scater:::.get_palette

CourseMaterials/Demonstrations/08_Clustering.R

@@ -122,7 +122,10 @@ plotSilBeeswarm <- function(silDat){
         ggbeeswarm::geom_quasirandom(method="smiley", alpha=0.6) +
         theme_bw()
 
-  plt <- scater:::.resolve_plot_colours(plt, silTab$closestCluster, "closestCluster")
+  plt <- plt + scale_color_manual(
+    values = scater:::.get_palette("tableau20"),
+    name = "closestCluster")
+
   plt
 }