R相关性图如何按比例显示相关系数

#加载corrplot包
library(corrplot)
#计算相关系数矩阵
M <- cor(mtcars)
#绘制对称圆圈图，显示相关系数，大小都为1
corrplot(M, method = "circle",
         number.cex = 1,
         addCoef.col="black"
)

#根据相关系数的大小M来设置字体的大小
#因为M有正有负，这里用abs取绝对值
corrplot(M, method = "circle",
         number.cex = abs(M),
         addCoef.col="black"
         )

#设置type = "upper"就可以画出上三角
#设置成lower就可以画下三角
corrplot(M, method = "circle",
         type = "upper",
         number.cex = abs(M),
         addCoef.col="black"
)

#一共有66个圆圈，先全部把大小设置成0.1，几乎看不到
#然后把前三个的大小改大一些，看看那几个系数的大小有变化，
#从而确定顺序
size=rep(0.1,66)
size[1]=1
size[2]=0.5
size[3]=1
corrplot(M, method = "circle",
         type = "upper",
         number.cex = size,
         addCoef.col="black"
)

#申明一个空变量来装size的大小
size=c()
#循环按列来获取相关系数，第一列取前一个，第二列取前两个
#依次类推
for(i in 1:ncol(M)){
  size=c(size,M[1:i,i])
}
size=as.numeric(size)

corrplot(M, method = "circle",
         type = "upper",
         number.cex = abs(size),
         addCoef.col="black"
)