knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "man/figures/README-", out.width = "100%" )
整理转录组测序原始和比对数据的质量控制参数结果,并实现可视化展示。
安装R包:
# install.packages("devtools") devtools::install_github("lizhihui1996/RawdataQC")
加载R包:
library(RawdataQC) ## basic example code
summary(QC)
结果示例:
p <- RawdataQC_standard(data=QC,xlab="library",ylab="gc_content", changelabname=T,xlabname="Sample",ylabname="GC", title=T,titlename="GC Content", showerrordetail=F, facet=T,facet_label="batch", showerror=T, limit=44.5) p1 <- p$plot;p1 p2 <-p$summary;p2 p <- RawdataQC_stack(data=QC,xlab="library",showsample=T) p3 <- p$failplot;p3 p4 <- p$faillist;p4
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.