hclust

Question

在我的数据集中，变量属于不同的组，我想为每个变量分配颜色：

mycolors <- rep(NA,11)
names(mycolors) <- names(mtcars)
mycolors[1:4]   <- 'green' # mpg, cyl, disp, hp
mycolors[5:9]   <- 'red'   # drat, wt, qsec, vs, am
mycolors[10:11] <- 'blue'  # gear, carb

现在我想建立一个相关矩阵并为标签着色：

M <- cor(mtcars)
corrplot(M, tl.col = mycolors)

这样可以正常使用，但如果我使用hclust订购它，标签会以不同的顺序排列，这会导致颜色错误：

如何在hclust之后获取标签的实际顺序，以便我可以重新分配颜色？我尝试使用以下内容：

myclust <- hclust(dist(M))
myclust$labels[myclust$order]

这使得顺序与原始顺序不同，但仍然与corrplot中使用的顺序不同...

Answer 1

使用here中的想法，您可以重新排序颜色向量，使其符合hclust有序矩阵的顺序。

ord <- corrMatOrder(M, order="hclust")
newcolours <- mycolors[ord]
newcolours
#   carb      wt      hp     cyl    disp    qsec      vs     mpg    drat      am 
# "blue"   "red" "green" "green" "green"   "red"   "red" "green"   "red"   "red" 
#   gear 
# "blue" 
corrplot(M, tl.col = newcolours, order = "hclust")