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")
指令在手,天下我有!
存在问题:导入数据格式问题
期望导入的数据格式是矩阵,如下图所示:
实际导入的数据格式如下图:
报警了~~
解决方案:导入数据转换成矩阵流程
然而山人自有妙计~~
-
data = data[,-1]
,删除第一列的多余数据,运行结果如下图
-
data = as.matrix(data)
,转变成矩阵,运行结果如下图
-
虽然变成矩阵了,但是第一列行名有问题。运行代码
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,就酱= ̄ω ̄=
最后,修仙伤身====