R语言使用corrplot绘制相关性图

R语言使用corrplot绘制相关性图
（笔记备份）

# 绘制Huaidao5和Nanjing46水稻品质参数的相关性热图
# 使用corrplot包画相关性图：https://zhuanlan.zhihu.com/p/165625914
# 使用Cairo包导出图片：https://zhuanlan.zhihu.com/p/492829689
#================================================================

#读取数据-------------
setwd("C:/Users/Dell/Desktop/ma/数据")
Huaidao5 <- read.csv("Huaidao5.csv")
Nanjing46 <- read.csv("Nanjing46.csv")

#计算相关性-------------
cor_Huaidao5 <- cor(Huaidao5)   #计算相关性系数
cor_Nanjing46 <- cor(Nanjing46)

# 画相关性图并导出---------------
library(corrplot)     # 加载绘制相关性图的包
col <- colorRampPalette(c("#BB4444", "#EE9988", "#FFFFFF", "#77AADD", "#4477AA"))          # 设置相关性图颜色
library(Cairo)       # 加载导出图的包

#画cor_Huaidao5-----
# 1. 创建画布   
setwd("C:/Users/Dell/Desktop/ma/图")
Cairo(width = 12,height = 10,file = "cor_Huaidao5.png", type="png", units = "cm", dpi = 600) 
# 2. 绘图
corrplot(cor_Huaidao5, method="color", col=col(200),  
         type="upper", order="hclust", 
         addCoef.col = "black", #添加相关系数
         diag=FALSE) 
# 3. 关闭画布
dev.off()   

#画cor_Nanjing46-----
# 1. 创建画布  
setwd("C:/Users/Dell/Desktop/ma/图")
Cairo(width = 12,height = 10,file = "cor_Nanjing46.png", type="png", units = "cm", dpi = 600)  
# 2. 绘图
corrplot(cor_Nanjing46, method="color", col=col(200),  
         type="upper", order="hclust", 
         addCoef.col = "black", #添加相关系数
         diag=FALSE)  
# 3. 关闭画布
dev.off()