1 相关图

Code

library(tidyverse)
library(ggcorrplot)

Code

data("iris")
cor<-cor(iris[,1:4])
ggcorrplot(cor)

Code

p.mat <- ggcorrplot::cor_pmat(cor)
ggcorrplot(cor,hc.order=TRUE,lab=TRUE)

Code


ggcorrplot(cor, hc.order = TRUE, p.mat = p.mat) + 
    labs(title = "鸢尾花数据集指标相关性") +
    theme(plot.title = element_text(hjust = 0.5))