# NOT RUN {
sfiles <- list.files(path=system.file("files/structure",package="pophelper"),full.names=TRUE)
slist <- readQ(sfiles)
# basic
plotQMultiline(slist[1])
# multiple files
plotQMultiline(slist[1:3])
# adjust samples per line and lines per page
plotQMultiline(slist[1],spl=75,lpp=10)
# sort individuals
plotQMultiline(slist[1],sortind="all")
plotQMultiline(slist[1],sortind="Cluster1")
# include labels from file
inds <- read.delim(system.file("files/structureindlabels.txt",package="pophelper"),header=FALSE,stringsAsFactors=FALSE)
rownames(slist[[1]]) <- inds$V1
plotQMultiline(slist[1],useindlab=T)
# change cluster colours
plotQMultiline(slist[1],clustercol=c("steelblue","coral"))
# change bar width and height
plotQMultiline(slist[1],barwidth=1,spl=149,labsize=3,height=5)
# }
Run the code above in your browser using DataLab