From f679fe82ebc96ac131b928a2067d9219d1db1b94 Mon Sep 17 00:00:00 2001
From: Peter Carbonetto <peter.carbonetto@gmail.com>
Date: Tue, 13 Aug 2024 10:53:54 -0500
Subject: [PATCH] A couple small adjustments to the structure plots in
 examine_pbmc68k_more.R.

---
 analysis/examine_pbmc68k_more.R | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/analysis/examine_pbmc68k_more.R b/analysis/examine_pbmc68k_more.R
index 69954eb..f8e17a2 100644
--- 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)