powered by
scale_fill_giemsa(fill = getOption("biovizBase")$cytobandColor)
getOption("biovizBase")$cytobandColor library(biovizBase) data(hg19IdeogramCyto) p1 <- autoplot(hg19IdeogramCyto, layout = "karyogram", aes(fill = gieStain)) p1 p1 + scale_fill_giemsa()
Run the code above in your browser using DataLab