R语言|相关性系数正方形矩阵转换为data frame，并删除重复系数/行

计算完相关性系数后可能要进行筛选，或者画相关性网络图。变量很多的时候肯定得挑一挑才能进行下一步分析了。这个时候就需要把正方形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