R：如何绘制非对称相关图，只显示有意义相关系数

Deepseek也没有解决，还是好好学R代码。

1、读入数据data

2、计算相关系数

cor_result<-corr.test(data,

                method = "pearson") 

# 提取需要的相关系数和p值矩阵

cor_matrix <- cor_result$r [-12:-21,12:21] # 相关系数矩阵

p_value_matrix <- cor_result$p [-12:-21,12:21] # p值矩阵

mm<-range(cor_matrix)  #系数范围

3、绘图，有意义的显示，无意义的相关系数不显示

corrplot::corrplot(cor_matrix,

        is.corr = F,  #非对称矩阵

        method = "color",      # 使用颜色显示相关系数

        type = "upper",        # 只显示上三角矩阵

        tl.col = "black",      # 设置文本颜色

        tl.srt = 45,            # 设置文本旋转角度

        addCoef.col = "black",  # 添加相关系数的数值

        p.mat = p_value_matrix, # 添加p值矩阵

        sig.level = 0.05,      # 显著性水平

        insig = "blank",        # 显示不显著的区域为空白

        diag = FALSE,          # 去掉对角线

        number.cex = 1.2,        # 设置相关系数值的字体大小

        number.font = 2，

      col = COL2('PRGn'))