pophelper包的安装
pophelper包在Github中，所以需要用到devtools包来进行安装
install.package("devtools")或 BiocManager::install("devtools")
devtools::install_github('royfrancis/pophelper')
library(pophelper)
输入文件
sfiles <- list.files("structure1",full.names=TRUE)
sfiles
slist <- readQ(sfiles)
slist
labset <- read.delim("72LD.nosex", header=F,stringsAsFactors=F)
plotQ(slist,imgoutput = "join", outputfilename="plotq4",imgtype="png", panelspacer =0.05, height = 0.5, splabangle = 0, showindlab=T,grplab=labset, exportpath=getwd())
labset <- read.delim("72LD.nosex", header=T,stringsAsFactors=F)
plotQ(slist,imgoutput = "join",
outputfilename="plotq4",
imgtype="png",
panelspacer =0.05,
height = 0.5,
splabangle = 0,
showindlab=T,
grplab=labset[,1,drop=FALSE],
exportpath=getwd())
sfiles <- list.files("structure1",full.names=TRUE)
sfiles
slist <- readQ(sfiles, readci=TRUE)
slist
labset <- read.delim("72LD.nosex", header=F,stringsAsFactors=F)
labset
plotQ(slist,imgoutput = "join",
outputfilename="plotq8",
imgtype="PDF",
panelspacer =0.05,
height = 0.5,
splabangle = 0,
showindlab=T,
grplab=labset[,1,drop=FALSE],
grplabangle = 90,
grplabsize = 1,
grplabheight = 5,
exportpath=getwd())
sfiles <- list.files("structure1",full.names=TRUE)
slist <- readQ(sfiles)
labset <- read.delim("72LD.nosex", header=F,stringsAsFactors=F)
labset
plotQ(slist,imgoutput = "join",
outputfilename="plotq9",
imgtype="PDF",
panelspacer =0.05,
height = 0.5,
splabangle = 0,
showindlab=F,
grplab=labset[,1,drop=FALSE],
grplabangle = 90,
grplabsize = 1,
grplabheight = 5,
exportpath=getwd())
",
,
