【R语言】apply函数族
在R语言中使用循环操作时是使用自身来实现的，效率较低。所以R语言有一个符合其统计语言出身的特点：向量化。R语言中的向量化运用了底层的C语言，而C语言的效率比高层的R语言的效率高。
apply函数族主要是为了解决数据向量化运算的问题，以提高运行效率。
一、apply()函数
它是apply()函数族中最简单的函数，它的作用是将一个函数运用到矩阵或数组的某个维度。
此函数有3个参数：
- X：输入的数据，一般是矩阵或数据框；
- FUN：需要使用的函数；
- GARGIN：指定函数在哪个维度上运行。其中1表示行，2表示列；如果是数组，还可以是更大的数字。
1、apply()函数运用到矩阵
x <- matrix(1:24, 6, 4)
x
# 计算每一行的最小值
apply(X=x, MARGIN=1, FUN=min)
# 计算每一列的平均值
apply(X=x, MARGIN=2, FUN=mean)
# 将x中的一个元素改为NA，然后计算每一行的最小值
x[2,4] <- NA
apply(X=x, MARGIN=1, FUN=min)
# 使用min()函数中删除缺失值的参数na.rm
apply(X=x, MARGIN=1, FUN=min, na.rm=TRUE)如下结果所示，当x中有NA时，得到的结果也会是NA。
2、apply()函数运用到数组
x <- array(1:24, dim=c(4,3,2))
x
apply(x, MARGIN=3, FUN=mean)
当MARGIN参数为向量时
x <- array(1:24, dim=c(4,3,2))
x
apply(x, MARGIN=c(1,3), FUN=mean)MARGIN=c(1,3)表示对第1维（行）和第3维（深度/层）进行操作，而保持第2维（列）不变。
借助以下代码辅助理解。
x <- array(1:24, dim=c(4,3,2))
x
apply(x, MARGIN=c(1,3), FUN=paste, collapse="-")
也可以在apply()函数中使用自定义函数或匿名函数：
apply(x, MARGIN = 3, FUN =function(x){
list(range=range(x),mean=mean(x))
})
二、lapply()函数
此函数允许输入数据为原子向量或递归向量，并将函数应用于输入数据的每一个元素，输出结果为与输入数据长度相同的列表。
它的参数是X和FUN，意义与apply()函数的一致。
1、输入数据为向量时
x <- 1:5
lapply(x, function(x){x^3})
2、输入数据为矩阵时
lapply()函数会将FUN中的函数应用于每个值，而不是按照列或行进行应用。
y <- matrix(1:4, 2, 2)
y
lapply(y, min)
3、输入数据为列表时
z <- list(x)
z
lapply(z,function(z){z^3}) 
4、输入数据为数据框时
lapply()函数会将FUN中的函数应用于每一列。
a <- data.frame(x=1:4,y=5:8)
a
lapply(a,max)
三、sapply()函数
sapply()函数其实是lapply()函数的灵活版本，除了X和FUN这两个参数外，它还多了simplify和USE.NAMES两个参数。
simplify：默认为TRUE，表示要求输出的结果为向量或矩阵；也可以让其等于array，表示输出结果为数组。
USE.NAMES：默认为TRUE，表示当输入为字符串时，将以字符串为输出命名。
a <- data.frame(x=1:4,y=5:8)
a
# 当simplify和USE.NAMES都默认为TRUE时
sapply(a,max)
当输入为字符串且USE.NAMES为TRUE时：
b = letters[1:5]
sapply(b,function(x) paste(x,"-",x))
当simplify和USE.NAMES都为FALSE时，sapply()函数的输出结果与lapply()函数完全一致。
a
sapply(a,max,simplify=FALSE, USE.NAMES=FALSE)
lapply(a,max)
四、vapply()函数
此函数与sapply()函数类似，仅多了一个FUN.VALUE的参数，此参数表示指定返回值的类型和形状。
x <- list(a=1:4,b=5:8,c=9:13)
x
sapply(x, function(x){x+2})
vapply(x, function(x){x+2}, FUN.VALUE=numeric(4))通过FUN.VALUE=numeric(4)将返回值的长度设为4，如果其中某个返回值的长度不为4（$c），就会报错。
五、mapply()函数
mapply()函数是sapply()函数的多变量版本。
在sapply()函数中，FUN参数指定的函数只能同时接受一个向量，而mapply()函数中的FUN参数指定的函数可以同时接受多个向量。
如下所示，FUN中指定的函数接受了两个向量：2:6和10:14
mapply(FUN=function(x,y) c(x+y,x*y),2:6,10:14)
