映射（mapping）

list.map函数提供了list中元素的映射功能。

将每个元素映射到年龄（age）：

list.map(devs, age)

$p1
[1] 24$p2
[1] 25$p3
[1] 24

将每个元素映射到使用编程语言的平均年数：

list.map(devs, mean(as.numeric(lang)))

$p1
[1] 3$p2
[1] 3.333$p3
[1] 2.333

将每个元素映射到使用的编程语言名称：

list.map(devs, names(lang))

$p1
[1] "r"      "csharp" "python"$p2
[1] "r"    "java" "cpp" $p3
[1] "r"      "cpp"    "python"

筛选（filtering）

筛选出年龄不低于25岁的个体：

str(list.filter(devs, age>=25))

List of 1$ p2:List of 4..$ name    : chr "James"..$ age     : num 25..$ interest: chr [1:2] "sports" "music"..$ lang    :List of 3.. ..$ r   : num 3.. ..$ java: num 2.. ..$ cpp : num 5

筛选出使用R语言的个体：

str(list.filter(devs, "r" %in% names(lang)))

List of 3$ p1:List of 4..$ name    : chr "Ken"..$ age     : num 24..$ interest: chr [1:3] "reading" "music" "movies"..$ lang    :List of 3.. ..$ r     : num 2.. ..$ csharp: num 4.. ..$ python: num 3$ p2:List of 4..$ name    : chr "James"..$ age     : num 25..$ interest: chr [1:2] "sports" "music"..$ lang    :List of 3.. ..$ r   : num 3.. ..$ java: num 2.. ..$ cpp : num 5$ p3:List of 4..$ name    : chr "Penny"..$ age     : num 24..$ interest: chr [1:2] "movies" "reading"..$ lang    :List of 3.. ..$ r     : num 1.. ..$ cpp   : num 4.. ..$ python: num 2

筛选出使用Python年限不低于3年的个体：

str(list.filter(devs, lang$python >= 3))

List of 1$ p1:List of 4..$ name    : chr "Ken"..$ age     : num 24..$ interest: chr [1:3] "reading" "music" "movies"..$ lang    :List of 3.. ..$ r     : num 2.. ..$ csharp: num 4.. ..$ python: num 3

分组（grouping）

按照年龄做互斥分组：

str(list.group(devs, age))

List of 2$ 24:List of 2..$ p1:List of 4.. ..$ name    : chr "Ken".. ..$ age     : num 24.. ..$ interest: chr [1:3] "reading" "music" "movies".. ..$ lang    :List of 3.. .. ..$ r     : num 2.. .. ..$ csharp: num 4.. .. ..$ python: num 3..$ p3:List of 4.. ..$ name    : chr "Penny".. ..$ age     : num 24.. ..$ interest: chr [1:2] "movies" "reading".. ..$ lang    :List of 3.. .. ..$ r     : num 1.. .. ..$ cpp   : num 4.. .. ..$ python: num 2$ 25:List of 1..$ p2:List of 4.. ..$ name    : chr "James".. ..$ age     : num 25.. ..$ interest: chr [1:2] "sports" "music".. ..$ lang    :List of 3.. .. ..$ r   : num 3.. .. ..$ java: num 2.. .. ..$ cpp : num 5

按照兴趣做非互斥分组：

str(list.class(devs, interest))

List of 4$ movies :List of 2..$ p1:List of 4.. ..$ name    : chr "Ken".. ..$ age     : num 24.. ..$ interest: chr [1:3] "reading" "music" "movies".. ..$ lang    :List of 3.. .. ..$ r     : num 2.. .. ..$ csharp: num 4.. .. ..$ python: num 3..$ p3:List of 4.. ..$ name    : chr "Penny".. ..$ age     : num 24.. ..$ interest: chr [1:2] "movies" "reading".. ..$ lang    :List of 3.. .. ..$ r     : num 1.. .. ..$ cpp   : num 4.. .. ..$ python: num 2$ music  :List of 2..$ p1:List of 4.. ..$ name    : chr "Ken".. ..$ age     : num 24.. ..$ interest: chr [1:3] "reading" "music" "movies".. ..$ lang    :List of 3.. .. ..$ r     : num 2.. .. ..$ csharp: num 4.. .. ..$ python: num 3..$ p2:List of 4.. ..$ name    : chr "James".. ..$ age     : num 25.. ..$ interest: chr [1:2] "sports" "music".. ..$ lang    :List of 3.. .. ..$ r   : num 3.. .. ..$ java: num 2.. .. ..$ cpp : num 5$ reading:List of 2..$ p1:List of 4.. ..$ name    : chr "Ken".. ..$ age     : num 24.. ..$ interest: chr [1:3] "reading" "music" "movies".. ..$ lang    :List of 3.. .. ..$ r     : num 2.. .. ..$ csharp: num 4.. .. ..$ python: num 3..$ p3:List of 4.. ..$ name    : chr "Penny".. ..$ age     : num 24.. ..$ interest: chr [1:2] "movies" "reading".. ..$ lang    :List of 3.. .. ..$ r     : num 1.. .. ..$ cpp   : num 4.. .. ..$ python: num 2$ sports :List of 1..$ p2:List of 4.. ..$ name    : chr "James".. ..$ age     : num 25.. ..$ interest: chr [1:2] "sports" "music".. ..$ lang    :List of 3.. .. ..$ r   : num 3.. .. ..$ java: num 2.. .. ..$ cpp : num 5

排序（sorting）

按照年龄升序排列：

str(list.sort(devs, age))

