私のようにいくつかの関数であってRのリストを作成していリスト

Question

としてR機能を使用して：、lapply使用するためには

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

私は用途に言及していハドレーウィッカムの本：

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

を

私はlapply関数の最初の引数はリストですが、どのように来るのですかfunction(f) f(x) はlapplyの2番目の引数になります。これは理想的には関数でなければなりません。私の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への第2引数はが機能です

function(f) f(x) 

です。これは引数が関数でもある関数であるfです。のは、無名関数から「匿名」を出してみましょう、何が起こっているかを明らかにすること

：

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

これはまさに、別途getFuncを定義することなく

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

と同じです。さらに行く

、のxを出してみましょう：

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

は、これはかなり

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

しかし、明示的に、合計を計算意味するの数字を渡しと中央値と同じです地球環境からそれらを自動的に取得するよりも