col_fun1 = colorRamp2(c(-2, 0, 2), c("#26B9CB", "#FFFFFF", "#B72865"))##設置熱圖顏色
column_od = hclust(dist(t(mat1)))$order #對列聚類
circos.par(gap.after = c(10))##為添加列名留出空間
circos.heatmap(mat1[, column_od], ##將列聚類后重新排序的矩陣
col = col_fun1, ##設置顏色
dend.side = "inside",##樹狀圖在圈內
rownames.side = "outside",##行名在圈外
dend.track.height = 0.2,
dend.callback = function(dend, m, si) {
# when k = 1, it renders one same color for the whole dendrogram
color_branches(dend, k = 4, col = 2:5)##對樹狀圖進行著色
}
)
circos.track(track.index = 2, ##將列名添加在第二個軌道（就是熱圖所在的環形軌道）
panel.fun = function(x, y) {
if(CELL_META$sector.numeric.index == 1) { # the last sector
cn = colnames(mat1[, column_od])##取得列名
n = length(cn)
circos.text(rep(CELL_META$cell.xlim[2], n) + convert_x(1, "mm"), ##x軸坐標
1:n - convert_y(0.5, "mm"), ##y軸坐標
cn, ##輸入要展示的列名
cex = 0.25, ##列名的大小
adj = c(0, 0.5),
facing = "inside")
}
}, bg.border = NA)
circos.clear()
```
圖2
2> 修改文字的大小（rownames.cex）。字體（rownames.font）和顏色（rownames.col），使用代碼4，結果見圖3。
```
##代碼4
col_fun1 = colorRamp2(c(-2, 0, 2), c("#26B9CB", "#FFFFFF", "#B72865"))##設置熱圖顏色
column_od = hclust(dist(t(mat1)))$order #對列聚類
circos.par(gap.after = c(15))##為添加列名留出空間
circos.heatmap(mat1[, column_od], ##將列聚類后重新排序的矩陣
col = col_fun1, ##設置顏色
dend.side = "inside",##樹狀圖在圈內
rownames.side = "outside",##行名在圈外
rownames.col = 1:nrow(mat1) %% 10 + 1,##行名添加顏色
rownames.cex = runif(nrow(mat1), min = 0.3, max = 2),##行名的大小
rownames.font = 1:nrow(mat1) %% 4 + 1,##行名字體
dend.track.height = 0.2,
dend.callback = function(dend, m, si) {
# when k = 1, it renders one same color for the whole dendrogram
color_branches(dend, k = 4, col = 2:5)##對樹狀圖進行著色
}
)
circos.track(track.index = 2, ##將列名添加在第二個軌道（就是熱圖所在的環形軌道）
panel.fun = function(x, y) {
if(CELL_META$sector.numeric.index == 1) { # the last sector
cn = colnames(mat1[, column_od])##取得列名
n = length(cn)
circos.text(rep(CELL_META$cell.xlim[2], n) + convert_x(1, "mm"), ##x軸坐標
1:n - convert_y(0.5, "mm"), ##y軸坐標
cn, ##輸入要展示的列名
cex = 0.25, ##列名的大小
adj = c(0, 0.5),
facing = "inside")
}
}, bg.border = NA)
circos.clear()
```
圖3
參考文獻