比如你需要大于0.9的数据，（由于没有提及，就把小于0.9的都赋成0了）

谢谢你，确实有用。再请教一下，怎样把这些>0.9的数据全部保存到新的表格中呢？就是<0.9的数据都不要了，非常感谢

megapanda给出的是计算方法，要保存为新的矩阵，则可以
a<-(x > 0.9) * x #新的矩阵
但我猜你是想把形成一个新的表，只列出矩阵中非零的元素以及相应的行名和列名，那么可以这样
b<-data.frame(x=rep(rownames(a),dim(a)[1]),y=rep(colnames(a),each=dim(a)[2]),z=as.vector(a))%>%
filter(z!=0)
注：你的相关性矩阵须有行名和列名