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