相关性分析作图（热图+数值）/（直方图+数值）R语言

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)

原文：https://www.cnblogs.com/xiaosagege/p/15217907.html