A couple small adjustments to the structure plots in examine_pbmc68k_…

…more.R.
stephenslab · Aug 13, 2024 · f679fe8 · f679fe8
1 parent 02e25cd
commit f679fe8
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/analysis/examine_pbmc68k_more.R b/analysis/examine_pbmc68k_more.R
@@ -26,8 +26,9 @@ clusters[L[,3] > 0.4]  <- "NK cells"
 clusters[L[,1] > 0.3]  <- "myeloid"
 clusters[L[,5] > 0.2]  <- "B cells"
 clusters[L[,2] > 0.9]  <- "Megakaryocytes"
-
-clusters <- factor(clusters)
+clusters <- factor(clusters,
+                   c("Megakaryocytes","myeloid","B cells",
+                     "NK cells","T cells"))
 
 n    <- nrow(fit1$L)
 rows <- sample(n,2000)