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)相关性分析作图（热图+数值）/（直方图+数值）R语言
免责声明！
本站转载的文章为个人学习借鉴使用，本站对版权不负任何法律责任。如果侵犯了您的隐私权益，请联系本站邮箱yoyou2525@163.com删除。