R语言编程艺术学习笔记—第四章列表

终于又回来写《R语言编程艺术》的学习笔记了，坚持真的很难，战胜懒惰，坚持把这本书的学习笔记写完，自我监督！坚持分享之路！

列表这章主要包含列表的创建、增加、删除和函数应用。

列表也是向量，但是和向量有不同之处，向量中的元素只能是一种类型，但是列表中的组件可以是多种类型。

一、创建列表

使用list（）来创建向量，通过$来指定某个组件，比如：

> a<-list(age=23,sex='woman',salary=5000)
> a
$`age`
[1] 23

$sex
[1] "woman"

$salary
[1] 5000

> a$salary
[1] 5000

也可以通过索引来访问，有两种，[ ]单括号访问的是列表，[[ ]]双括号访问的某个指定的组件，如：

> a[1]
$`age`
[1] 23

> a[[1]]
[1] 23

如果要提取子列表，可以通过[ ]，如果要提取某个指定组件，用[[ ]]，个人觉得提取某个指定组件用$更加方便。

二、增加、删除列表

1）使用$,直接新增

> a$name<-'Tom'
> a
$`age`
[1] 23

$sex
[1] "woman"

$salary
[1] 5000

$name
[1] "Tom"

通过$新增默认是添加到最后的位置，如果想要指定位置，就用[ ]或者[[ ]]，添加首位可以用通过c()函数

> a<-list(age=23,sex='woman',salary=5000)
> a[5:6]<-c(TRUE,FALSE)
> a
$`age`
[1] 23

$sex
[1] "woman"

$salary
[1] 5000

[[4]]
NULL

[[5]]
[1] TRUE

[[6]]
[1] FALSE

> a<-list(age=23,sex='woman',salary=5000)
> c(list(hobby='swimming'),a)
$`hobby`
[1] "swimming"

$age
[1] 23

$sex
[1] "woman"

$salary
[1] 5000

删除组件通过将值设置为NULL即可，这里展示的通过指定索引，实际上a$age<-NULL，也可以指定删除

> a[[6]]<-NULL
> a
$`age`
[1] 23

$sex
[1] "woman"

$salary
[1] 5000

[[4]]
NULL

[[5]]
[1] TRUE

三、lapply()和sapply()函数的使用

> lapply(list(1:7,21:24),median)
[[1]]
[1] 4

[[2]]
[1] 22.5

> sapply(list(1:7,21:24),median)
[1]  4.0 22.5

从上面例子可以直观看出两个函数的作用，对列表使用某函数，输出结果，sapply()作用结果更加直观清晰。

有一个参数的设置可以留心下：

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

$b
[1] 2

$c
$c$`d`
[1] 4

$c$e
[1] 9


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

recursive=T设置后，在组合列表时，输出的结果更加友好，可以设置下的。

列表的内容就是这么多，也比较好理解，今天的分享就到这里，下次数据框见，下一章的内容对学习R语言很重要。