HOW TO CREATE AN INTERACTIVE CORRELATION MATRIX HEATMAP IN R

df <- mtcars
library(heatmaply)
heatmaply_cor(
  cor(df),
  xlab = "Features", 
  ylab = "Features",
  k_col = 2, 
  k_row = 2
)

df <- mtcars
library(heatmaply)
# Compute correlation coefficients
cor.coef <- cor(df)

# Compute correlation p-values
cor.test.p <- function(x){
    
  FUN <- function(x, y) cor.test(x, y)[["p.value"]]
  z <- outer(
    colnames(x), 
    colnames(x), 
    Vectorize(function(i,j) FUN(x[,i], x[,j]))
  )
  dimnames(z) <- list(colnames(x), colnames(x))
  z
}
p <- cor.test.p(df)
heatmaply_cor(
  cor.coef,
  node_type = "scatter",
  point_size_mat = -log10(p), 
  point_size_name = "-log10(p-value)",
  label_names = c("x", "y", "Correlation")
)

library(ggcorrplot)
# Compute a correlation matrix
corr <- round(cor(df), 1)

# Compute a matrix of correlation p-values
p.mat <- cor_pmat(df)

# Visualize the lower triangle of the correlation matrix
# Barring the no significant coefficient
corr.plot <- ggcorrplot(
  corr, hc.order = TRUE, type = "lower", outline.col = "white",
  p.mat = p.mat
)
corr.plot

library(ggcorrplot)
library(plotly)
# Compute a correlation matrix
corr <- round(cor(df), 1)

# Compute a matrix of correlation p-values
p.mat <- cor_pmat(df)

# Visualize the lower triangle of the correlation matrix
# Barring the no significant coefficient
corr.plot <- ggcorrplot(
  corr, hc.order = TRUE, type = "lower", outline.col = "white",
  p.mat = p.mat
)
ggplotly(corr.plot)

原文链接