基於R的功能列表

Question

我創建包含的幾個功能的R列表：

funs <- list(
+  sum = sum, 
+  mean = mean, 
+  median = median 
+ ) 

爲了lapply使用，哈德利韋翰的書，我指的用途：

lapply(funs, function(f) f(x)) 

我得到了lapply函數的第一個參數是list，但function(f) f(x) 怎麼來成爲lapply的第二個參數，理想情況下這應該是一個函數。我的X是：

x <- 1:10 

Answer 1

也許它變得更清晰，當您分配匿名函數的名稱g

g <- function(f) { 
    f(x) 
} 

g具有作爲參數，將調用這個函數的說法x，是從詞法範圍內獲取的。因此，對於x <- 1:10你

g(sum) # = sum(x) = sum(1:10) 
[1] 55 

而且同樣

lapply(funs, g) # = list(g(sum), g(means), g(median) 
       # = list(sum(x), means(x), median(x) 
       # = list(sum(1:10), means(1:10), median(1:10) 
$sum 
[1] 55 

$mean 
[1] 5.5 

$median 
[1] 5.5 

Answer 2

的第二個參數是lapply

function(f) f(x) 

其中是的函數。這是一個函數，其參數也是一個函數，f。

爲了闡明所發生的事情，讓我們拿出了「匿名」的匿名函數：

getFunc <- function(f) f(x) 
lapply(funs, getFunc) 

這是完全一樣的

lapply(funs, function(f) f(x)) 

，而不必單獨定義getFunc。

的進一步深入，讓我們拿出x：

getFunc <- function(f, xx) f(xx) 
lapply(funs, getFunc, xx=x) 

這是一樣的

lapply(funs, function(f) f(x)) 

，但明確地在其上的數字傳遞給計算總和，平均數和中位數，而而不是從全球環境中自動獲取它們。