路徑分析圖

Image

1. 數(shù)據(jù)格式

將環(huán)境數(shù)據(jù)和生物數(shù)據(jù)按下圖形式放入一個表格中,首列為樣品名乍恐,首行為環(huán)境理化因子或者相關(guān)生物參數(shù)名稱聚谁。數(shù)據(jù)選擇適當?shù)臉藴驶赴缰团担齪H外形导,所有環(huán)境數(shù)據(jù)進行l(wèi)og處理环疼。

Image

2. ****所需程序包

ggplot2、plspm朵耕、vegan炫隶、ggrepel

3. ****路徑分析步驟

3.1 安裝和加載程序包,及數(shù)據(jù)讀取

  • install.packages("ggplot2")

  • install.packages("plspm")

  • install.packages("vegan")

  • install.packages("ggrepel")

  • library(ggplot2)

  • library(plspm)

  • library(vegan)

  • library(ggrepel)

  • DATA=read.csv("AEHG.csv",row.names=1,header=T)

  • head(DATA)

3.2 設(shè)置路徑圖

  • Temp = c(0,0,0,0,0,0,0)

  • Nutr = c(0,0,0,0,0,0,0)

  • Envir = c(1,0,0,0,0,0,0)

  • Bio = c(1,1,1,0,0,0,0)

  • MNND = c(1,1,1,1,0,0,0)

  • DW = c(1,1,1,1,1,0,0)

  • SEA = c(1,1,1,1,1,1,0)

  • path_mat = rbind(Temp, Nutr, Envir, Bio, MNND, DW, SEA)

  • innerplot(path_mat)

3.3 計算膨脹因子阎曹,變量的膨脹因子VIF需<10(或者20)

去除block(模塊)內(nèi)部因子共線性

  • spe.1 <- rda(DATA ~ Depth + WLF+Zeu +pH+DO+ EC + ORP, data = DATA)

  • vif.cca(spe.1)

  • spe.1 <- rda(DATA ~ TOC + TN + NH4N +NO3N+ NO2N + TP + PO43P, data = DATA)

  • vif.cca(spe.1)

3.4 路徑分析

設(shè)置每個模塊的變量(括號中數(shù)據(jù)代表數(shù)據(jù)表中的列數(shù))伪阶,膨脹因子VIF<10

  • blocks=list(1, 2:6, 7:10, 11, 12, 13:18, 19)

  • modes = c("A","A","A","A","A","A","A")

  • sat_pls = plspm(DATA, path_mat, blocks, modes=modes)

  • summary(sat_pls)

Image

Outer Model結(jié)果中Loading需大于0.7;根據(jù)結(jié)果逐步去除每個模塊中Loading值小于0.7的變量处嫌,直至所有變量Loading > 0.7栅贴,重新運行路徑分析模型

  • blocks=list(1, 4:5, c(7,9,10), 11, 12, c(13,14,15,17,18), 19)

  • modes = c("A","A","A","A","A","A","A")

  • sat_pls = plspm(DATA, path_mat, blocks, modes=modes)

  • summary(sat_pls)

Loading >0.7,將負Loading值改為正Loading值后熏迹,重新運行路徑分析模型

  • blocks=list(1, c(4,20), c(7,9,10), 11, 12, c(13,14,15,17,18), 19)

  • modes = c("A","A","A","A","A","A","A")

  • sat_pls = plspm(DATA, path_mat, blocks, modes=modes)

  • summary(sat_pls)

4. 圖形制作及精修

4.1 結(jié)果及圖形參數(shù)

將模型結(jié)果復(fù)制到Excel表格中檐薯,直接路徑系數(shù)0.1–1對應(yīng)線寬0.5–1.0 pt。如圖:

Image

4.2 作圖-路徑圖

新建AI畫布(180×180 mm注暗,出血2 mm)坛缕,采用不同形狀和顏色的模塊,并用帶箭頭線段連接捆昏,線段粗細為4.1中計算的線寬pt赚楚。正值和負值直接路徑系數(shù)分別用實線和虛線表示。模塊名稱用10 pt大小骗卜,使用Arial字體宠页。草圖如下:

