## Load a FASTQ file, with sequence hashing.
s.fastq <- readSeqFile(system.file('extdata', 'test.fastq', package='qrqc'))
## Mean quality by position
p <- ggplot(getQual(s.fastq)) + geom_line(aes(x=position, y=mean), color="blue")
p <- p + scale_y_continuous(limits=c(0, 42))
p
## A different type of quality plot
p <- ggplot(getQual(s.fastq)) + geom_linerange(aes(x=position,
ymin=lower, ymax=upper, color=mean))
p <- p + scale_color_gradient("mean quality", low="red", high="green")
p + scale_y_continuous("quality")
Run the code above in your browser using DataLab