# trackViewer Vignette: overview

#### Jianhong Ou, Lihua Julie Zhu

#### 15 May 2022

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.

- Change the styles of the track plot

- Plot methylation/mutation/variant data by lollipop plot

- 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("blue", "red"))
    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 “-”

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 seqlengths

    range <- 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.2.0 (2022-04-22 ucrt) Platform: x86_64-w64-mingw32/x64 (64-bit) Running under: Windows Server x64 (build 20348)

Matrix products: default

locale: [1] LC_COLLATE=C
[2] LC_CTYPE=English_United States.utf8
[3] LC_MONETARY=English_United States.utf8 [4] LC_NUMERIC=C
[5] LC_TIME=English_United States.utf8

attached base packages: [1] grid stats4 stats graphics grDevices utils datasets [8] methods base

other attached packages: [1] InteractionSet_1.24.0
[2] httr_1.4.3
[3] VariantAnnotation_1.42.1
[4] Rsamtools_2.12.0
[5] Biostrings_2.64.0
[6] XVector_0.36.0
[7] SummarizedExperiment_1.26.1
[8] MatrixGenerics_1.8.0
[9] matrixStats_0.62.0
[10] org.Hs.eg.db_3.15.0
[11] TxDb.Hsapiens.UCSC.hg19.knownGene_3.2.2 [12] GenomicFeatures_1.48.1
[13] AnnotationDbi_1.58.0
[14] Biobase_2.56.0
[15] Gviz_1.40.1
[16] rtracklayer_1.56.0
[17] trackViewer_1.32.1
[18] Rcpp_1.0.8.3
[19] GenomicRanges_1.48.0
[20] GenomeInfoDb_1.32.2
[21] IRanges_2.30.0
[22] S4Vectors_0.34.0
[23] BiocGenerics_0.42.0

loaded via a namespace (and not attached): [1] colorspace_2.0-3 rjson_0.2.21 ellipsis_0.3.2
[4] biovizBase_1.44.0 htmlTable_2.4.0 base64enc_0.1-3
[7] dichromat_2.0-0.1 rstudioapi_0.13 bit64_4.0.5
[10] fansi_1.0.3 xml2_1.3.3 splines_4.2.0
[13] cachem_1.0.6 knitr_1.39 Formula_1.2-4
[16] jsonlite_1.8.0 cluster_2.1.3 dbplyr_2.1.1
[19] png_0.1-7 grImport_0.9-5 graph_1.74.0
[22] BiocManager_1.30.17 compiler_4.2.0 backports_1.4.1
[25] lazyeval_0.2.2 assertthat_0.2.1 Matrix_1.4-1
[28] fastmap_1.1.0 cli_3.3.0 htmltools_0.5.2
[31] prettyunits_1.1.1 tools_4.2.0 gtable_0.3.0
[34] glue_1.6.2 GenomeInfoDbData_1.2.8 dplyr_1.0.9
[37] rappdirs_0.3.3 jquerylib_0.1.4 rhdf5filters_1.8.0
[40] vctrs_0.4.1 xfun_0.31 stringr_1.4.0
[43] lifecycle_1.0.1 ensembldb_2.20.1 restfulr_0.0.13
[46] XML_3.99-0.9 zlibbioc_1.42.0 scales_1.2.0
[49] BiocStyle_2.24.0 BSgenome_1.64.0 ProtGenerics_1.28.0
[52] hms_1.1.1 parallel_4.2.0 rhdf5_2.40.0
[55] AnnotationFilter_1.20.0 RColorBrewer_1.1-3 yaml_2.3.5
[58] curl_4.3.2 memoise_2.0.1 gridExtra_2.3
[61] ggplot2_3.3.6 sass_0.4.1 biomaRt_2.52.0
[64] rpart_4.1.16 latticeExtra_0.6-29 stringi_1.7.6
[67] RSQLite_2.2.14 highr_0.9 BiocIO_1.6.0
[70] plotrix_3.8-2 checkmate_2.1.0 filelock_1.0.2
[73] BiocParallel_1.30.2 rlang_1.0.2 pkgconfig_2.0.3
[76] bitops_1.0-7 evaluate_0.15 lattice_0.20-45
[79] Rhdf5lib_1.18.2 purrr_0.3.4 GenomicAlignments_1.32.0 [82] htmlwidgets_1.5.4 bit_4.0.4 tidyselect_1.1.2
[85] magrittr_2.0.3 R6_2.5.1 generics_0.1.2
[88] Hmisc_4.7-0 DelayedArray_0.22.0 DBI_1.1.2
[91] pillar_1.7.0 foreign_0.8-82 survival_3.3-1
[94] KEGGREST_1.36.0 RCurl_1.98-1.6 nnet_7.3-17
[97] tibble_3.1.7 crayon_1.5.1 utf8_1.2.2
[100] BiocFileCache_2.4.0 rmarkdown_2.14 jpeg_0.1-9
[103] progress_1.2.2 data.table_1.14.2 Rgraphviz_2.40.0
[106] blob_1.2.3 digest_0.6.29 munsell_0.5.0
[109] bslib_0.3.1