1. 三境界

R語言寫循環(huán)有三境界:

• 手動for循環(huán)
• apply系列
• purrr泛函式編程

其中，手動for循環(huán)我最常用，apply系列半吊子，purrr函數(shù)越用越趁手，這里介紹一下purrr編寫循環(huán)的方法。

2. 泛函式函數(shù)

「泛函式定義：」

?

函數(shù)的函數(shù)稱為泛函式，map(x,f)中，map是函數(shù)，f也是函數(shù)，f是map的參數(shù)，那么map就是泛函數(shù)。

?

這里，map是函數(shù)，mean是map的參數(shù)。

3. 走兩步

「測試數(shù)據(jù)：」

「任務(wù)：」

?

計算y1和y2兩列的平均值

?

4. 第一境界：for循環(huán)

for循環(huán)，是編程語言中都有的功能，因為for循環(huán)在R語言中速度較慢被各種嫌棄，但是它簡單易用，容易理解，所以我寫函數(shù)時，經(jīng)常使用for循環(huán)鑲嵌for循環(huán)，樂此不疲。

「看代碼：」

代碼解釋：

• 1，將結(jié)果賦值給re，所以先定義一個re的列表，為空
• 2，因為是兩列，所以是1:2
• 3，分別計算平均數(shù)
• 4，循環(huán)結(jié)束
• 5，打印結(jié)果re

5. 第二境界：apply家族

apply是一套函數(shù)，有很多相關(guān)的函數(shù)，舉幾個apply，lapply，sapply，vapply，mapply，tapply，rapply，eapply，我曾經(jīng)認(rèn)真的被勸退了好幾次，因為理解得不透測，我認(rèn)為R語言學(xué)到apply家族就是我的職業(yè)生涯的結(jié)束。

?

工作第二年，我開始學(xué)習(xí)apply家族函數(shù)，工作第10年，我還在學(xué)習(xí)apply家族函數(shù)。

?

「代碼：」

• dat為數(shù)據(jù)
• 第二個為參數(shù)
• 1表示按照行
• 2表示按照列
• mean為平均數(shù)函數(shù)

6. 第三境界：purrr

學(xué)習(xí)purrr，可以放棄學(xué)習(xí)apply家族了，該有的都有，邏輯更清楚，學(xué)完之后就能用，完全沒有出家的感覺。

?

備注：這里是指從入門到出家的感覺

?

purrr包中的函數(shù)主要是map，有三類：

• map函數(shù)，支持一元函數(shù)
• map2函數(shù)，支持二元函數(shù)
• pmap函數(shù)，支持多元函數(shù)

學(xué)習(xí)R語言念咒語：Fish，F(xiàn)ish，give me Fish

這里，我們用map做一個演示：

用法和apply類似。將其轉(zhuǎn)化為數(shù)據(jù)框：

用匿名函數(shù)試試：

7. 用purrr演示一個復(fù)雜的例子

「批量建模」

用一個多年多點的數(shù)據(jù)，計算每個地點的方差分析，共有五個地點，用一行map函數(shù)全部搞定，是時候展示真正的實力了……

「代碼：」

• MET為數(shù)據(jù)
• split將Location進行分割，成為list的5個元素
• map調(diào)用匿名函數(shù)進行方差分析
• aov為方差分析，Yield ~ Cul為模型
• summary為顯示方差分析結(jié)果

「結(jié)果：」

結(jié)果可以看到，每個地點都有一個方差分析表，每個元素為地點的方差分析結(jié)果。

8. 啥也別說，雙擊666吧