Vline Track displays vertical lines in the given positions (i.e. width-one GRanges).
suppressPackageStartupMessages({ library(TnT) library(GenomicFeatures) }) set.seed(42)
pos <- IRanges(start = sample(1:1000, 6), width = 1) colors <- c("red", "yellow", "green", "cyan", "blue", "magenta") vltrack <- TnT::VlineTrack(pos,tooltip = data.frame(Position = start(pos), Color = colors), color = colors, label = NULL) TnTBoard(vltrack)
sessionInfo()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.