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()