Image

4.3 精修圖-路徑圖

將4.2路徑圖作為模板,其他水層或樣點可在此基礎(chǔ)上進行修改寇仓。沿路徑方向添加直接路徑系數(shù)勇皇,路徑系數(shù)與線段之間間距保持半個字符間距,并位于線段中心處焚刺。路徑系數(shù)字體大小≥ 8 pt敛摘。將結(jié)果的Inner Model中,路徑Pr值小于0.1作為所謂“顯著”路徑乳愉,并在圖中用紅色線條顯示兄淫。

Image
Image

4.4 總效應(yīng)柱狀圖

復(fù)制4.1結(jié)果中各變量對生態(tài)位寬度(SEA)的總路徑系數(shù),在Sigmaplot繪制柱狀圖蔓姚,柱狀圖縱坐標設(shè)置為-1到1捕虽,刻度間隔為0.5,如下圖:

Image

4.5 組合圖制作

  • 直接將Sigmaplot中的總效應(yīng)柱狀圖依次復(fù)制到4.1路徑圖的AI畫板中坡脐,各柱狀圖設(shè)置為上邊緣對齊泄私;

  • 柱狀圖中橫坐標修改為對應(yīng)模塊名稱,并將柱狀圖顏色修改為與路徑圖4.2中相對應(yīng)的顏色;

  • 柱狀圖的x和y軸坐標刻度數(shù)字字體大小設(shè)置為9 pt晌端,x和y軸坐標軸標題設(shè)置為10 pt捅暴;

  • 微調(diào)柱狀圖邊界和大小使柱狀圖與4.3中路徑圖寬度相同,且右對齊咧纠;

  • 檢查x和y軸刻度數(shù)字是否在刻度線中心蓬痒,x和y軸坐標軸的標題等是否與圖形中心對齊。

Image

**4.6 **添加R2****

可理解為模型對每個模塊的解釋能力漆羔,這里只選擇對個體大形嗌荨(DW)和生態(tài)位寬度(SEA)的R2。如下圖:

Image

4.7 將結(jié)果呈現(xiàn)在對應(yīng)柱狀圖內(nèi)的左上角

R2與左演痒、上邊緣間隔一個字符間距(可用小寫o作為標尺)亲轨。最終效果圖如下:

Image

將組合圖在180*135 mm(包括了2mm的出血或天地邊)畫板中調(diào)至合適大小,圖中路徑系數(shù)最終字體大小為6.5 pt鸟顺,block變量框中字體大小為7 pt瓶埋,柱狀圖坐標軸刻度及R2字體大小為9 pt,其他標注及坐標軸項目均為10 pt诊沪。邊框养筒、柱狀圖及坐標軸棒描邊均為0.5 pt,描邊顏色為純黑色(000000)端姚。溫度(Temp)晕粪、營養(yǎng)鹽(NOx或TN和TP)、物理化學(xué)(EC或CO2aq)變量模塊用淺藍色填充(A8C0DD)渐裸;Chl a變量模塊用暗綠色填充(A6E266)巫湘;DW和SEAB變量模塊用棕色填充(C69F4A)。AI導(dǎo)出TIFF格式圖形昏鹃,并設(shè)置顏色類型為RGB尚氛,分辨率為1100 ppi,勾選“LZW壓縮”洞渤,取消“嵌入IOC配置文件”阅嘶。該圖用Photoshop打開,并“另存為”载迄,勾選“LZW壓縮”讯柔,至此,完成圖表的壓縮护昧。最后檢查圖表魂迄,是否放大800倍,線條仍無鋸齒惋耙,且圖小于2 M為最佳捣炬。

