Mercurial > repos > lecorguille > xcms_plot_chromatogram

diff lib.r @ 15:bd5a0cfb57ed draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
"planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 50478425b4773ebcb393c0e31f1e622b7406dcbb"
author workflow4metabolomics
date Thu, 24 Sep 2020 08:08:06 +0000
parents 8de3ef63e2ef
children bf87ce10267e
line wrap: on
line diff
--- a/lib.r	Tue Jul 21 13:16:56 2020 +0000
+++ b/lib.r	Thu Sep 24 08:08:06 2020 +0000
@@ -256,7 +256,7 @@
     }
     if (length(group_colors) > 1) {
         names(group_colors) <- unique(xdata$sample_group)
-        plot(chrom, col = group_colors[as.factor(chrom$sample_group)], main=main, peakType = "none")
+        plot(chrom, col = group_colors[chrom$sample_group], main=main, peakType = "none")
         legend("topright", legend=names(group_colors), col=group_colors, cex=0.8, lty=1)
     }