## Load a FASTQ file, with sequence hashing.
s.fastq <- readSeqFile(system.file('extdata', 'test.fastq',
package='qrqc'))
# A custom GC plot
d <- merge(getQual(s.fastq), getGC(s.fastq), by.x="position", by.y="position")
p <- ggplot(d) + geom_linerange(aes(x=position, ymin=lower,
ymax=upper, color=gc)) + scale_color_gradient(low="red",
high="blue") + scale_y_continuous("GC content")
p
Run the code above in your browser using DataLab