參考文獻

  • Xiaofei Gao, Huihuang Chen, Lynn Govaert, Wenping Wang, Jun Yang. (2019). Responses of zooplankton body size and community trophic structure to temperature change in a subtropical reservoir. Ecology and Evolution, 22(9), 12544-12555
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末熊昌,一起剝皮案震驚了整個濱河市,隨后出現(xiàn)的幾起案子湿酸,更是在濱河造成了極大的恐慌婿屹,老刑警劉巖,帶你破解...
    沈念sama閱讀 218,682評論 6 507
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件稿械,死亡現(xiàn)場離奇詭異,居然都是意外死亡冲粤,警方通過查閱死者的電腦和手機美莫,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 93,277評論 3 395
  • 文/潘曉璐 我一進店門,熙熙樓的掌柜王于貴愁眉苦臉地迎上來梯捕,“玉大人厢呵,你說我怎么就攤上這事】耍” “怎么了襟铭?”我有些...
    開封第一講書人閱讀 165,083評論 0 355
  • 文/不壞的土叔 我叫張陵,是天一觀的道長短曾。 經(jīng)常有香客問我寒砖,道長,這世上最難降的妖魔是什么嫉拐? 我笑而不...
    開封第一講書人閱讀 58,763評論 1 295
  • 正文 為了忘掉前任哩都,我火速辦了婚禮,結(jié)果婚禮上婉徘,老公的妹妹穿的比我還像新娘漠嵌。我一直安慰自己,他們只是感情好盖呼,可當我...
    茶點故事閱讀 67,785評論 6 392
  • 文/花漫 我一把揭開白布儒鹿。 她就那樣靜靜地躺著,像睡著了一般几晤。 火紅的嫁衣襯著肌膚如雪约炎。 梳的紋絲不亂的頭發(fā)上,一...
    開封第一講書人閱讀 51,624評論 1 305
  • 那天蟹瘾,我揣著相機與錄音章钾,去河邊找鬼。 笑死热芹,一個胖子當著我的面吹牛贱傀,可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播伊脓,決...
    沈念sama閱讀 40,358評論 3 418
  • 文/蒼蘭香墨 我猛地睜開眼府寒,長吁一口氣:“原來是場噩夢啊……” “哼魁衙!你這毒婦竟也來了?” 一聲冷哼從身側(cè)響起株搔,我...
    開封第一講書人閱讀 39,261評論 0 276
  • 序言:老撾萬榮一對情侶失蹤剖淀,失蹤者是張志新(化名)和其女友劉穎,沒想到半個月后纤房,有當?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體纵隔,經(jīng)...
    沈念sama閱讀 45,722評論 1 315
  • 正文 獨居荒郊野嶺守林人離奇死亡,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 37,900評論 3 336
  • 正文 我和宋清朗相戀三年炮姨,在試婚紗的時候發(fā)現(xiàn)自己被綠了捌刮。 大學(xué)時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點故事閱讀 40,030評論 1 350
  • 序言:一個原本活蹦亂跳的男人離奇死亡舒岸,死狀恐怖绅作,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情蛾派,我是刑警寧澤俄认,帶...
    沈念sama閱讀 35,737評論 5 346
  • 正文 年R本政府宣布,位于F島的核電站洪乍,受9級特大地震影響眯杏,放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜壳澳,卻給世界環(huán)境...
    茶點故事閱讀 41,360評論 3 330
  • 文/蒙蒙 一役拴、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧钾埂,春花似錦河闰、人聲如沸。這莊子的主人今日做“春日...
    開封第一講書人閱讀 31,941評論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽。三九已至髓考,卻和暖如春部念,著一層夾襖步出監(jiān)牢的瞬間,已是汗流浹背氨菇。 一陣腳步聲響...
    開封第一講書人閱讀 33,057評論 1 270
  • 我被黑心中介騙來泰國打工儡炼, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留,地道東北人查蓉。 一個月前我還...
    沈念sama閱讀 48,237評論 3 371
  • 正文 我出身青樓乌询,卻偏偏與公主長得像,于是被迫代替她去往敵國和親豌研。 傳聞我的和親對象是個殘疾皇子妹田,可洞房花燭夜當晚...
    茶點故事閱讀 44,976評論 2 355

推薦閱讀更多精彩內(nèi)容