plotDist

noriakis · Jun 21, 2024 · d2b001b · d2b001b
1 parent 56d1678
commit d2b001b
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/R/plotDist.R b/R/plotDist.R
@@ -60,8 +60,11 @@ plotDist <- function(stana, sp, cl=NULL, AAfunc=dist.ml, AAargs=list(),
           sn <- attr(d, "Labels")      
         }
         if (length(cl)!=0) {
-	        met <- data.frame(listToNV(cl))
-	        met <- data.frame(met[sn, ]) %>% `row.names<-`(sn) %>% `colnames<-`(c("group"))
+	        met <- listToNV(cl)[sn]
+	        met <- data.frame(met) %>% `row.names<-`(sn) %>% `colnames<-`(c("group"))
+            gr <- met$group
+            gr[is.na(gr)] <- "No group"
+            met$group <- gr
 	        pheatmap(d, annotation_row=met)        	
         } else {
         	pheatmap(d)