if (FALSE) {
segs = data.frame(chrom = c(1,4,5,5,10,10),
start = c(100,50,20,80,10,50),
end = c(120,100,25,100,70,120),
IBD = c("paternal","maternal"))
cols = c(paternal = "blue", maternal = "red")
karyoHaploid(segs, col = "cyan")
karyoHaploid(segs, colBy = "IBD", col = cols)
# Note difference if `separate = FALSE`
karyoHaploid(segs, colBy = "IBD", col = cols, separate = FALSE)
# Reduce alpha to see the overlaps:
karyoHaploid(segs, colBy = "IBD", col = cols, separate = FALSE, alpha = 0.7)
}
Run the code above in your browser using DataLab