R语言学习 第七篇：列表

列表（List）是R中最复杂的数据类型，一般来说，列表是数据对象的有序集合，但是，列表的各个元素（item）的数据类型可以不同，每个元素的长度可以不同，是R中最灵活的数据类型。列表项可以是列表类型，因此，列表被认为是递归变量，与之相对，向量，数组，矩阵，数据框被认为是原子变量。

一，创建列表

列表由list()函数创建，每个参数使用逗号分割，用于指定列表项的内容，列表中的元素数量不限，类型不限。列表项的名称是可选的，可以创建无名的列表项；列表的每一个item，都可以显示命名，例如，name1=item1, name2=item2。

list([name1=]item1,[name2=]item2,...)

1，创建的无名的列表项

例如，下面的脚本创建一个列表，该列表共有三个item，第一个item是整数向量，第二个item是字符向量，第三个item是矩阵，列表的每一个item都没有名称；对于无名的列表项，只能通过嵌套的中括号[[n]]来索引列表项的元素：

> a_list <- list(
+     c(1:3),
+     month.abb,
+     matrix(c(-1,-2,-3,-4),nrow=2)
+ )

打印列表，列表的第一个item，使用两个嵌套的中括号[[1]]表示，这是索引列表的一种方式：

> a_list
[[1]]
[1] 1 2 3

[[2]]
 [1] "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"

[[3]]
     [,1] [,2]
[1,]   -1   -3
[2,]   -2   -4

2，创建命名的列表项

通过指定列表项的变量名，为每一个列表项显示指定名称，列表项的命名是变量名，不需要加双引号；对于列表中的命名元素，可以使用美元符号$来索引列表项。

>  a_list <- list(
+         a=c(:),
+         b=month.abb,
+         c=matrix(c(-,-,-,-),nrow=)
+      )
> a_list
$a
[]   

$b
 [] "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"

$c
     [,] [,]
[,]   -   -
[,]   -   -

二，列表元素的命名

使用函数names(list)查看列表中每个item的名称，如果创建列表是无名列表项，那么该函数返回NULL；可以对该函数names(list)赋值，为列表的每个item命名：

> names(a_list) <- c('first','second','third')
> a_list
$first
[]   

$second
 [] "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"

$third
     [,] [,]
[,]   -   -
[,]   -   -

> names(a_list)
[] "first"  "second" "third" 

三，列表的长度

列表没有维度，列表和向量一样，有长度（length），可以使用函数length()获取列表的长度，列表的长度是列表的顶层item的数量，不包括嵌套的列表项。

> length(a_list)
[1] 3

函数NROW(),NCOL()把列表看作向量，是只有一列，多行的数据结构，因此NCOL(x)始终返回1，而NROW(x)返回的值和length(x)相同

> NCOL(a_list)
[]
> NROW(a_list)
[] 

四，索引列表

列表的下标是列表项的序号，可以使用中括号[n]索引列表的元素，下标有四种表示方法：正整数、负整数、元素名称或逻辑索引，下标的整数值从1开始，正整数表示选择该列表项，负整数表示剔除该列表项。

例如，选择列表的第1项，第2项，分别使用正整数下标、负整数下标、元素名称和逻辑索引表示：

> a_list[:]
> a_list[-]
> a_list[c('first','second')]
> a_list[c(TURE,TRUE,FALSE)] 

$first
[]   

$second
 [] "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"

这些索引操作的结果是产生另一个列表，也就是说，使用单个中括号索引列表项，返回的结果是一个新的列表，要访问列表元素的内容，有两种方式：使用嵌套的中括号（传入正整数，代表列表项的下标，或传入字符串，代表列表项的名称），或指定元素的名称。

1，使用嵌套的中括号

例如，通过嵌套的中括号和下标，获取列表的第一个项目（item）的值：

> a_list[[1]]
[1] 1 2 3

2，使用列表的名称

例如，通过指定元素的名称作为下标，获取列表的第一个项目（item）的值：

> a_list$first
[1] 1 2 3

3，访问列表项中的元素

在访问列表的元素之后，可以通过中括号访问列表项的元素值，例如，列表的第一个项目是向量，通过中括号和下标，能够访问向量的第一个元素的值：

> a_list$first[1]
[1] 1
> a_list[[1]][1]
[1] 1

如果以错误的正整数索引访问列表元素的内容，R会抛出下标越界的错误，而使用错误的列表项（item）的名称，R会返回NULL值，不会报错：

> a_list[[4]]
Error in a_list[[4]] : subscript out of bounds
> a_list$forth
NULL

五，列表项的追加、删除和更新

列表创建之后，可以向列表中追加元素，删除现有的列表元素，更新现有的列表元素。追加元素和更新元素都是通过对元素赋值来实现的，如果列表中的元素存在，那么更新该元素；如果列表中的元素不存在，那么把当前变量添加到列表中作为新的列表项。其实，删除列表的元素，也是通过对列表项赋值来实现，只不过赋的是特殊的NULL值。

1，删除列表元素

NULL是各特殊值，表示一个空的变量，不会占用任何空间，长度为零。NULL能够用于删除列表中的元素，把列表项更新为NULL，则R会删除该列表项，在该列表项之后的元素，其索引序号都要减少1；在该列表项之前的元素，其索引序号不变。

例如，把第一个列表项删除，原来的第二个列表项的索引变成1，原来的第三个列表的索引变成2：

> a_list[1] <- NULL
> a_list
$second
 [1] "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"

$third
     [,1] [,2]
[1,]   -1   -3
[2,]   -2   -4

2，追加列表元素

项列表中追加新的列表项，可以使用嵌套的中括号（在列表末尾追加未命名的列表项），或直接使用新的列表项的名称（在列表末尾追加已命名的列表项）：

> a_list[[]]=c(:)
> a_list$fifth=c('a','b')

由于通过单层中括号索引的列表项是一个列表，也可以为直接通过列表变量赋值：

> a_list[] <- list(c(:))
> a_list["fifth"] <- list(c('a','b'))

3，列表项的更新

更新列表项，可以通过直接访问列表项，把列表项赋值为新的变量来实现，

例如，把列表的第三个列表项修改为list类型的变量：

> a_list["forth"] <- list(c('L1','L2'))
> a_list$"forth"
[] "L1" "L2"

4，更新列表项的元素

索引列表项的元素，改变元素的值：

> a_list$"forth"[] <- "L3"
> a_list$forth
[] "L1" "L2" "L3"

5，把列表项更新为NULL值

要把现有的列表元素设置为NULL值，不能简单地为其赋值为NULL，因为这将删除该列表元素，而是必须使用list(NULL)来设置，list(NULL)返回的是空的列表：

a_list[] <- list(NULL)

六，列表和向量的相互转换

向量可以使用函数as.list函数转换成列表，所创建的列表和向量中的元素一一对应，列表的每一个元素都对应向量的每一个元素：

> v=c(1,3)
> (l=as.list(v))
[[1]]
[1] 1

[[2]]
[1] 3

列表既能存储相同的类型的数据，也能存储不同类型的数据，如果列表的所有列表项的数据类型相同，并且每一个列表项都是标量变量，可以通过unlist()函数把列表转换成向量：

> unlist(l)
[1] 1 3

如果列表存储不同类型的数据，那么列表不能转换为向量。

参考文档：

R--列表