如何整合两个矩阵的信息使用一个矩阵图R

Question

我有两个矩阵具有相同的维度，列名和行名称如下所示。

data(mtcars) 
M <- cor(mtcars) 

myMat<-matrix(runif(11*11), ncol=11) 

colnames(myMat) <- colnames(M) 
rownames(myMat) <- rownames(M) 

我希望显示使用一个矩阵图两个矩阵，如

corrplot(M, method = "circle") 

我想使一个新的图，其中，圆的颜色是基于M矩阵和大小基于myMat矩阵。 有没有办法在R语言中实现这一点。

Answer 1

转换为长型和情节使用ggplot：

library(ggplot2) 
long <- cbind(as.data.frame.table(M, responseName = "cor"), myMat = c(myMat)) 

ggplot(long, aes(Var1, Var2, col = cor, size = myMat)) + 
    geom_point() + 
    scale_colour_gradient(low = "red", high = "blue") + 
    xlab("") + 
    ylab("") 

，并提供：