Bug fix in plot_gsea

csbl-usp · Nov 21, 2018 · e1f36d4 · e1f36d4
1 parent 6a3cfe9
commit e1f36d4
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/visualization.R b/R/visualization.R
@@ -325,6 +325,7 @@ setMethod('plot_gsea', signature('CEMiTool'),
         nes_melted <- reshape2::melt(nes)
         colnames(nes_melted) <- c("Module", "Class", "NES")
         nes_melted$Module <- factor(nes_melted$Module, levels=row_order)
+        nes_melted$Class <- as.character(nes_melted$Class)
         max_abs_nes <- max(abs(nes_melted$NES))
         res <- ggplot(nes_melted, aes_(x=~Class, y=~Module, size=~abs(NES), fill=~NES)) +
             geom_point(color = "white", shape=21) +