mapply

相比 lapply( )和 sapply( )在一个向量上迭代，mapply( )可以在多个向量上
进行迭代。换句话，mapply 是 sapply 的多元版本：
mapply(function(a, b, c) a * b + b * c + a * c,
a = c(1, 2, 3), b = c(5, 6, 7), c = c(-1, -2, -3))
## [1] -1 -4 -9
迭代函数可以返回标量，也可以返回多元素向量。因此，就像 sapply( )一样，
mapply( )也可以简化结果：
df <- data.frame(x = c(1, 2, 3), y = c(3, 4, 5))
df
## x y
## 1 1 3
## 2 2 4
## 3 3 5
mapply(function(xi, yi) c(xi, yi, xi + yi), df$x, df$y)
## [,1] [,2] [,3]
## [1,] 1 2 3
## [2,] 3 4 5
## [3,] 4 6 8
Map( )是 lapply( )的多元版本，所以，它通常返回一个列表：
Map(function(xi, yi) c(xi, yi, xi + yi), df$x, df$y)
## [[1]]
## [1] 1 3 4
##
## [[2]]
## [1] 2 4 6
##
## [[3]]
## [1] 3 5 8