R 中的向量要求元素都為同一類型驱敲，而列表不一樣热凹，列表可以組合不同類型的元素鹿霸，類似于 Python 中的字典。
創(chuàng)建列表 list()
存儲一個員工的姓名秆乳，薪資懦鼠，是否為工會成員：
> j <- list(name="Joe", salary=55000, union=T)
> j
$name
[1] "Joe"
$salary
[1] 55000
$union
[1] TRUE
> # 有多種訪問列表元素的方式，$/[[ ]] 都可以
> j$salary
[1] 55000
> # 標(biāo)簽 tag 也可以簡寫屹堰，只要不引起歧義肛冶，R 都可以識別
> j$sal
[1] 55000
> j[["salary"]]
[1] 55000
> # 也可以用數(shù)字索引的方式
> j[[2]]
[1] 55000
> # 列表也是一種向量，可以用以下方式創(chuàng)建
> z <- vector(mode="list")
> z[["abc"]] <- 3
> z
$abc
[1] 3
訪問列表 lst 中的組件 c 的三種方法扯键，返回的是 c 的數(shù)據(jù)類型：
- lst$c
- lst[["c"]]
- lst[[i]] i 是組件 c 在 lst 中的數(shù)字索引
與后兩種方法類似的列表操作還有：
- lst["c"]
- lst[i]
這兩種操作返回的是一個新列表睦袖，是原列表的子列表。
列表索引單中括號與雙重中括號的區(qū)別：
> j[1:2]
$name
[1] "Joe"
$salary
[1] 55000
> j2 <- j[2]
> j2
$salary
[1] 55000
> class(j2)
[1] "list"
> str(j2)
List of 1
$ salary: num 55000
> j3 <- j[[2]]
> j3
[1] 55000
> class(j3)
[1] "numeric"
> str(j3)
num 55000
> # 雙重中括號一次只能取一個列表組件
> j[[1:2]]
Error in j[[1:2]] : 下標(biāo)出界
用單中括號對原列表取子集荣刑，返回子列表馅笙，用雙重中括號取原列表組件，返回的是組件本身的類型厉亏，而不是列表董习。
增加或刪除列表元素
列表創(chuàng)建之后可以增加新的組件，刪除某個組件時將其重新賦值為 NULL 即可爱只，刪除一個組件之后皿淋，它之后的元素索引全部減 1：
> z <- list(a="abc",b=1)
> z
$a
[1] "abc"
$b
[1] 1
> z$c <- "test"
> z
$a
[1] "abc"
$b
[1] 1
$c
[1] "test"
> z[[4]] <- 123
> z
$a
[1] "abc"
$b
[1] 1
$c
[1] "test"
[[4]]
[1] 123
> z$b <- NULL
> z
$a
[1] "abc"
$c
[1] "test"
[[3]]
[1] 123
> # 用 c() 連接函數(shù)合并兩個列表
> c(z,list(500))
$a
[1] "abc"
$c
[1] "test"
[[3]]
[1] 123
[[4]]
[1] 500
訪問列表元素和值
names() 函數(shù)可直接獲取列表各元素的名字，unlist() 函數(shù)去列表化恬试，也可以得到列表各元素的值：
> j
$name
[1] "Joe"
$salary
[1] 55000
$union
[1] TRUE
> names(j)
[1] "name" "salary" "union"
> j[["name"]]
[1] "Joe"
> unj <- unlist(j)
> unj
name salary union
"Joe" "55000" "TRUE"
> class(unj)
[1] "character"
> unname(unj)
[1] "Joe" "55000" "TRUE"
unlist() 去列表化時窝趣，如果列表中元素類型不同，會轉(zhuǎn)為可以最大限度保持不同組件特性的類型训柴，例如本例中的字符串哑舒。
unname() 函數(shù)可以去除 unlist() 得到的向量的元素名字。
對列表使用 apply 函數(shù)
lapply() 就是 list apply畦粮，對列表作用的 apply 函數(shù)散址，得到的結(jié)果也是一個列表。
sapply() 就是 simplified apply宣赔，得到矩陣或向量形式的結(jié)果预麸。
> L <- list(1:3,25:29)
> L
[[1]]
[1] 1 2 3
[[2]]
[1] 25 26 27 28 29
> lapply(L,median)
[[1]]
[1] 2
[[2]]
[1] 27
> sapply(L,median)
[1] 2 27
order() 函數(shù)對向量排序，返回的是排序后向量在原向量中的索引：
> x <- c(12,5,13,8)
> order(x)
[1] 2 4 1 3
> sort(x)
[1] 5 8 12 13
sort() 函數(shù)返回排序后的向量儒将。
遞歸列表
列表可以是遞歸的吏祸，即列表的組件也是列表。
連接函數(shù) c() 有一個可選參數(shù) recursive 決定在拼接的時候是否把原列表壓平钩蚊，就是把所有組件的元素提取出來組成一個向量贡翘。
> 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
