Я нашел обходной путь.Я посмотрел файл цитобанда для hg19 (http://hgdownload.cse.ucsc.edu/goldenpath/hg19/database/cytoBand.txt.gz) и создал data.frame
той же структуры, содержащей информацию для S. cerevisiae хромосомы I.
cyto.bands <- data.frame(chrom = rep("chrI", 4),
chromStart = c(0, 148071, 151524, 154977),
chromEnd = c(148071, 151524, 154977, 230218),
name = c(NA, "CEN1", "CEN1", NA),
gieStain = c("gneg", "acen", "acen", "gneg"))
Для правильной печати центромеры необходимо указать две строки с gieStain = "acen"
и достаточным расстоянием между начальной и конечной координатами.
Затем можно создать и построить объект Gviz IdeogramTrack.
library(Gviz)
ideogram.track <- IdeogramTrack(chromosome = "chrI", genome = "sacCer3", bands = cyto.bands)
plotTracks(ideogram.track, from = 180e3, to = 220e3)
дает этот результат.