trackViewer Vignette: overview
Jianhong Ou, Lihua Julie Zhu
17 May 2023
Abstract
Visualize mapped reads along with annotation as track layers for NGS dataset such as ChIP-seq, RNA-seq, miRNA-seq, DNA-seq, SNPs and methylation data.
Introduction
There are two packages available in Bioconductor for visualizing genomic data: rtracklayer and Gviz. rtracklayer provides an interface to genome browsers and associated annotation tracks. Gviz can be used to plot coverage and annotation tracks. TrackViewer is a lightweight visualization tool for generating interactive figures for publication. Not only can trackViewer be used to visualize coverage and annotation tracks, but it can also be employed to generate lollipop/dandelion plots that depict dense methylation/mutation/variant data to facilitate an integrative analysis of these multi-omics data. It leverages Gviz and rtracklayer, is easy to use, and has a low memory and cpu consumption. In addition, we implemented a web application of trackViewer leveraging Shiny package. The web application of trackViewer is available at https://github.com/jianhong/trackViewer.documentation/tree/master/trackViewerShinyApp.
Plot high dense methylation/mutation/variant data by dandelion plot
Plot genomic interaction data (HiC, cooler, etc) by viewTracks
library(Gviz)
library(rtracklayer)
library(trackViewer)
extdata <- system.file("extdata", package="trackViewer",
mustWork=TRUE)
gr <- GRanges("chr11", IRanges(122929275, 122930122), strand="-")
fox2 <- importScore(file.path(extdata, "fox2.bed"), format="BED",
ranges=gr)
fox2$dat <- coverageGR(fox2$dat)
viewTracks(trackList(fox2), gr=gr, autoOptimizeStyle=TRUE, newpage=FALSE)
dt <- DataTrack(range=fox2$dat[strand(fox2$dat)=="-"] ,
genome="hg19", type="hist", name="fox2",
window=-1, chromosome="chr11",
fill.histogram="black", col.histogram="NA",
background.title="white",
col.frame="white", col.axis="black",
col="black", col.title="black")
plotTracks(dt, from=122929275, to=122930122, strand="-")
Plot data with Gviz and trackViewer. Please note that trackViewer can generate similar figure as Gviz with several lines of simple codes.
trackViewer not only has the functionalities to produce the figures generated by Gviz, as shown in the Figure above, but also provides additional plotting styles as shown in the Figure below. The mimimalist design requires minimum input from the users while retaining the flexibility to change the output style easily.
gr <- GRanges("chr1", IRanges(c(1, 6, 10), c(3, 6, 12)), score=c(3, 4, 1))
dt <- DataTrack(range=gr, data="score", type="hist")
plotTracks(dt, from=2, to=11)
tr <- new("track", dat=gr, type="data", format="BED")
viewTracks(trackList(tr), chromosome="chr1", start=2, end=11)
Plot data with Gviz and trackViewer. Note that trackViewer is not only including more details but also showing all the data involved in the given range.
Gviz requires huge memory space to handle big wig files. To solve this problem, we rewrote the import function in trackViewer by importing the entire file first and parsing it later when plot. As a result, trackViewer decreases the import time from 180 min to 21 min and the memory cost from 10G to 5.32G for a half giga wig file (GSM917672).
Browse
Steps of using trackViewer
Step 1. Import data
The function importScore is used to import BED, WIG, bedGraph or BigWig files. The function importBam is employed to import the bam files. Here is an example.
library(trackViewer)
extdata <- system.file("extdata", package="trackViewer",
mustWork=TRUE)
repA <- importScore(file.path(extdata, "cpsf160.repA_-.wig"),
file.path(extdata, "cpsf160.repA_+.wig"),
format="WIG")
## Because the wig file does not contain any strand info,
## we need to set it manually.
strand(repA$dat) <- "-"
strand(repA$dat2) <- "+"The function coverageGR could be used to calculate the coverage after the data is imported.
fox2 <- importScore(file.path(extdata, "fox2.bed"), format="BED",
ranges=GRanges("chr11", IRanges(122830799, 123116707)))
dat <- coverageGR(fox2$dat)
## We can split the data by strand into two different track channels
## Here, we set the dat2 slot to save the negative strand info.
fox2$dat <- dat[strand(dat)=="+"]
fox2$dat2 <- dat[strand(dat)=="-"]Step 2. Build the gene model
The gene model can be built for a given genomic range using geneModelFromTxdb function which uses the TranscriptDb object as the input.
library(TxDb.Hsapiens.UCSC.hg19.knownGene)
library(org.Hs.eg.db)
gr <- GRanges("chr11", IRanges(122929275, 122930122), strand="-")
trs <- geneModelFromTxdb(TxDb.Hsapiens.UCSC.hg19.knownGene,
org.Hs.eg.db,
gr=gr)Users can generate a track object with the geneTrack function by inputting a TxDb and a list of gene Entrez IDs. Entrez IDs can be obtained from other types of gene IDs such as gene symbol by using the ID mapping function. For example, to generate a track object given gene FMR1 and human TxDb, refer to the code below.
entrezIDforFMR1 <- get("FMR1", org.Hs.egSYMBOL2EG)
theTrack <- geneTrack(entrezIDforFMR1,TxDb.Hsapiens.UCSC.hg19.knownGene)[[1]]Step 3. View the tracks
Use viewTracks function to plot data and annotation information along genomic coordinates. addGuideLine or addArrowMark can be used to highlight a specific region.
viewerStyle <- trackViewerStyle()
setTrackViewerStyleParam(viewerStyle, "margin", c(.1, .05, .02, .02))
trackList <- trackList(repA, fox2, trs)
vp <- viewTracks(trackList,
gr=gr, viewerStyle=viewerStyle,
autoOptimizeStyle=TRUE)
addGuideLine(c(122929767, 122929969), vp=vp)
addArrowMark(list(x=122929650,
y=2), # 2 means track 2 from the bottom.
label="label",
col="blue",
vp=vp)
plot data and annotation information along genomic coordinates
For more details, please refer vignette changeTracksStyles.
Generate and edit an interactive plot using the browseTracks function
As shown above, figures produced by trackViewer are highly customizable, allowing users to alter the label, symbol, color, and size with various functions.
For users who prefer to modify the look and feel of a figure interactively, they can use the function browseTracks to draw interactive tracks, leveraging the htmlwidgets package.
browseTracks(trackList, gr=gr)interactive tracks
The videos at https://youtu.be/lSmeTu4WMlc and https://youtu.be/lvF0tnJiHQI illustrate how to generate and modify an interactive plot. Please note that the interactive feature is only fully implemented in version 1.19.14 or later.
Plot multiple genes in one track
library(TxDb.Hsapiens.UCSC.hg19.knownGene)
library(org.Hs.eg.db)
grW <- parse2GRanges("chr11:122,830,799-123,116,707")
ids <- getGeneIDsFromTxDb(grW, TxDb.Hsapiens.UCSC.hg19.knownGene)
symbols <- mget(ids, org.Hs.egSYMBOL)
genes <- geneTrack(ids, TxDb.Hsapiens.UCSC.hg19.knownGene,
symbols, asList=FALSE)
optSty <- optimizeStyle(trackList(repA, fox2, genes), theme="safe")
trackListW <- optSty$tracks
viewerStyleW <- optSty$style
viewTracks(trackListW, gr=grW, viewerStyle=viewerStyleW)
Plot multiple genes in one track
Operators
If you are interested in drawing a combined track from two input tracks, e.g, adding or substractiong one from the other, then you can try one of the operators such as + and - as showing below.
newtrack <- repA
## Must keep the same format for dat and dat2
newtrack <- parseWIG(newtrack, "chr11", 122929275, 122930122)
newtrack$dat2 <- newtrack$dat
newtrack$dat <- fox2$dat2
setTrackStyleParam(newtrack, "color", c("#4A95E0", "#CF5D6D"))
viewTracks(trackList(newtrack, trs),
gr=gr, viewerStyle=viewerStyle, operator="+")
show data with operator “+”
viewTracks(trackList(newtrack, trs), gr=gr, viewerStyle=viewerStyle, operator="-")
show data with operator “-”
Multiple operators are acceptable.
viewTracks(trackList(newtrack, newtrack, newtrack, trs), gr=gr, viewerStyle=viewerStyle, operator=c(NA, "-", "+"))
show data with multiple operators
Alternatively, you can try GRoperator before viewing tracks.
newtrack$dat <- GRoperator(newtrack$dat, newtrack$dat2, col="score", operator="-")
newtrack$dat2 <- GRanges()
viewTracks(trackList(newtrack, trs), gr=gr, viewerStyle=viewerStyle)show data with operator “-”
Lolliplot
The lolliplot function is for the visualization of the methylation/variant/mutation data. For more details, please refer vignette lollipopPlot.
library(trackViewer)
features <- GRanges("chr1", IRanges(c(1, 501, 1001),
width=c(120, 400, 405),
names=paste0("block", 1:3)),
fill = c("#FF8833", "#51C6E6", "#DFA32D"),
height = c(0.02, 0.05, 0.08))
SNP <- c(10, 100, 105, 108, 400, 410, 420, 600, 700, 805, 840, 1400, 1402)
sample.gr <- GRanges("chr1", IRanges(SNP, width=1, names=paste0("snp", SNP)),
color = sample.int(6, length(SNP), replace=TRUE),
score = sample.int(5, length(SNP), replace = TRUE))
lolliplot(sample.gr, features)
Dandelion Plot
Dandelion Plot is used to plot high dense of mutation/methylation data. For more details, please refer vignette dandelionPlot.
library(trackViewer)
library(TxDb.Hsapiens.UCSC.hg19.knownGene)
library(org.Hs.eg.db)
methy <- import(system.file("extdata", "methy.bed", package="trackViewer"), "BED")
gr <- GRanges("chr22", IRanges(50968014, 50970514, names="TYMP"))
trs <- geneModelFromTxdb(TxDb.Hsapiens.UCSC.hg19.knownGene,
org.Hs.eg.db,
gr=gr)
features <- c(range(trs[[1]]$dat), range(trs[[5]]$dat))
names(features) <- c(trs[[1]]$name, trs[[5]]$name)
features$fill <- c("lightblue", "mistyrose")
features$height <- c(.02, .04)
dandelion.plot(methy, features, ranges=gr, type="pin")
Plot chromatin interactions data
Plot chromatin interactions heatmap as tracks. For more details, please refer vignette plotInteractionData.
library(InteractionSet)
gi <- readRDS(system.file("extdata", "nij.chr6.51120000.53200000.gi.rds", package="trackViewer"))
head(gi)## GInteractions object with 6 interactions and 1 metadata column:
## seqnames1 ranges1 seqnames2 ranges2 | score
## <Rle> <IRanges> <Rle> <IRanges> | <numeric>
## [1] chr6 51120000-51160000 --- chr6 51120000-51160000 | 45.1227
## [2] chr6 51120000-51160000 --- chr6 51160000-51200000 | 35.0006
## [3] chr6 51120000-51160000 --- chr6 51200000-51240000 | 44.7322
## [4] chr6 51120000-51160000 --- chr6 51240000-51280000 | 29.3507
## [5] chr6 51120000-51160000 --- chr6 51280000-51320000 | 38.8417
## [6] chr6 51120000-51160000 --- chr6 51320000-51360000 | 31.7063
## -------
## regions: 53 ranges and 0 metadata columns
## seqinfo: 1 sequence from an unspecified genome; no seqlengthsrange <- GRanges("chr6", IRanges(51120000, 53200000))
tr <- gi2track(gi)
ctcf <- readRDS(system.file("extdata", "ctcf.sample.rds",
package="trackViewer"))
## change the color
setTrackStyleParam(tr, "breaks",
c(seq(from=0, to=50, by=10), 200))
setTrackStyleParam(tr, "color",
c("lightblue", "yellow", "red"))
viewTracks(trackList(ctcf, tr, heightDist=c(1, 3)), gr=range,
autoOptimizeStyle = TRUE)
Ideogram Plot
Plot ideograms with a list of chromosomes and a genome.
ideo <- loadIdeogram("hg38", chrom=c("chr1", "chr3", "chr4", 'chr21', "chr22"))dataList <- trim(ideo)
dataList$score <- as.numeric(as.factor(dataList$gieStain))
dataList <- dataList[dataList$gieStain!="gneg"]
dataList <- GRangesList(dataList)
ideogramPlot(ideo, dataList,
layout=list("chr1", c("chr3", "chr22"),
c("chr4", "chr21")))Web application of trackViewer
We created a web application of trackViewer (available in 1.19.14 or later) by leveraging the R package Shiny. The web application of trackViewer and sample data are available at https://github.com/jianhong/trackViewer.documentation/tree/master/trackViewerShinyApp. Here is a demo on how to to use the web application at https://www.nature.com/articles/s41592-019-0430-y#Sec2 Supplementary Video 5.
Session Info
sessionInfo()R version 4.3.0 RC (2023-04-13 r84269) Platform: x86_64-pc-linux-gnu (64-bit) Running under: Ubuntu 22.04.2 LTS
Matrix products: default BLAS: /home/biocbuild/bbs-3.17-bioc/R/lib/libRblas.so LAPACK: /usr/lib/x86_64-linux-gnu/lapack/liblapack.so.3.10.0
locale: [1] LC_CTYPE=en_US.UTF-8 LC_NUMERIC=C
[3] LC_TIME=en_GB LC_COLLATE=C
[5] LC_MONETARY=en_US.UTF-8 LC_MESSAGES=en_US.UTF-8
[7] LC_PAPER=en_US.UTF-8 LC_NAME=C
[9] LC_ADDRESS=C LC_TELEPHONE=C
[11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C
time zone: America/New_York tzcode source: system (glibc)
attached base packages: [1] grid stats4 stats graphics grDevices utils datasets [8] methods base
other attached packages: [1] InteractionSet_1.28.0
[2] motifStack_1.44.1
[3] httr_1.4.6
[4] VariantAnnotation_1.46.0
[5] Rsamtools_2.16.0
[6] Biostrings_2.68.1
[7] XVector_0.40.0
[8] SummarizedExperiment_1.30.1
[9] MatrixGenerics_1.12.0
[10] matrixStats_0.63.0
[11] org.Hs.eg.db_3.17.0
[12] TxDb.Hsapiens.UCSC.hg19.knownGene_3.2.2 [13] GenomicFeatures_1.52.0
[14] AnnotationDbi_1.62.1
[15] Biobase_2.60.0
[16] Gviz_1.44.0
[17] rtracklayer_1.60.0
[18] trackViewer_1.36.2
[19] GenomicRanges_1.52.0
[20] GenomeInfoDb_1.36.0
[21] IRanges_2.34.0
[22] S4Vectors_0.38.1
[23] BiocGenerics_0.46.0
loaded via a namespace (and not attached): [1] BiocIO_1.10.0 bitops_1.0-7
[3] filelock_1.0.2 R.oo_1.25.0
[5] tibble_3.2.1 graph_1.78.0
[7] XML_3.99-0.14 rpart_4.1.19
[9] DirichletMultinomial_1.42.0 lifecycle_1.0.3
[11] lattice_0.21-8 ensembldb_2.24.0
[13] MASS_7.3-60 backports_1.4.1
[15] magrittr_2.0.3 Hmisc_5.1-0
[17] sass_0.4.6 rmarkdown_2.21
[19] jquerylib_0.1.4 yaml_2.3.7
[21] plotrix_3.8-2 grImport2_0.2-0
[23] DBI_1.1.3 CNEr_1.36.0
[25] RColorBrewer_1.1-3 ade4_1.7-22
[27] zlibbioc_1.46.0 R.utils_2.12.2
[29] AnnotationFilter_1.24.0 biovizBase_1.48.0
[31] RCurl_1.98-1.12 nnet_7.3-19
[33] pracma_2.4.2 rappdirs_0.3.3
[35] GenomeInfoDbData_1.2.10 grImport_0.9-7
[37] seqLogo_1.66.0 BiocStyle_2.28.0
[39] annotate_1.78.0 codetools_0.2-19
[41] DelayedArray_0.26.2 xml2_1.3.4
[43] tidyselect_1.2.0 BiocFileCache_2.8.0
[45] base64enc_0.1-3 GenomicAlignments_1.36.0
[47] jsonlite_1.8.4 ellipsis_0.3.2
[49] Formula_1.2-5 tools_4.3.0
[51] progress_1.2.2 strawr_0.0.91
[53] TFMPvalue_0.0.9 Rcpp_1.0.10
[55] glue_1.6.2 gridExtra_2.3
[57] xfun_0.39 dplyr_1.1.2
[59] BiocManager_1.30.20 fastmap_1.1.1
[61] latticeExtra_0.6-30 rhdf5filters_1.12.1
[63] fansi_1.0.4 caTools_1.18.2
[65] digest_0.6.31 R6_2.5.1
[67] colorspace_2.1-0 Cairo_1.6-0
[69] GO.db_3.17.0 gtools_3.9.4
[71] poweRlaw_0.70.6 jpeg_0.1-10
[73] dichromat_2.0-0.1 biomaRt_2.56.0
[75] RSQLite_2.3.1 R.methodsS3_1.8.2
[77] utf8_1.2.3 generics_0.1.3
[79] data.table_1.14.8 prettyunits_1.1.1
[81] htmlwidgets_1.6.2 S4Arrays_1.0.4
[83] TFBSTools_1.38.0 pkgconfig_2.0.3
[85] gtable_0.3.3 blob_1.2.4
[87] htmltools_0.5.5 ProtGenerics_1.32.0
[89] scales_1.2.1 png_0.1-8
[91] knitr_1.42 rstudioapi_0.14
[93] tzdb_0.4.0 reshape2_1.4.4
[95] rjson_0.2.21 checkmate_2.2.0
[97] curl_5.0.0 cachem_1.0.8
[99] rhdf5_2.44.0 stringr_1.5.0
[101] parallel_4.3.0 foreign_0.8-84
[103] restfulr_0.0.15 pillar_1.9.0
[105] vctrs_0.6.2 dbplyr_2.3.2
[107] xtable_1.8-4 cluster_2.1.4
[109] htmlTable_2.4.1 Rgraphviz_2.44.0
[111] evaluate_0.21 readr_2.1.4
[113] cli_3.6.1 compiler_4.3.0
[115] rlang_1.1.1 crayon_1.5.2
[117] interp_1.1-4 plyr_1.8.8
[119] stringi_1.7.12 deldir_1.0-9
[121] BiocParallel_1.34.1 munsell_0.5.0
[123] lazyeval_0.2.2 Matrix_1.5-4
[125] BSgenome_1.68.0 hms_1.1.3
[127] bit64_4.0.5 ggplot2_3.4.2
[129] Rhdf5lib_1.22.0 KEGGREST_1.40.0
[131] highr_0.10 memoise_2.0.1
[133] bslib_0.4.2 bit_4.0.5