嵌套热图与ggcorrplot

Question

我的数据集有两个变量，即治疗和特质。我想制作一个相关热图，显示每个治疗之间的关系，嵌套在特征中。我不确定我是否使用了正确的术语，所以这里有一个例子。

这是使用ggcorrplot()和mtcars数据集的常规关联热图。

library(ggcorrplot)    

data(mtcars)

corr <- round(cor(mtcars), 1)

ggcorrplot(corr,hc.order = TRUE, type = "upper",
           outline.col = "white")

现在我在该数据集中添加了另一列，名为＆＃39; var＆＃39;。

    var<-data.frame(var = sample(c("a", "b", "c",'d','e'), 32, replace = TRUE))

    mtcars<-cbind(mtcars, var)

    head(mtcars)

#                   mpg cyl disp  hp drat    wt  qsec vs am gear carb var
#Mazda RX4         21.0   6  160 110 3.90 2.620 16.46  0  1    4    4   c
#Mazda RX4 Wag     21.0   6  160 110 3.90 2.875 17.02  0  1    4    4   c
#Datsun 710        22.8   4  108  93 3.85 2.320 18.61  1  1    4    1   d
#Hornet 4 Drive    21.4   6  258 110 3.08 3.215 19.44  1  0    3    1   b
#Hornet Sportabout 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2   c
#Valiant           18.1   6  225 105 2.76 3.460 20.22  1  0    3    1   b

如何在图中包含var列的单独关联？几乎像facet_wrap()类型的移动......？

以下是一个示例：