## Load a FASTQ file, with sequence hashing.
s.fastq <- readSeqFile(system.file('extdata', 'test.fastq',
package='qrqc'))
# A custom base plot
ggplot(getBaseProp(s.fastq)) + geom_line(aes(x=position, y=proportion,
color=base)) + facet_grid(. ~ base) + scale_color_dna()
Run the code above in your browser using DataLab