将相关分析的matrix转化为包含pvalue和R2的ggplot2格式的文件，以便可视化
suppressMessages(library(PerformanceAnalytics))
suppressMessages(library(Hmisc))
res <- rcorr(as.matrix(data))
flattenCorrMatrix <- function(cormat, pmat) {
ut <- upper.tri(cormat)
rt<-data.frame( row = rownames(cormat)[row(cormat)[ut]],
column = rownames(cormat)[col(cormat)[ut]], cor =(cormat)[ut], p = pmat[ut] )
colnames(rt)<-c("Symble1","Symble2","R2","pvalue")
return(rt)
}
newRes<-flattenCorrMatrix(res$r, res$P)
网友评论