计算完相关性系数后可能要进行筛选,或者画相关性网络图。变量很多的时候肯定得挑一挑才能进行下一步分析了。这个时候就需要把正方形matrix转换为表格类的矩阵了
这里有两种方法,都很方便,分别用到了’tidyverse‘和’reshape2‘包
方法1
cor1为相关性矩阵
library(tidyverse)
df2<- cor1 %>% as_tibble(.) %>%
add_column(Var1=rownames(cor1)) %>%
gather(rownames(cor1),key='Var2',value='cor')
方法2
library(reshape2)
df2<- melt(cor1, value.name = "value")
#最后可以用duplicate把重复的系数都删掉
df2<- df2[!duplicated(df2$value),]
end