vlambda博客
学习文章列表

library(corrplot) # 加载绘制相关性热图的包
x1<- c(3.2,2.5,2.9,1.4)x2<- c(9.8,8.5,7.4,2.6) x3<- c(7.3,6.5,8.1,3.5) # 模拟数据x4<- c(9.5,52,8.5,81)
dt <- as.data.frame(cbind(x1,x2,x3,x4)) # 对数据进行连接
cor_result_trait <- sapply(dt,cor,dt) # 使用sapply函数计算数据的相关系数
rownames(cor_result_trait)<-colnames(dt) # 对行进行重命名
corrplot(cor_result_trait,method = "circle",addCoef.col = "green")   # 绘制相关性热图