如何仅对树形图中的叶节点标签进行颜色编码？

Question

我正在尝试仅对树形图中的叶节点标签进行颜色编码。我发现这个stackoverflow帖子最接近我想要做的事情

Label and color leaf dendrogram

Tal Galili的答案很有用，但是如果我想要将组标签附加到叶节点标签上，我需要做什么，并且根据他们的团体会员资格？

所以使用Galili的代码

sample = data.frame(matrix(floor(abs(rnorm(20000)*100)),ncol=200))
groupCodes <- c(rep("Cont",25), rep("Tre1",25), rep("Tre2",25), 
rep("Tre3",25))

而不是根据组标签将rownames设为唯一

rownames(sample) <- make.unique(groupCodes)

如果它们都是独一无二的，例如

set.seed(123)
groupLabel <- rnorm(100,0,1)
rownames(sample) <- groupLabel

如何将唯一的rownames保留为我的节点标签，并根据组成员身份对其进行着色（在这里它将是＆＃34; groupCodes＆＃34;在Galili的代码中）？