摘? 要：隨著經(jīng)濟社會的快速發(fā)展，動物行為生態(tài)學數(shù)據(jù)的收集方法更趨向于綜合化和復雜化，致使獲得實驗數(shù)據(jù)信息呈現(xiàn)爆發(fā)式增長并不斷積累，對深度挖掘?qū)嶒灁?shù)據(jù)的軟件要求越來越高；而常用的數(shù)據(jù)處理軟件很難滿足對大數(shù)據(jù)的充分挖掘和處理，致使許多數(shù)據(jù)被忽略且可視化效果不佳。將R語言與動物行為生態(tài)學課程教學相結(jié)合，既能滿足學生對可視化分析的需求，又能加深學生對交叉學科知識點的理解。

關(guān)鍵詞：動物行為生態(tài)學；R語言；可視化分析

中圖分類號：TP39；G642? 文獻標識碼：A? ? ? 文章編號：2096-4706（2023）01-0093-03

Application of R Language Technology in the Visualization of Animal Behavioral Ecology

WANG Guohai

（College of Chemistry and Bioengineering， Guangxi Minzu Normal University， Chongzuo? 532200， China）

Abstract： With the rapid development of economy and society， the collection methods of animal behavioral ecology data tend to be more comprehensive and complex， resulting in the explosive growth and continuous accumulation of experimental data information. The requirements for the software of deeply mining experimental data are higher， while the commonly used data processing software is difficult to meet the fully mining and processing of big data. As a result， a lot of data are ignored and the visualization effect is poor. Combining R language with the course teaching of animal behavioral ecology can not only meet the needs of students for visual analysis， but also deepen students' understanding for the interdisciplinary knowledge points.

Keywords： animal behavioral ecology; R language; visual analysis

0? 引? 言

動物行為生態(tài)學是一門集動物行為學與生態(tài)學交叉的綜合性學科，是研究動物行為類型和功能、適合度和進化過程的科學，并涉及生理學、遺傳學、進化論和社會學的學科。對其特征進行分析不僅可以掌握動物行為的時空變化，還能在此基礎(chǔ)上進行延伸研究動物個體生長與環(huán)境間適應性[1]。雖然動物行為生態(tài)學在生態(tài)學專業(yè)發(fā)展中具有重要的意義，但目前很多高校生態(tài)學專業(yè)基本上未開設動物行為生態(tài)學這門課程，即便開設了此課程但也只是將其作為選修課，導致有些學生根本不知道開設有此課程。其次，動物行為生態(tài)學課程學習目標不僅要求學生掌握堅實的理論基礎(chǔ)，同時還要熟練掌握在野外環(huán)境下觀察、記錄和分析野生動物行為數(shù)據(jù)的能力[2]；但隨著人類活動干擾的不斷擴大，野生動物數(shù)量和棲息地不斷縮小和破碎化，加之野外環(huán)境下未知風險多，高校任課教師在該課程講授過程中都傾向于室內(nèi)的基礎(chǔ)理論講解，導致學生無法將課堂中學到的研究方法實地用于觀察和收集動物行為數(shù)據(jù)中，從而降低學生對該門課程的學習興趣。最后，以往的動物行為數(shù)據(jù)收集方法都是采用焦點動物掃描法或瞬時掃描法，數(shù)據(jù)分析時大多數(shù)都是以2 h為間隔將1 d劃分為12個時間段后再計算各時間段的相對多度來反映動物的行為變化[3]，這種方法常會因樣本量不足而對結(jié)果產(chǎn)生重要影響，同時也難以對結(jié)果進行良好的可視化分析。

