Merge pull request #84 from PF2-pasteur-fr/development

bugFix
PF2-pasteur-fr · Jun 8, 2021 · 1e17b31 · 1e17b31
2 parents 7c8fe50 + 11f4f17
commit 1e17b31
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/MDSPlot.R b/R/MDSPlot.R
@@ -16,8 +16,9 @@ MDSPlot <- function(dge, group, n=min(500, nrow(dge$counts)), gene.selection=c("
                     col=c("lightblue","orange","MediumVioletRed","SpringGreen"), outfile=TRUE, ggplot_theme=theme_gray()){
   if (outfile) png(filename="figures/MDS.png", width=1800, height=1800, res=300)
     coord <- plotMDS(dge, top=n, method="logFC", gene.selection=gene.selection[1], plot=FALSE)
-    d <- data.frame(x=coord$x, y=coord$y, group = group, 
-                    factor(colnames(coord$distance.matrix.squared), levels = colnames(coord$distance.matrix.squared)))
+    d <- data.frame(x=coord$x, y=coord$y, group=group, 
+                    sample=factor(colnames(coord$distance.matrix.squared), 
+                           levels = colnames(coord$distance.matrix.squared)))
     print(ggplot(data=d, aes(x=.data$x, y=.data$y, color=group, label=sample)) + 
       geom_point(show.legend=TRUE, size=3) +
       labs(color="") +