Объединение кластеров в тепловую карту

Question

У меня есть два отдельных кадра данных, из одного из которых я уже создал тепловую карту из первого кадра данных, однако я хочу добавить боковую панель, которая указывает тип семейства, с которым ген фактически связан с ним.

Dataframe 1

BGC1     BGC2    Distance
-----------------------------------------------
BGC31     BGC34     0.6
BGC34     BGC45     0.7
BGC34     BGC53     0.2
BGC53     BGC31     0.8

Dataframe2

BGC1     Association  
----------------------------------
BGC31     Skin Cancer
BGC34     Skin Cancer     
BGC34     Lung Cancer     
BGC53     Liver Cancer

Создание тепловой карты:

p3 <- heatmap.3(comat, scale = "none", trace = "none", col = color,  main="GCF Co-Occurrence Map"
                ,lhei=c(0.5,1),  keysize=0.5, cexRow = 0.60, cexCol = 0.65)

Я хочу создать нечто подобное, где каждый цвет представляет тип кластера генов, связанный с указанным c классом гена:

Answer 1

Посмотрите на раздел «Добавление аннотации на основе дополнительных факторов с использованием RowSideColors» в руководстве по тепловым картам:

https://talgalili.github.io/heatmaply/articles/heatmaply.html#adding - аннотации на основе дополнительных факторов - с использованием rowsidecolors

x  <- as.matrix(datasets::mtcars)
rc <- colorspace::rainbow_hcl(nrow(x))

heatmaply(
  x[, -c(8, 9)],
  seriate = "mean",
  col_side_colors = c(rep(0, 5), rep(1, 4)),
  row_side_colors = x[, 8:9]
)

Результат: