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)
