利用ggcorrplot包进行相关性热图绘制超详细注解

library(ggcorrplot)

df <- read.csv("data.csv",
               header = T,
               check.names = F)
df <- na.omit(df)

corr <- cor(df)#计算相关性矩阵
p.mat<- cor_pmat(df)#计算相关性矩阵的P值
#转换格式
cordata <- as.data.frame(corr)
corp <- as.data.frame(p.mat)
#导出数据
write.csv(cordata,"cordata.csv")
write.csv(corp,"corp.csv")

#以下进行可视化工作

ggcorrplot(corr, #相关性矩阵
           method = "square",#绘制图标形状，可为方形或者圆形
           outline.color = "white",#图标的外圈颜色
           tl.srt = F,#是否文本标签字符串旋转
           type = "upper",#确定图样式为上三角
           hc.order=F,#是否进行层次聚类
           lab = F,#添加相关系数
           p.mat = p.mat)#添加P值 

最后绘图显示，注意数据内不能有缺失值，否则会报错