## Loading required package: stats4
## Loading required package: BiocGenerics
##
## Attaching package: 'BiocGenerics'
## The following objects are masked from 'package:stats':
##
## IQR, mad, sd, var, xtabs
## The following objects are masked from 'package:base':
##
## anyDuplicated, append, as.data.frame, basename, cbind, colnames,
## dirname, do.call, duplicated, eval, evalq, Filter, Find, get, grep,
## grepl, intersect, is.unsorted, lapply, Map, mapply, match, mget,
## order, paste, pmax, pmax.int, pmin, pmin.int, Position, rank,
## rbind, Reduce, rownames, sapply, setdiff, sort, table, tapply,
## union, unique, unsplit, which.max, which.min
## Loading required package: S4Vectors
##
## Attaching package: 'S4Vectors'
## The following objects are masked from 'package:base':
##
## expand.grid, I, unname
## Loading required package: IRanges
## Loading required package: GenomeInfoDb
gr.from <- GRanges('X', IRanges(c(10001, 105701383), c(2781479, 116030895)))
gr.to <- GRanges('Y', IRanges(c(30010001, 6887903), c(32781479, 8217415)))
ideo <- ideogRam(organism = "human", chromosomes = c("X", "Y"),
chrHeight = 400, chrMargin = 200, rotatable = FALSE) %>%
# set_option(perspective = "comparative") %>%
show_mapping(from = gr.from,
to = gr.to,
color = "yellow") %>%
add_track(gr.from) %>%
add_track(gr.to) %>%
set_option(annotationsLayout = "overlay")
ideo
## Warning in .Seqinfo.mergexy(x, y): The 2 combined objects have no sequence levels in common. (Use
## suppressWarnings() to suppress this warning.)
ideo %>%
set_option(chromosomes = c("X", "Y")) %>%
show_mapping(color = "green",
from = GRanges(c("X"), IRanges(c(20000000, 20000000), c(30000000, 30000000))),
to = GRanges(c("Y"), IRanges(c(10570133, 30010001), c(19603085, 32781479)))
)
## Warning in .Seqinfo.mergexy(x, y): The 2 combined objects have no sequence levels in common. (Use
## suppressWarnings() to suppress this warning.)