List of 3$ p1:List of 4..$ name    : chr "Ken"..$ age     : num 24..$ interest: chr [1:3] "reading" "music" "movies"..$ lang    :List of 3.. ..$ r     : num 2.. ..$ csharp: num 4.. ..$ python: num 3$ p3:List of 4..$ name    : chr "Penny"..$ age     : num 24..$ interest: chr [1:2] "movies" "reading"..$ lang    :List of 3.. ..$ r     : num 1.. ..$ cpp   : num 4.. ..$ python: num 2$ p2:List of 4..$ name    : chr "James"..$ age     : num 25..$ interest: chr [1:2] "sports" "music"..$ lang    :List of 3.. ..$ r   : num 3.. ..$ java: num 2.. ..$ cpp : num 5

按照使用兴趣数量降序排列，然后按照R语言使用年数降序排列：

str(list.sort(devs, desc(length(interest)), desc(lang$r)))

List of 3$ p1:List of 4..$ name    : chr "Ken"..$ age     : num 24..$ interest: chr [1:3] "reading" "music" "movies"..$ lang    :List of 3.. ..$ r     : num 2.. ..$ csharp: num 4.. ..$ python: num 3$ p2:List of 4..$ name    : chr "James"..$ age     : num 25..$ interest: chr [1:2] "sports" "music"..$ lang    :List of 3.. ..$ r   : num 3.. ..$ java: num 2.. ..$ cpp : num 5$ p3:List of 4..$ name    : chr "Penny"..$ age     : num 24..$ interest: chr [1:2] "movies" "reading"..$ lang    :List of 3.. ..$ r     : num 1.. ..$ cpp   : num 4.. ..$ python: num 2

更新（updating）

去除interest和lang两个字段，加入nlang表示掌握语言数目，以及expert使用时间最长的语言名称：

str(list.update(devs, interest=NULL, lang=NULL, nlang=length(lang),expert={longest <- sort(unlist(lang))[1]names(longest)}))

List of 3$ p1:List of 4..$ name  : chr "Ken"..$ age   : num 24..$ nlang : int 3..$ expert: chr "r"$ p2:List of 4..$ name  : chr "James"..$ age   : num 25..$ nlang : int 3..$ expert: chr "java"$ p3:List of 4..$ name  : chr "Penny"..$ age   : num 24..$ nlang : int 3..$ expert: chr "r"

Lambda表达式

rlist中所有支持表达式计算的函数都支持 Lambda 表达式，允许用户访问列表元素的元数据（metadata），即元素本身、元素索引编号（index）、元素名称（name）。

x <- list(a=c(1,2,3),b=c(3,4,5))
list.map(x, sum(.))

$a
[1] 6$b
[1] 12

在上面的代码中，.表示每个元素本身。此例中由于列表中每个元素都是一个数值向量，因此可以分别通过sum函数求和。如果不使用.来表示元素本身，可以通过形如 x -> f(x) 或者 x ~ f(x) 的 Lambda 表达式自定义符号。

list.map(x, x -> sum(x))

$a
[1] 6$b
[1] 12

默认情况下，.i表示当前元素的索引，.name表示当前元素的名称。下面用list.iter函数遍历x中的各个元素，对于每个元素显示自定义字符串。

list.iter(x, cat(.name,":",.i,"\n"))

a : 1
b : 2 

通过 Lambda 表达式自定义这些符号时，可以采用 f(x,i,name) -> expression 的形式，例如：

list.map(x, f(x,i) -> x*i)

$a
[1] 1 2 3$b
[1]  6  8 10

管道操作

由于rlist中函数结构设计具有很强的一致性，推荐和pipeR扩展包中定义的管道操作符一同使用，使得R中的非关系型数据操作易读、可维护。

下面的代码通过结合管道操作选择出喜欢音乐并且使用R的开发者的名字和年龄，结果组合成一个data.frame：

library(pipeR)
devs %>>% list.filter("music" %in% interest & "r" %in% names(lang)) %>>%list.select(name,age) %>>%list.rbind %>>%data.frame

    name age
p1   Ken  24
p2 James  25

包含结构化对象的列表

下面是一个更为复杂的例子，其中涉及到生成一列 data.frame、处理一列线性模型等等：

set.seed(1)
1:10 %>>%list.map(i -> {x <- rnorm(1000)y <- i * x + rnorm(1000)data.frame(x=x,y=y)}) %>>%list.map(df -> lm(y~x)) %>>%list.update(summary = m -> summary(m)) %>>%list.sort(m -> desc(summary$r.squared)) %>>%list.map(c(rsq=summary$r.squared, coefficients)) %>>%list.rbind %>>%data.frame

      rsq X.Intercept.     x
1  0.9896    -0.032250 9.986
2  0.9871     0.031999 8.970
3  0.9832    -0.001191 7.993
4  0.9802     0.004400 6.958
5  0.9684    -0.034238 6.008
6  0.9626     0.007260 4.941
7  0.9450    -0.004309 3.995
8  0.8997    -0.012472 2.962
9  0.7994     0.016558 2.011
10 0.5008    -0.016187 1.006

其他功能

除了上述函数之外，rlist扩展包还提供了许多其他函数，这里只做简单介绍：

• list.join：根表达式合并两个list
• list.parse：将其他类型的对象转换为结构相同的list
• list.load, list.save：读写JSON, YAML, RData格式的list
• list.if, list.which, list.any, list.all：list元素的逻辑判断
• list.find, list.findi：在list中按照表达式寻找指定数量的元素
• …

详细介绍请参见帮助文档：

help(package = rlist)

以及应用手册：

vignette("introduction", package = "rlist")