以下是circlize包绘制的几个图形示例。
circular scatterplot
library(circlize)
# 模拟数据集
data = data.frame(
factor = sample(letters[1:8], 1000, replace = TRUE),
x = rnorm(1000),
y = runif(1000)
)
circos.initialize( factors=data$factor, x=data$x )
# 创建区域
circos.trackPlotRegion(factors = data$factor, y = data$y, panel.fun = function(x, y) {
circos.axis()
})
# 添加散点
circos.trackPoints(data$factor, data$x, data$y, col = "blue", pch = 16, cex