This package is deprecated, see the updated version on https://github.com/TickingClock1992/RIdeogram.

---

setwd("inst/example")
karyotype <- read.table("karyotype.txt", sep = "\t", header = T, stringsAsFactors = F)
mydata <- read.table("data_1.txt", sep = "\t", header = T, stringsAsFactors = F)
mydata_interval <- read.table("data_2.txt", sep = "\t", header = T, stringsAsFactors = F)

require(ideogram)

svgfile <- tempfile(fileext = ".svg")
pdffile <- tempfile(fileext = ".pdf")

ideogram(karyotype, mydata, mydata_interval, svgfile)

svg2pdf(svgfile, pdffile)

## Saving 7 x 7 in image

p <- pdf2ggplot(pdffile)

p + ggplot2::labs(title = "ideogram", subtitle = "with overlaid data")