Skip to main content
replaced http://stackoverflow.com/ with https://stackoverflow.com/
Fonte Link

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.

Um jeito fácil é utilizar a função melt do pacote reshape2, como foi explicado nessa 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.

Um jeito fácil é utilizar a função melt do pacote reshape2, como foi explicado nessa 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.

Fonte Link

Um jeito fácil é utilizar a função melt do pacote reshape2, como foi explicado nessa 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.