如何从使用 GGally 完成的相关矩阵中删除“Corr”文本？

问题描述

我已将以下代码用于相关矩阵

library(ggplot2)
library(Ggally)
ggpairs(CorrelationBINA,title="Correlation matrix of BINA dhan7",upper = list(continuous= wrap("cor",size = 10)),lower = list(continuous ="smooth"))

并得到以下 Correlation matrix。从矩阵的上三角中，我想去掉“Corr”这个词，只保留相关值。

解决方法

这需要一个用户定义的函数，计算相关性，四舍五入到两位小数，然后显示此文本而不是具有“Corr”项的相关值默认值：

#This function identifies correlation for each pair of variables that will go into ggpairs command written later

cor_func <- function(data,mapping,method,...){
  x <- eval_data_col(data,mapping$x)
  y <- eval_data_col(data,mapping$y)
  
  corr <- cor(x,y,method=method,use='complete.obs')
  
  
  ggally_text(
    label = as.character(round(corr,2)),mapping = aes(),xP = 0.5,yP = 0.5,color = 'black',...
  )
}


ggpairs(iris[-5],upper = list(continuous = wrap(cor_func,method = 'spearman')))

correlation ggally