Mercurial > repos > miller-lab > genome_diversity

view population_structure.r @ 36:51cd0307fb70

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Phylip's extra ouputs are now stored in the job working directory
author Richard Burhans <burhans@bx.psu.edu>
date Wed, 20 Nov 2013 16:32:01 -0500
parents 2c498d40ecde
children
line wrap: on
line source

library(RColorBrewer)

args = commandArgs(trailingOnly=TRUE)
q_file = args[[1]]
output_file = args[[2]]
populations = args[[3]]

tbl <- read.table(q_file)

if ( populations >= 3 && populations <= 12 ) {
    colors = brewer.pal(populations, 'Paired')
} else {
    colors = rainbow(populations)
}

pdf(file=output_file, onefile=TRUE, width=7, height=3)
barplot(t(as.matrix(tbl)), col=colors, xlab="Individual #", ylab="Ancestry", border=NA)

dev.off()