【w3】匿名函数 lapply、sapply

lapply( )

对列表X里的每个元素，都函数FUN

## function (X, FUN, ...)
## {
## FUN <- match.fun(FUN)
## if (!is.vector(X) || is.object(X))
## X <- as.list(X)
## .Internal(lapply(X, FUN))
## }
## <bytecode: 0x7ff7a1951c00>
## <environment: namespace:base>

！lapply的返回值永远是list！
X: list (如果不是list文件，会强制转化为list，不能转化的->报错)
FUN：函数

list可以包含各种类型（向量、矩阵、数据框…）

x <- list(a = 1:5, b = rnorm(10))
lapply(x, mean)

## $a
## [1] 3
##
## $b
## [1] 0.4671

匿名函数

> x <- list(a = matrix(1:4, 2, 2), b = matrix(1:6, 3, 2))
> x
$a
 [,1] [,2]
[1,] 1 3
[2,] 2 4
$b
 [,1] [,2]
[1,] 1 4
[2,] 2 5
[3,] 3 6

> lapply(x, function(elt) elt[,1])   //提取第一列
$a
[1] 1 2
$b
[1] 1 2 3

function(elt) ÿ