Я пытаюсь построить дендрограмму с гистограммой, представляющей классы листьев.
Пример можно воспроизвести с помощью этого простого кода
library(WGCNA)
dat <- data.frame('label'=c('b','r', 'r', 'r'))
data <- data.frame(c(10,2,3,4), c(30, 3,4,5), c(50,1,2,3))
rownames(data) <- c("s1", "s2", "s3", "s4")
rownames(dat) <- rownames(data)
tree = hclust(dist(data), method = "average")
traitColors = labels2colors(dat);
pdf("sample.pdf", width=10)
plotDendroAndColors(tree, traitColors,
groupLabels = c('label'),
main = "Network dendrogram and trait heatmap",
dendroLabels=FALSE,
rowText=dat,
addTextGuide=TRUE)
dev.off()
Я бы хотел добавить легенду, объясняющую цвета строки текста. Что-то похожее на то, что делается здесь с другими пакетами Как маркировать цветные полосы в дендрограмме
Как это можно сделать?