## Load a FASTQ file, with sequence hashing.
s.fastq <- readSeqFile(system.file('extdata', 'test.fastq', package='qrqc'))
## Plot bases
basePlot(s.fastq)
## Plot bases with filled bars
basePlot(s.fastq, geom="bar")
## Plot bases with dodged bars
basePlot(s.fastq, geom="dodge")
## Plot bases with dodged bars
basePlot(s.fastq, geom="bar", bases=c("G", "T"))
## Plot multiple base plots
s.trimmed.fastq <- readSeqFile(system.file('extdata',
'test-trimmed.fastq', package='qrqc'))
basePlot(list("not trimmed"=s.fastq, "trimmed"=s.trimmed.fastq))
## Graphical features can be added
basePlot(s.trimmed.fastq, type="proportion") +
geom_hline(yintercept=0.25, color="purple")
Run the code above in your browser using DataLab