【原创】大数据部落——中国专业的第三方数据服务提供商
提供定制化的一站式数据挖掘和统计分析报告咨询服务：y0.cn/teradat（咨询服务请联系官网客服） circos.text(-1, 0.5, \circos.text(1, 0.5, \bg.col <- rep(c(\circos.trackHist(a$factors, a$x, bg.col = bg.col, col = NA) circos.trackPlotRegion(factors = a$factors, x = a$x, y = a$y, panel.fun = function(x, y) { grey = c(\ sector.index = get.cell.meta.data(\ xlim = get.cell.meta.data(\ ylim = get.cell.meta.data(\ circos.text(mean(xlim), mean(ylim), sector.index) circos.points(x[1:10], y[1:10], col = \ circos.points(x[11:20], y[11:20], col = \# update第2个track中标记为d的sector circos.updatePlotRegion(sector.index = \circos.points(x = -2:2, y = rep(0, 5)) xlim <- get.cell.meta.data(\ylim <- get.cell.meta.data(\circos.text(mean(xlim), mean(ylim), \circos.clear() 【原创】大数据部落——中国专业的第三方数据服务提供商
提供定制化的一站式数据挖掘和统计分析报告咨询服务：y0.cn/teradat（咨询服务请联系官网客服）
接下来绘制第四个track
par(mar = c(1, 1, 1, 1), lwd = 0.1, cex = 0.6) circos.par(track.height = 0.1) circos.initialize(factors = a$factors, x = a$x) circos.trackPlotRegion(factors = a$factors, y = a$y, panel.fun = function(x, y) { circos.axis()}) col <- rep(c(\circos.trackPoints(a$factors, a$x, a$y, col = col, pch = 16, cex = 0.5) circos.text(-1, 0.5, \circos.text(1, 0.5, \circos.trackPoints(a$factors, a$x, a$y, col = col, pch = 16, cex = 0.5) 【原创】大数据部落——中国专业的第三方数据服务提供商
提供定制化的一站式数据挖掘和统计分析报告咨询服务：y0.cn/teradat（咨询服务请联系官网客服） circos.text(-1, 0.5, \circos.text(1, 0.5, \bg.col <- rep(c(\circos.trackHist(a$factors, a$x, bg.col = bg.col, col = NA) circos.trackPlotRegion(factors = a$factors, x = a$x, y = a$y, panel.fun = function(x, y) { grey = c(\ sector.index = get.cell.meta.data(\ xlim = get.cell.meta.data(\ ylim = get.cell.meta.data(\ circos.text(mean(xlim), mean(ylim), sector.index) circos.points(x[1:10], y[1:10], col = \ circos.points(x[11:20], y[11:20], col = \# update第2个track中标记为d的sector circos.updatePlotRegion(sector.index = \circos.points(x = -2:2, y = rep(0, 5)) xlim <- get.cell.meta.data(\ylim <- get.cell.meta.data(\circos.text(mean(xlim), mean(ylim), \circos.clear() circos.trackPlotRegion(factors = a$factors, y = a$y) circos.trackLines(a$factors[1:100], a$x[1:100], a$y[1:100], type = \