# 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],barsize=1,spl=149,labsize=3,height=5)
# read group labels
grps1 <- read.delim(system.file("files/structuregrplabels.txt", package="pophelper"), header=F,stringsAsFactors=F)
# plot with group labels
plotQMultiline(qlist=slist[1],grplab=list("grps"=grps1$V1))
plotQMultiline(qlist=slist[1],grplab=list("grps"=grps1$V1),useindlab=T)
#sort ind within groups
plotQMultiline(qlist=slist[1],grplab=list("grps"=grps1$V1),sortind="Cluster1")
#subset or reorder groups
plotQMultiline(qlist=slist[1],grplab=list("grps"=grps1$V1),subsetgrp=c("Pop B"))
plotQMultiline(qlist=slist[1],grplab=list("grps"=grps1$V1),subsetgrp=c("Pop B","Pop A"))
# }
Run the code above in your browser using DataLab