隨著社會經(jīng)濟技術(shù)的快速發(fā)展，目前對動物行為數(shù)據(jù)的收集方法更趨向于綜合化和復雜化，如紅外相機技術(shù)具有靈敏度高、可持續(xù)性和隱蔽性強等特點，可在不干擾研究對象的前提下連續(xù)24 h不間斷的工作，從而能獲得大量的動物行為數(shù)據(jù)（種群年齡結(jié)構(gòu)、數(shù)量及活動時間等）[4]。但以往常用的數(shù)據(jù)處理軟件如SPSS、SAS、MATLAB、Minitab、Stata和Origin等很難滿足對大數(shù)據(jù)的處理和可視化分析，同時也極大地制約了學生的主觀能動性，不利于學生科研實踐能力的發(fā)展。因此，如何簡單、高效且充分的挖掘動物行為生態(tài)學數(shù)據(jù)中所蘊含的科學問題及如何將這些數(shù)據(jù)進行可視化，成為生態(tài)學科研工作者面臨的重要挑戰(zhàn)，也是高校生態(tài)學專業(yè)人才培養(yǎng)所必須注重的能力之一。

R語言技術(shù)是一個集數(shù)據(jù)分析、統(tǒng)計計算、制圖以及可視化的優(yōu)秀程序設計軟件[5]。與其他軟件相比，具有好學易懂、操作性強、開源免費、可開展交互式數(shù)據(jù)分析及強大的圖形輸出功能等優(yōu)勢[6，7]。鑒于R語言技術(shù)的這些突出優(yōu)勢，將R語言的數(shù)據(jù)分析及可視化功能應用到動物行為生態(tài)學具體的教學實踐中，這對于實現(xiàn)和提高動物行為生態(tài)學的課程教學目標和質(zhì)量具有重要意義。但目前許多高校針對生態(tài)學專業(yè)開設的數(shù)據(jù)分析與處理課程和教材都十分匱乏，非常不利于學生數(shù)據(jù)分析和科研思維能力的培養(yǎng)。因此，本文通過案例分析的方式說明R語言在動物行為生態(tài)學數(shù)據(jù)可視化中的應用優(yōu)勢，以期為動物行為生態(tài)學的研究者和師生提供借鑒。

1? R語言在動物行為生態(tài)學數(shù)據(jù)可視化中的應用優(yōu)勢

R語言最初由新西蘭奧克蘭大學統(tǒng)計系的Ross Ihaka和Robert Gentleman及其他志愿者以S語言環(huán)境為基礎(chǔ)共同開發(fā)的一個自由開放、免費獲取，并集數(shù)據(jù) 處理、統(tǒng)計分析和繪圖功能為一體的開源軟件[8]。R語言可以通過其網(wǎng)站或者鏡像中自由下載，而且R語言具備完善的數(shù)據(jù)類型和交互式的數(shù)據(jù)分析能力，尤其是強大的擴展能力和豐富的功能選項，可以幫助使用者開發(fā)自己獨特的工具及方法，從而實現(xiàn)對不同類型數(shù)據(jù)的可視化分析[9]。

R語言在動物行為生態(tài)學課程教學可視化中具有以下優(yōu)勢：

（1）R語言安裝簡便、兼容性強，能運行于UNIX、Windows和Macintosh的操作系統(tǒng)上，且對電腦系統(tǒng)配置要求不高。課堂中學生使用筆記本電腦就能實現(xiàn)對動物行為生態(tài)學數(shù)據(jù)進行分析，一方面既能將抽象的理論知識和實踐相結(jié)合，打破學生對動物行為生態(tài)學高度抽象性和理論性的思維定式，提高學生對交叉學科知識點的掌握程度；另一方面，通過學習各種R語言擴展包的使用原理及安裝方法，使學生熟練掌握不同類型行為生態(tài)學數(shù)據(jù)格式的設置、代碼的輸入及運行過程，提高學生的數(shù)據(jù)處理能力，為下一步相關(guān)專業(yè)課程的學習及今后的科研和工作提供幫助。

