library(ggplot2)
## Load a FASTQ file, with sequence hashing.
s.trimmed.fastq <- readSeqFile(system.file('extdata', 'test-trimmed.fastq',
package='qrqc'))
# A custom plot - a bit contrived, but should show power
d <- merge(getSeqlen(s.trimmed.fastq), getQual(s.trimmed.fastq),
by.x="length", by.y="position")
ggplot(d) + geom_linerange(aes(x=length, ymin=0, ymax=count),
color="grey") + geom_linerange(aes(x=length, ymin=lower, ymax=upper),
color="blue") + scale_y_continuous("quality/count") + theme_bw()
Run the code above in your browser using DataLab