R语言学习之 apply家族的使用

apply 家族可以进行伪矢量化， 最简单最常用的是 lapply 是 list apply的缩写,参数是某个函数，将此函数作用于列表中的每一个元素上面，并返回另一个列表中

> prime_factors <- list(+     two = 2,+     three = 3,+     four = c(2,2),+     five = 5,+     six = c(2,3),+     seven = 7,+     eight = c(2,2,2),+     nine = c(3,3),+     ten = c(2,5)+ )> head(prime_factors)$two[1] 2$three[1] 3$four[1] 2 2$five[1] 5$six[1] 2 3$seven[1] 7> lapply(prime_factors,unique)$two[1] 2$three[1] 3$four[1] 2$five[1] 5$six[1] 2 3$seven[1] 7$eight[1] 2$nine[1] 3$ten[1] 2 5

还可以使用vapply函数 返回vector  第三个参数是其返回的模板

> vapply(prime_factors,length,numeric(1))  two three  four  five   six seven eight  nine   ten     1     1     2     1     2     1     3     2     2 

还有一个sapply的使用 简化列表 不需要模板 ，简化到一个合适的数组或向量中

> sapply(prime_factors,unique)$two[1] 2$three[1] 3$four[1] 2$five[1] 5$six[1] 2 3$seven[1] 7$eight[1] 2$nine[1] 3$ten[1] 2 5>