（2）R語言開源免費的優(yōu)勢能彌補因高校經(jīng)費不足而難以獲取正版統(tǒng)計學軟件的缺點。常用的一些統(tǒng)計學軟件如SAS、MATLAB、EViews和SPLUS均是收費軟件，而R語言僅需從CRAN（http：//cran.r- project.org）免費下載最新版本的R安裝程序包到計算機上即可使用，能有效地避免因使用盜版的統(tǒng)計學軟件而導致功能不全的尷尬局面。同時R語言擁有完善的社區(qū)，擁有數(shù)量龐大的志愿者實時對使用者提出的各種統(tǒng)計問題進行答疑解惑[10]，且伴隨計算機科學技術(shù)的不斷發(fā)展而隨時更新、隨時加載大量程序包[11]，從而滿足不同階段的學生對動物行為生態(tài)學中數(shù)據(jù)分析處理的需求，具有很強的推廣優(yōu)勢。

（3）R語言提供的數(shù)據(jù)挖掘算法程序包能獨立完成所有行為生態(tài)學數(shù)據(jù)的處理和分析工作，降低了不同軟件間的頻繁切換程度；同時R語言擁有強大的繪圖功能，如通過ggplot2程序包運行簡單的編程代碼不僅能繪制常見的條形圖、折線圖、散點圖和餅狀圖等，而且可以編譯出小提琴圖、箱線圖、環(huán)形圖、氣泡圖、熱力圖、馬賽克圖、臉譜圖等多種可視化圖形；對于復雜性數(shù)據(jù)分析，還可以將各功能圖進行疊加、對大批量數(shù)據(jù)進行交互式、動態(tài)式和多維式可視化分析，以此滿足不同研究方向和內(nèi)容的多元化和可視化分析需求。

例如在分析動物活動節(jié)律時，先篩選出動物活動時被紅外相機記錄的具體時間，后通過運行簡單的核密度代碼就能實現(xiàn)可視化分析。該方法以活動比例集中的周期來表示動物的活動高峰，該方法既能降低樣本量不足而對結(jié)果產(chǎn)生的影響，同時又能克服了傳統(tǒng)方法造成大量原始數(shù)據(jù)被浪費的現(xiàn)象，從而更直觀地反映出不同時間段中動物活動強度的變化趨勢（如圖1所示）。

實現(xiàn)代碼如下：

1.install.packages（"activity"） #安裝“activity”程序包；

2. library（activity）? #將“activity”程序包讀入Rstudio中；

3.install.packages（"overlap"）; #安裝“overlap”程序包；

4.library（overlap）#將“overlap”程序包讀入Rstudio中；

5.sd<-read.csv（"C：/Users/10167/Desktop/sd.csv"， head=TRUE）#導入數(shù)據(jù)；

6.range（sd$time） #選擇數(shù)據(jù)的范圍；

7.sd$time<-sd$time*2*pi #將時間數(shù)據(jù)轉(zhuǎn)化為數(shù)值數(shù)據(jù)；

8.densityPlot（sd$time， rug=F， adjust=1， xlab="time"， ylab="Density"，lwd=2， main=""， ylim=c（0，0.12），cex=2， cex.lab=1.2， pin=c（4，4）， side=1， tck=0.03， yaxt="n"）+axis（side=2， at=c（0.00， 0.04， 0.08， 0.12）， tck=0.04）#繪制基礎(chǔ)圖形并根據(jù)圖形的變化修改相應的坐標軸參數(shù)。

如在分析不同季節(jié)動物活動時間時，除了通過計算平均值和標準差來繪制帶誤差棒的柱形圖外，可以通過使用R語言技術(shù)將原始的數(shù)據(jù)疊加到圖形中，以便更直觀明了的將原始數(shù)據(jù)的分布形式顯示出來（如圖2所示），從而吸引學生對R語言技術(shù)的學習興趣。

實現(xiàn)代碼如下：

1.install. packages （"ggplot2"） #安裝“ggplot2”程序包；

2. library （ggplot2）#將“ggplot2”程序包讀入R語言中；

3.ab<-read.csv （"C：/Users/wgh/Desktop/ab.csv"） #導入數(shù)據(jù)

