Um jeito fácil é utilizar a função melt
do pacote reshape2
, como foi explicado nessa perguntanessa pergunta (em inglês).
###código:
install.packages("reshape2") # Caso você não tenha instalado o pacote ainda
library(reshape2)
set.seed(0101)
dados <- matrix(rnorm(100),5,5)
colnames(dados) <- c('A','B','C','D','E')
rownames(dados) <- c('A','B','C','D','E')
CorMatrix <- cor(dados) # Tente usar nomes de variáveis que não sejam
# também nome de função
CM <- corMatrix # Copiando sua matriz
CM[lower.tri(CM, diag = TRUE)] <- NA # Removendo as correlações repetidas e a diagonal
rownames(resultados) <- NULL # (não necessário) limpando os nomes das linhas
resultado <- subset( # Filtra as linhas que possuem o valor de correlação
melt(CM, na.rm=T), # maior do que você queira (0.5 no caso)
value > 0.5)
###resultado: >resultado Var1 Var2 value 1 C D 0.5215197
Uma dica referente ao seu código, não utilize o nome de uma função como nome de variável, como foi o caso da matrix cor
.