Experimenting with correlation graphs (So fun!)

# Libraries
library(ellipse)

## Warning: package 'ellipse' was built under R version 4.3.2

## 
## Attaching package: 'ellipse'

## The following object is masked from 'package:graphics':
## 
##     pairs

library(RColorBrewer)

## Warning: package 'RColorBrewer' was built under R version 4.3.1

# Use of the mtcars data proposed by R
data <- cor(mtcars)
 
# Build a Pannel of 100 colors with Rcolor Brewer
my_colors <- brewer.pal(5, "Spectral")
my_colors <- colorRampPalette(my_colors)(100)
 
# Order the correlation matrix
ord <- order(data[1, ])
data_ord <- data[ord, ord]
plotcorr(data_ord , col=my_colors[data_ord*50+50] , mar=c(1,1,1,1)  )

library(reshape2)

## Warning: package 'reshape2' was built under R version 4.3.1

library(networkD3)

## Warning: package 'networkD3' was built under R version 4.3.2

cor<-cor(mtcars)
cor1<-melt(cor)
simpleNetwork(cor1, fontSize = 16, nodeColour = "pink", zoom=T)