## Load a FASTQ file
s.fastq <- readSeqFile(system.file('extdata', 'test.fastq', package='qrqc'))
## Plot qualities with the DNA color scheme
ggplot(getBase(s.fastq)) + geom_line(aes(x=position, y=frequency,
color=base)) + scale_color_iupac()
Run the code above in your browser using DataLab