anno <- list(
group = ComplexHeatmap::anno_simple(
x = c("A", "B", "A"),
col = c(A = "#1b9e77", B = "#d95f02"),
which = "column"
)
)
ha <- build_heatmap_annotation(
annotations = anno,
which = "column",
show_annotation_name = TRUE,
annotation_name_side = "left",
params = list(gap = grid::unit(1, "mm"))
)
ha
Run the code above in your browser using DataLab