circlize优雅绘制环状热图

library(tidyverse)
library(circlize)
library(ComplexHeatmap)

df <- read_tsv("data.tsv")

mat1 <- df %>% select(-group) %>% column_to_rownames(var="sample")
df$group <- factor(df$group,levels = df$group %>% unique())
split <- df$group 

col_fun1 = colorRamp2(c(-2,0,2),c("#E18727FF","white","#20854EFF"))

circos.clear()

circos.par(canvas.xlim=c(-1,1),canvas.ylim=c(-0.5,1),
           start.degree = 165,
           start.degree = 0, 
           gap.after=c(2,2,2,200))

circos.heatmap(mat1, split = split,
               col = col_fun1,
               rownames.side="outside",
               track.height = 0.5,
               rownames.col="black",
               rownames.cex=0.5,
               rownames.font=1,
               bg.border = "white",show.sector.labels = F)

circos.track(track.index = get.current.track.index(),
             panel.fun = function(x, y) {
               if(CELL_META$sector.numeric.index == 4) {
                 cn = colnames(mat1)
                 n = length(cn)
                 circos.text(rep(CELL_META$cell.xlim[1],n) + convert_x(45,"mm"),
                             1:n, cn, col="blACK",
                             cex = 0.6, adj = c(0,1),facing = "inside")
               }
             })

circos.trackPlotRegion(ylim = c(0,0.1),track.height = 0.08,
                       panel.fun = function(x, y) {
                         chr = CELL_META$sector.index
                         xlim = CELL_META$xlim
                         ylim = CELL_META$ylim
                         circos.text(mean(xlim),mean(ylim),chr,cex = 1,
                                     col = "black",facing = "outside", niceFacing = F)
                         
                       })

lgd = Legend(title = "expression",col_fun = col_fun1, direction = "horizontal",
             legend_width = unit(8,"cm"))

draw(lgd,x = unit(0.5,"npc"),y = unit(0.95,"npc"))