diff high_dim_visu.R @ 1:5e4ec9397528 draft default tip

planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_high_dimension_visualization commit 70c7abb20f76651e61325e3aa90809f6874f8b85
author artbio
date Mon, 24 Jun 2019 07:16:30 -0400
parents 71e3b222516a
children
line wrap: on
line diff
--- a/high_dim_visu.R	Sun Jun 23 12:23:51 2019 -0400
+++ b/high_dim_visu.R	Mon Jun 24 07:16:30 2019 -0400
@@ -228,6 +228,7 @@
   rownames(contrasting_factor) <- contrasting_factor[,1]
   contrasting_factor <- contrasting_factor[colnames(data),]
   colnames(contrasting_factor) <- c("id","factor")
+  contrasting_factor$factor <- as.factor(contrasting_factor$factor)
   factorColors <-
     with(contrasting_factor,
          data.frame(factor = levels(factor),