corrplot包里用corrplot函数画相关性热图标注pvalue的星号

以下是用corrplot包中的corrplot函数画相关性热图，标注pvalue的星号的示例代码：

library(corrplot)

# 生成随机数据
set.seed(123)
data <- matrix(rnorm(100), ncol = 10)

# 计算相关系数矩阵
corr <- cor(data)

# 计算相关系数的显著性水平
pval <- cor.mtest(data)$p

# 画相关性热图并标注pvalue的星号
corrplot(corr, method = "color", type = "lower", tl.col = "black", sig.level = 0.05, p.mat = pval, pch.cex = 1.5)

在上述代码中，我们首先生成了一个随机数据矩阵，然后计算了相关系数矩阵和相关系数的显著性水平。接着，我们使用corrplot函数画出了相关性热图，并通过sig.level参数指定显著性水平为0.05，p.mat参数传入相关系数的显著性水平，pch.cex参数指定星号的大小。最终得到的相关性热图中，相关系数显著的格子会用红色或蓝色表示，并在格子右下角标注pvalue的星号