library('corrplot')
library(xts)
library(zoo)
library(PerformanceAnalytics)
setwd("F:/BaiduNetdiskWorkspace/")
#读取数据
a<-readxl::read_xlsx("phe.xlsx",sheet = 1)
#热图+相关性数值
mycor<-cor(a)
corrplot.mixed(mycor,upper='circle')
#带直方图的相关性展示
chart.Correlation(a,histogram = TRUE,pch=19)