## Load data
library('derfinder')
## Annotate the results with bumphunter::matchGenes()
library('bumphunter')
library('TxDb.Hsapiens.UCSC.hg19.knownGene')
library('org.Hs.eg.db')
genes <- annotateTranscripts(txdb = TxDb.Hsapiens.UCSC.hg19.knownGene,
annotationPackage = 'org.Hs.eg.db')
annotation <- matchGenes(x = genomeRegions$regions, subject = genes)
## Make the plot
plotCluster(idx=1, regions=genomeRegions$regions, annotation=annotation,
coverageInfo=genomeDataRaw$coverage, groupInfo=genomeInfo$pop,
txdb=TxDb.Hsapiens.UCSC.hg19.knownGene)
## Resize the plot window and the labels will look good.
## For a custom plot, check the ggbio and ggplot2 packages.
## Also feel free to look at the code for this function:
plotCluster
Run the code above in your browser using DataLab