4.ggplot（ab，aes（x=bird，y=remation））+geom_boxplot（size=0.5）+theme_bw（）+stat_boxplot（geom="errorbar"，width=0.15）+geom_jitter（width=0.2，shape=21，size=2.5）+theme（panel.grid=element_blank（））#繪制基礎(chǔ)圖形并修改相應的格式。

如在分析嚙齒動物對擺放在不同喀斯特微生境中各類型種子移除率間的相關(guān)性時，除了進行Pearson相關(guān)性分析外，可以通過使用R語言技術(shù)繪制散點圖矩陣，以便更直觀明了將各組數(shù)據(jù)間的擬合結(jié)果以圖形方式顯示出來（如圖3所示），極大程度的提高學生對數(shù)據(jù)可視化的興趣。

實現(xiàn)代碼如下：

1.install.packages （"pairs"） #安裝“pairs（）”函數(shù)；

2. library （pairs）#將“pairs（）”函數(shù)讀入R語言中；

3.as<-read.csv （"C：/Users/wgh/Desktop/as.csv"） #導入數(shù)據(jù)

4.pairs（as[，1：4]#繪制基礎(chǔ)的散點圖矩陣

5. panel.cor<-function（x， y， digits=2， prefix=""， cex.cor，...）{usr<-par（"usr"），on.exit（par（usr））， par（usr=c（0，1，0，1）），r<-abs（cor（x，y）），txt<-format（c（r，0.123456789），digits=digits）[1]，txt<-paste0（prefix，txt），if（missing（cex.cor）），cex.cor<-0.8/strwidth（txt），text（0.5，0.5， txt， cex=cex.cor *r）}#繪制各組數(shù)據(jù)間的相關(guān)系數(shù)

6. panel.hist<-function（x，...）{usr<-par（"usr"），on.exit（par（usr）），par（usr=c（usr[1：2]，0，1.5）），h<-hist （x，plot=FALSE），breaks<-h$breaks，nB<-length（breaks），y<-h$counts，y<-y/max（y），rect（breaks[-nB]，? 0， breaks[-1]， y， col= "cyan"， ...）}#在面板的對角線上展示各變量的直方圖

7.pairs（as[，1：4]， lower.panel=panel.smooth， upper.panel=panel.cor，diag.panel=panel.hist）#繪制最終的矩陣圖形

2? 動物行為生態(tài)學課程教學中融入R語言時需注意的問題

R語言作為一門興起的計算機語言，其程序包中的各種統(tǒng)計方法是經(jīng)過很多科研工作者長期不斷地摸索和積累而總結(jié)出來的[12]。因此，在動物行為生態(tài)學教學中引入R語言時需要注意以下問題：

（1）由于R語言是一門以計算機知識作為基礎(chǔ)的程序語言，有其自身的語法規(guī)則，編寫過程必須遵守，否則會出現(xiàn)警告、異常，甚至出現(xiàn)程序無法運行的情景。相比于計算機專業(yè)的學生，生態(tài)學專業(yè)背景的學生對計算機語言規(guī)則的理解能力、敏感性及語言結(jié)構(gòu)等方面都存在較大差異。因此，在教學中引入R語言時應注意設計增加一些R 語言所需的計算機和生物統(tǒng)計學相關(guān)知識，以幫助學生更好地理解和掌握R語言代碼的編寫和使用規(guī)則，同時需提前對初次學習的學生進行基礎(chǔ)的操作培訓，使其掌握基本的R語言操作入門知識并將其成功應用到具體的數(shù)據(jù)分析中，從而激發(fā)學習的積極性與主動性為后期R語言的順利融入打下前期基礎(chǔ)。

