Heatmap with Group Variables

library(ggalign)
#> Loading required package: ggplot2
#> 
#> Attaching package: 'ggalign'
#> The following object is masked from 'package:ggplot2':
#> 
#>     element_polygon

set.seed(123)
# Prepare heatmap matrix
mat <- matrix(
    rnorm(100, mean = 0, sd = 2),
    nrow = 10, ncol = 10,
    dimnames = list(paste0("G", 1:10), paste0("S", 1:10))
)

ggheatmap(mat) +
    anno_top() +
    align_group(sample(letters[1:4], ncol(mat), replace = TRUE))
#> → heatmap built with `geom_tile()`