R语言-列表

一、创建列表

从技术上讲，列表就是向量。列表属于“递归型”向量
创建列表如下：

> j <- list(name="joe",salary=10000,union=T)
> j
$name
[1] "joe"

$salary
[1] 10000

$union
[1] TRUE

R语言中列表各组件的名称叫做标签
可以利用标签访问各组件：

> j$salary
[1] 10000

标签也可以不指定：

> jalt <- list("Joe",10000,T)
> jalt
[[1]]
[1] "Joe"

[[2]]
[1] 10000

[[3]]
[1] TRUE

一般不推荐采用默认的
因为列表是向量，因此可以用vector()创建列表

> z[["abc"]] <- 3
> z
$abc
[1] 3

二、列表的常规操作

1、列表索引

> j <- list(name="joe",salary=10000,union=T)
> j
$name
[1] "joe"

$salary
[1] 10000

$union
[1] TRUE

> j$salary
[1] 10000
> j[["salary"]]
[1] 10000
> j[[2]]
[1] 10000

还可以像在向量中一样，使用数字索引访问列表的组件，但是注意需要使用双重括号中括号，不是单括号！
总共有三种方法访问列表lst中的组件c，返回值是c的数据类型：

• lst$c
• lst[[“c”]]
• lst[[i]]
  与上面后两种方法对应还有两种：
• lst[“c”]
• lst[i],i是c在lst中的数字编号

（1）使用单中括号和双重括号都可以提取列表的元素，但与普通（原子型）向量索引相比，存在很大不同，使用单中括号[]返回的是一个新的列表，它是原列表的子列表，对原列表的取子集操作返回一个新的列表
（2）而双重括号"[[]]"一次只能提取列表的一个组件，返回值是组件本身的类型，而不是类型

2、增加或删除列表元素

> z <- list(a="abc",b=12)
> z
$a
[1] "abc"

$b
[1] 12

> z$c <- "sailing" #增加一个c组件
> z
$a
[1] "abc"

$b
[1] 12

$c
[1] "sailing"

还可以使用索引添加组件：

> z <- list(a="abc",b=12)
> z
$a
[1] "abc"

$b
[1] 12

> z$c <- "sailing" #增加一个c组件
> z
$a
[1] "abc"

$b
[1] 12

$c
[1] "sailing"

> z[[4]] <- 28
> z[5:7] <- c(FALSE,TRUE,TRUE)
> z
$a
[1] "abc"

$b
[1] 12

$c
[1] "sailing"

[[4]]
[1] 28

[[5]]
[1] FALSE

[[6]]
[1] TRUE

[[7]]
[1] TRUE

要删除列表元素可以直接把它的值设为NULL

> z$b <- NULL
> z
$a
[1] "abc"

$c
[1] "sailing"

[[3]]
[1] 28

[[4]]
[1] FALSE

[[5]]
[1] TRUE

[[6]]
[1] TRUE

删掉z$b之后，它之后的元素索引全部减1

3、获取列表长度

因为列表是向量，可以使用length()得到列表的组件个数

> z
$a
[1] "abc"

$c
[1] "sailing"

[[3]]
[1] 28

[[4]]
[1] FALSE

[[5]]
[1] TRUE

[[6]]
[1] TRUE

> length(z)
[1] 6

三、访问列表元素和值

如果一个列表的各元素含有标签，就可以使用names()获取它的标签

> j<-list(name="Joe",salary=55000,union="TRUE")
> j
$name
[1] "Joe"

$salary
[1] 55000

$union
[1] "TRUE"

> names(j)
[1] "name"   "salary" "union" 
> ulj <- unlist(j)
> ulj
   name  salary   union 
  "Joe" "55000"  "TRUE" 
> class(ulj) #字符串向量
[1] "character"

unlist()返回的值是一个向量
如果列表内都是数值，那么unlist()返回的也就是数值向量

> z <- list(a=5,b=12,c=13)
> y<-unlist(z)
> class(y)
[1] "numeric"
> y
 a  b  c 
 5 12 13 

混合类型情况下怎么输出：

> w <- list(a=5,b="xyz")
> wu <- unlist(w)
> class(wu)
[1] "character"
> wu
    a     b 
  "5" "xyz"

优先级：NULL<raw<逻辑类型<整型<实数类型<复数类型<列表<表达式<（把配对列表当作普通列表）

四、在列表上使用apply系列函数

1、lapply()和sapply()的使用

• lapply()与矩阵的apply()函数的用法相似，对列表（或强制转换成列表的向量）的每个组件执行给定的函数，并返回一个列表。

> lapply(list(1:3,25:29), median)
[[1]]
[1] 2

[[2]]
[1] 27
#分别对1：3和25：29求中位数，返回由2和27组成的列表

在某些情况下，lapply()返回的列表可以转化为矩阵或向量的形式，可以选择使用sapply()

> sapply(list(1:3,25:29), median)
[1]  2 27

五、递归型列表

列表可以是递归的，即列表的组件也可以是递归的

> b <- list(u=5,v=121)
> c <- list(w=13)
> a <- list(b,c)
> a
[[1]]
[[1]]$u
[1] 5

[[1]]$v
[1] 121


[[2]]
[[2]]$w
[1] 13


> length(a)
[1] 2

这段代码生成一个包含两个组件的列表，每个组件本身也都是列表
拼接函数c()有一个可选参数recursive，决定在拼接列表的时候，是否把原列表“压平”，就是把所有组件的元素都提取出来，组合成一个向量

> c(list(a=1,b=2,c=list(d=5,e=9)))
$a
[1] 1

$b
[1] 2

$c
$c$d
[1] 5

$c$e
[1] 9


> c(list(a=1,b=2,c=list(d=5,e=9)),recursive=T)
  a   b c.d c.e 
  1   2   5   9 

第一条命令中，recursive参数取默认值FALSE，得到一个递归型列表，其中组件c是另一个列表。
第二个命令把recursive参数为TRUE，得到一个向量（也可以说是列表）