注：所用r包rcompanion、corrplot

相关性分析

library(rcompanion)
cor_result <- rcorr(as.matrix(adam[,c(5,7,9,11,13)]), type = "spearman")
cor_matrix <- cor_result$r #相关性矩阵
p_value_matrix <- cor_result$P #p值矩阵

绘图代码

library(corrplot)
corrplot(cor_matrix, 
         method = "circle", 
         type = "upper", 
         tl.col = "black", 
         tl.srt = 45,
         p.mat = p_value_matrix,  # 添加p值矩阵
         addCoef.col="black",#添加r值并显示为黑色
         number.cex=1,#r值显示大小
         sig.level = 0.05,        # 显示显著性水平
         insig = "label_sig",
         pch.cex=1,
         pch.col = "red")     # 显示显著性标记

图形举例