Exploring Cufflinks output with cummeRbund
Here we show the exploratory plots offered by the cummeRbund package. These plots require loading in a directory in which results from a Cufflinks analysis has been run. Follow the vignette in the above link in order in order to perform a Cufflinks gene- and isoform-level analysis. From the vignette:
CummeRbund begins by re-organizing output files of a cuffdiff analysis, and storing these data in a local SQLite database. CummeRbund indexes the data to speed up access to specific feature data (genes, isoforms, TSS, CDS, etc.), and preserves the various relationships between these features.
library(cummeRbund)
myDir <- system.file("extdata", package="cummeRbund")
gtfFile <- system.file("extdata/chr1_snippet.gtf",package="cummeRbund")
Read in the prepared Cufflinks files from the directory:
cuff <- readCufflinks(dir=myDir,gtfFile=gtfFile,genome="hg19",rebuild=TRUE)
Boxplots of expression (FPKM) at the gene and isoform level:
csBoxplot(genes(cuff))
csBoxplot(genes(cuff),replicates=TRUE)
csBoxplot(isoforms(cuff),replicates=TRUE)
Scatterplot matrix of gene and isoform level expression:
csScatterMatrix(genes(cuff))
csScatterMatrix(isoforms(cuff))
Sample dendrograms using Jensen-Shannon distances:
csDendro(genes(cuff),replicates=TRUE)
## 'dendrogram' with 2 branches and 6 members total, at height 0.2685017
csDendro(isoforms(cuff),replicates=TRUE)
## 'dendrogram' with 2 branches and 6 members total, at height 0.4377249
MA-plot comparing two conditions:
MAplot(genes(cuff),"hESC","Fibroblasts")
## Warning in loop_apply(n, do.ply): Removed 54 rows containing missing
## values (geom_point).
MAplot(isoforms(cuff),"hESC","Fibroblasts")
## Warning in loop_apply(n, do.ply): Removed 187 rows containing missing
## values (geom_point).
A “volcano plot” matrix. Each volcano plot is the -log10(p-value) over the log fold change.
csVolcanoMatrix(genes(cuff))
csVolcanoMatrix(isoforms(cuff))
For all of these functions, see the help pages in the cummeRbund package for more details, and check the vignette for a sample workflow. The Cufflinks homepage has details about running the pipeline upstream of producing these figures.
browseVignettes("cummeRbund")