Mercurial > repos > greg > multilocus_genotype

changeset 14:96ee9122823e draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author greg
date Sun, 09 Dec 2018 09:44:09 -0500
parents 6b8061a95c04
children 62ad61eac1ff
files multilocus_genotype.R
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/multilocus_genotype.R	Sun Dec 09 09:23:36 2018 -0500
+++ b/multilocus_genotype.R	Sun Dec 09 09:44:09 2018 -0500
@@ -301,11 +301,11 @@
 main <- "Average breakdown of SNP assignments across all samples";
 pie(spy, labels=labels, radius=0.60, col=col, main=main, cex.main=.75);
 par(mfrow=c(3, 2));
+col <- c("GREY", "#006DDB", "#24FF24", "#920000");
 for (i in 1:96) {
-    labels <- paste(labels, " (", round(tdt1_matrix[,i], 1), "%)", sep="");
-    col <- c("GREY", "#006DDB", "#24FF24", "#920000");
+    tmp_labels <- paste(labels, " (", round(tdt1_matrix[,i], 1), "%)", sep="");
     main <- paste("Breakdown of SNP assignments for", tdt1[1, i]);
-    pie(tdt1_matrix[,i], labels=labels, radius=0.90, col=col, main=main, cex.main=.85, cex=0.75);
+    pie(tdt1_matrix[,i], labels=tmp_labels, radius=0.90, col=col, main=main, cex.main=.85, cex=0.75);
 }
 dev.off()