source("R/plot.R")
source("R/utils.R")
source("R/global.R")
source("R/link.R")
factors = 1:4
par(mar = c(1, 1, 1, 1))
circos.initialize(factors = factors, xlim = c(0, 1))
circos.trackPlotRegion(ylim = c(0, 1), factors = factors, panel.fun = function(x, y, ...) {
circos.text(0.5, 0.5, labels = "abcdefghijklmnopqrstuvwxyz", direction = "arc", adj = c(0.5, 0.5), cex = 1.4)
circos.points(0.5, 0.5, pch = 16, col = "red")
})
par(mar = c(1, 1, 1, 1))
factors = letters[1:4]
circos.initialize(factors = factors, xlim = c(0, 10))
circos.trackPlotRegion(factors = factors, ylim = c(0, 10), track.height = 0.5, panel.fun = function(x, y) {
circos.text(3, 9, "inside", facing = "inside")
circos.text(7, 9, "outside", facing = "outside")
circos.text(10, 5, "reverse.clockwise", facing = "reverse.clockwise")
circos.text(0, 5, "clockwise", facing = "clockwise")
circos.text(5, 5, "downward", facing = "downward")
circos.text(5, 1, "bending", facing = "bending")
})
circos.clear()
par(mar = c(1, 1, 1, 1))
factors = letters[1:4]
circos.initialize(factors = factors, xlim = c(0, 10))
circos.trackPlotRegion(factors = factors, ylim = c(0, 10), track.height = 0.5, panel.fun = function(x, y) {
circos.text(3, 9, "inside", facing = "inside", niceFacing = TRUE)
circos.text(7, 9, "outside", facing = "outside", niceFacing = TRUE)
circos.text(9, 5, "reverse.clockwise", facing = "reverse.clockwise", niceFacing = TRUE)
circos.text(1, 5, "clockwise", facing = "clockwise", niceFacing = TRUE)
circos.text(5, 5, "downward", facing = "downward", niceFacing = TRUE)
circos.text(5, 1, "bending", facing = "bending", niceFacing = TRUE)
})
circos.clear()
###################################################################################
par(mar = c(1, 1, 1, 1), mfrow = c(2, 2), xpd = NA)
factors = letters[1:8]
circos.initialize(factors = factors, xlim = c(0, 10))
circos.trackPlotRegion(factors = factors, ylim = c(0, 10), panel.fun = function(x, y) {
si = get.cell.meta.data("sector.index")
if(si == "f") {
circos.text(5, 5, "facing = 'clockwise'\nadj = c(0, 0.5)", facing = "inside", cex = 0.7)
} else {
circos.points(3, 5, pch = 16, col = "red", cex = 1)
circos.text(3, 5, "rawText", facing = "clockwise", adj = c(0, 0.5), cex = 0.7)
circos.points(7, 5, pch = 16, col = "red", cex = 1)
circos.text(7, 5, "niceFacing", facing = "clockwise", niceFacing = TRUE, adj = c(0, 0.5), cex = 0.7)
}
}, track.height = 0.2)
circos.trackPlotRegion(factors = factors, ylim = c(0, 10), panel.fun = function(x, y) {
si = get.cell.meta.data("sector.index")
if(si == "f") {
circos.text(5, 5, "facing = 'reverse.clockwise'\nadj = c(0, 0.5)", facing = "inside", cex = 0.7)
} else {
circos.points(3, 5, pch = 16, col = "red", cex = 1)
circos.text(3, 5, "rawText", facing = "reverse.clockwise", adj = c(0, 0.5), cex = 0.7)
circos.points(7, 5, pch = 16, col = "red", cex = 1)
circos.text(7, 5, "niceFacing", facing = "reverse.clockwise", niceFacing = TRUE, adj = c(0, 0.5), cex = 0.7)
}
}, track.height = 0.2)
circos.clear()
factors = letters[1:8]
circos.initialize(factors = factors, xlim = c(0, 10))
circos.trackPlotRegion(factors = factors, ylim = c(0, 10), panel.fun = function(x, y) {
si = get.cell.meta.data("sector.index")
if(si == "f") {
circos.text(5, 5, "facing = 'reverse.clockwise'\nadj = c(1, 0.5)", facing = "inside", cex = 0.7)
} else {
circos.points(3, 5, pch = 16, col = "red", cex = 1)
circos.text(3, 5, "rawText", facing = "reverse.clockwise", adj = c(1, 0.5), cex = 0.7)
circos.points(7, 5, pch = 16, col = "red", cex = 1)
circos.text(7, 5, "niceFacing", facing = "reverse.clockwise", niceFacing = TRUE, adj = c(1, 0.5), cex = 0.7)
}
}, track.height = 0.2)
circos.trackPlotRegion(factors = factors, ylim = c(0, 10), panel.fun = function(x, y) {
si = get.cell.meta.data("sector.index")
if(si == "f") {
circos.text(5, 5, "facing = 'clockwise'\nadj = c(1, 0.5)", facing = "inside", cex = 0.7)
} else {
circos.points(3, 5, pch = 16, col = "red", cex = 1)
circos.text(3, 5, "rawText", facing = "clockwise", adj = c(1, 0.5), cex = 0.7)
circos.points(7, 5, pch = 16, col = "red", cex = 1)
circos.text(7, 5, "niceFacing", facing = "clockwise", niceFacing = TRUE, adj = c(1, 0.5), cex = 0.7)
}
}, track.height = 0.2)
circos.clear()
factors = letters[1:8]
circos.initialize(factors = factors, xlim = c(0, 10))
circos.trackPlotRegion(factors = factors, ylim = c(0, 10), panel.fun = function(x, y) {
si = get.cell.meta.data("sector.index")
if(si == "f") {
circos.text(5, 5, "facing = 'inside'\nadj = c(0.5, 0)", facing = "inside", cex = 0.7)
} else {
circos.points(5, 3, pch = 16, col = "red", cex = 1)
circos.text(5, 3, "rawText", facing = "inside", adj = c(0.5, 0), cex = 0.7)
circos.points(5, 7, pch = 16, col = "red", cex = 1)
circos.text(5, 7, "niceFacing", facing = "inside", niceFacing = TRUE, adj = c(0.5, 0), cex = 0.7)
}
}, track.height = 0.2)
circos.trackPlotRegion(factors = factors, ylim = c(0, 10), panel.fun = function(x, y) {
si = get.cell.meta.data("sector.index")
if(si == "f") {
circos.text(5, 5, "facing = 'outside'\nadj = c(0.5, 0)", facing = "inside", cex = 0.7)
} else {
circos.points(5, 3, pch = 16, col = "red", cex = 1)
circos.text(5, 3, "rawText", facing = "outside", adj = c(0.5, 0), cex = 0.7)
circos.points(5, 7, pch = 16, col = "red", cex = 1)
circos.text(5, 7, "niceFacing", facing = "outside", niceFacing = TRUE, adj = c(0.5, 0), cex = 0.7)
}
}, track.height = 0.2)
circos.clear()
factors = letters[1:8]
circos.initialize(factors = factors, xlim = c(0, 10))
circos.trackPlotRegion(factors = factors, ylim = c(0, 10), panel.fun = function(x, y) {
si = get.cell.meta.data("sector.index")
if(si == "f") {
circos.text(5, 5, "facing = 'outside'\nadj = c(0.5, 1)", facing = "inside", cex = 0.7)
} else {
circos.points(5, 3, pch = 16, col = "red", cex = 1)
circos.text(5, 3, "rawText", facing = "outside", adj = c(0.5, 1), cex = 0.7)
circos.points(5, 7, pch = 16, col = "red", cex = 1)
circos.text(5, 7, "niceFacing", facing = "outside", niceFacing = TRUE, adj = c(0.5, 1), cex = 0.7)
}
}, track.height = 0.2)
circos.trackPlotRegion(factors = factors, ylim = c(0, 10), panel.fun = function(x, y) {
si = get.cell.meta.data("sector.index")
if(si == "f") {
circos.text(5, 5, "facing = 'inside'\nadj = c(0.5, 1)", facing = "inside", cex = 0.7)
} else {
circos.points(5, 3, pch = 16, col = "red", cex = 1)
circos.text(5, 3, "rawText", facing = "inside", adj = c(0.5, 1), cex = 0.7)
circos.points(5, 7, pch = 16, col = "red", cex = 1)
circos.text(5, 7, "niceFacing", facing = "inside", niceFacing = TRUE, adj = c(0.5, 1), cex = 0.7)
}
}, track.height = 0.2)
circos.clear()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.