（2）R語言作為一門實踐與理論兼?zhèn)涞恼n程，在課程設計時應充分考慮理論知識講授與課堂實踐的時間配比，不能僅是一味的長時間教授理論知識而忽略實踐部分，也不能因提高實踐程度而壓縮理論知識的講授，而是應考慮如何將兩者合理有效地結(jié)合起來以實現(xiàn)最佳的教學效果。如在完成理論知識講解后，可以設計一個與行為生態(tài)學相關(guān)的課題來考核學生學以致用的能力，讓學生們用所學的R語言知識對相應的行為生態(tài)學數(shù)據(jù)進行分析，后根據(jù)結(jié)果并結(jié)合已學的生態(tài)學知識來分析和解釋導致上述結(jié)果的生物學因素。這個過程不僅打破了理論課與實驗課間的鴻溝，將理論教學與實驗操作合二為一，使教學過程變得更為流暢。同時通過動手操作不僅提高了學生的R語言編程及處理數(shù)據(jù)能力還培養(yǎng)了學生的生物信息學思維，也使學生在短時間內(nèi)加深對所學知識的理解和掌握。

3? 結(jié)? 論

將R語言技術(shù)融入動物行為生態(tài)學課程教學中，不僅能降低學生對繁雜生態(tài)學計算公式的理解難度；同時熟練的掌握和應用R語言可視化技術(shù)將復雜的數(shù)據(jù)以圖形的形式展現(xiàn)出來，不僅能增強了課程教學的視覺效果，還能提高學生對動物行為生態(tài)學及相關(guān)交叉學科的學習興趣和探索能力，為后期學生的科研和工作打下堅實的基礎(chǔ)。

參考文獻：

[1] 任曉英，孟麗華，張浩，等.動物行為生態(tài)學教學與實驗過程研究及建議 [J].綠色科技，2019（1）：229-230.

[2] 王琛，王修華.動物行為生態(tài)學中觀鳥訓練的教學方法探索 [J].科技資訊，2017，15（17）：209-210.

[3] 段曉敏，劉佳，林建忠，等.利用紅外相機對廣西崇左白頭葉猴自然保護區(qū)獸類和鳥類資源的初步調(diào)查 [J].獸類學報，2020，40（4）：380-389.

[4] 汪國海，施澤攀，李生強，等.基于紅外相機技術(shù)對帚尾豪豬活動節(jié)律和時間分配初步觀察 [J].獸類學報，2019，39（1）：62-68.

[5] The R Development Core Team. R：a language and environment for statistical computing [M].R Foundation for Statistical Computing，2016.

[6] 唐凱歌. R語言在大數(shù)據(jù)審計方面的應用探析 [J].科技經(jīng)濟導刊，2018，26（8）：23.

[7] 姚維，汪國海，林建忠，等.同域分布鼬獾和食蟹獴活動節(jié)律的比較 [J].獸類學報，2021，41（2）：128-135.

[8] 張哲，張豪.淺談R語言在生物統(tǒng)計學教學中的應用 [J].教育教學論壇，2013（27）：54-55.

[9] 張智杰，牛青山.R語言在法庭科學DNA檢驗中的應用現(xiàn)狀 [J].中國法醫(yī)學雜志，2021，36（6）：634-637+645.

[10] 劉鈺，余卓芮，劉岱寧.R語言可視化的優(yōu)勢及其在空間統(tǒng)計教學中的應用 [J].高教論壇，2020（5）：30-33.

[11] 唐毅，王鳳珍，劉明宇，等.R語言在生物學教學中的應用 [J].教育現(xiàn)代化，2019，6（79）：275-276.

[12] 張倩.R語言在綜合評價方法中的應用 [J].教育教學論壇，2019（22）：247-248.

作者簡介：汪國海（1986.12—），男，漢族，廣西樂業(yè)人，講師，博士，主要研究方向：動植物協(xié)同進化。

收稿日期：2022-08-19

基金項目：廣西民族師范學院科研經(jīng)費支持項目（2021BS002）；廣西壯族自治區(qū)教育廳第四批民族院校特色學科建設立項建設學科項目（民族生態(tài)學）