R语言绘制相对性关系图

准备

第一步就是安装R语言环境以及RStudio

图绘制准备

首先安装库文件,敲入指令，回车

install.packages('corrplot')

然后安装excel导入的插件，点击右上角import Dataset，选中From excel即可。

这些操作都很简单~~

数据预处理

然后到了数据输入了，这么多数据，我们总不能一行输入吧？那得有多蠢

于是我们利用上了数据导入功能，当当当~~

然而理想很丰满，现实却很蛋疼,导入的excel数据格式不是我们希望的矩阵格式ORZ！

哎，休息下喝杯茶，看看可能用到的指令吧。

假设导入的数据为data,那么可能用到的指令如下：

//查看数据
data
//删除矩阵第一行
data = data[-1,]
//删除矩阵第一列
data = data[,-1]
//data转换成矩阵
data = as.matrix(data)
//更改行名
row.names(data)<-c("OC","EC","SOC","NH4+","NO3","SO42")

指令在手，天下我有！

存在问题：导入数据格式问题

期望导入的数据格式是矩阵，如下图所示：

实际导入的数据格式如下图：

报警了~~

解决方案：导入数据转换成矩阵流程

然而山人自有妙计~~

1. data = data[,-1],删除第一列的多余数据,运行结果如下图
   
   

2. data = as.matrix(data),转变成矩阵，运行结果如下图
   
   

3. 虽然变成矩阵了，但是第一列行名有问题。运行代码row.names(data)<-c("OC","EC","SOC","NH4+","NO3","SO42")，运行结果如下图
   
   

数据绘图

数据变成矩阵后，运行如下指令，即可得到图片

library(corrplot)
corrplot(corr = data, method = 'color', order ="AOE", addCoef.col="grey")

运行结果如下图所示：

corrplot 的具体参数含义可以参考文献使用R语言绘制其他图形之相关系数图

然而参数好多啊。。。。并不想看，我差不多是条咸鱼了。。。

继续撸参数，然后慢慢调节。。。

其中关于颜色的调整参数为col,参考文献An Introduction to corrplot Package

例如

col<- colorRampPalette(c("red","orange", "yellow","green","blue","purple"))(20)
corrplot(corr = data, method = 'color', order ="AOE", addCoef.col="grey",col=col)

运行结果如下：

但是零的部分很丑有木有，因此需要调参~~

关于添加cl.lim参数以及type参数微调优化

col<- colorRampPalette(c("black","blue" ,"purple","green","yellow","orange","red","black","blue" ,"purple","green","yellow","orange","red"))(20)
corrplot(corr = data, method = 'color', order ="AOE", addCoef.col="grey",col=col,cl.lim = c(0,1),type="upper")

运行结果如下：

好了，到此为止基本上相对关系图就绘制完毕了O(∩_∩)O~~

如果想把图绘制的更加炫酷，强烈推荐自习阅读参考文献6，就酱_=￣ω￣=

最后，修仙伤身====

参考文献

1. 使用R语言绘制其他图形之相关系数图
2. R语言中的数据集
3. R语言定义数据框的行名和列名
4. r语言中删除数据集中的一列或一行数据
5. 如何利用已经导入的excel数据和txt数据建立矩阵？
6. An Introduction to corrplot Package