R 中的向量要求元素都為同一類型，而列表不一樣，列表可以組合不同類型的元素，類似于 Python 中的字典。
創(chuàng)建列表 list()
存儲(chǔ)一個(gè)員工的姓名，薪資，是否為工會(huì)成員：
> j <- list(name="Joe", salary=55000, union=T)
> j
$name
[1] "Joe"
$salary
[1] 55000
$union
[1] TRUE
> # 有多種訪問(wèn)列表元素的方式，$/[[ ]] 都可以
> j$salary
[1] 55000
> # 標(biāo)簽 tag 也可以簡(jiǎn)寫(xiě)，只要不引起歧義，R 都可以識(shí)別
> 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
訪問(wèn)列表 lst 中的組件 c 的三種方法，返回的是 c 的數(shù)據(jù)類型：
- lst$c
- lst[["c"]]
- lst[[i]] i 是組件 c 在 lst 中的數(shù)字索引
與后兩種方法類似的列表操作還有：
- lst["c"]
- lst[i]
這兩種操作返回的是一個(gè)新列表，是原列表的子列表。
列表索引單中括號(hào)與雙重中括號(hào)的區(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
> # 雙重中括號(hào)一次只能取一個(gè)列表組件
> j[[1:2]]
Error in j[[1:2]] : 下標(biāo)出界
用單中括號(hào)對(duì)原列表取子集，返回子列表，用雙重中括號(hào)取原列表組件，返回的是組件本身的類型，而不是列表。
增加或刪除列表元素
列表創(chuàng)建之后可以增加新的組件，刪除某個(gè)組件時(shí)將其重新賦值為 NULL 即可，刪除一個(gè)組件之后，它之后的元素索引全部減 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ù)合并兩個(gè)列表
> c(z,list(500))
$a
[1] "abc"
$c
[1] "test"
[[3]]
[1] 123
[[4]]
[1] 500
訪問(wèn)列表元素和值
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() 去列表化時(shí)，如果列表中元素類型不同，會(huì)轉(zhuǎn)為可以最大限度保持不同組件特性的類型，例如本例中的字符串。
unname() 函數(shù)可以去除 unlist() 得到的向量的元素名字。
對(duì)列表使用 apply 函數(shù)
lapply() 就是 list apply，對(duì)列表作用的 apply 函數(shù)，得到的結(jié)果也是一個(gè)列表。
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ù)對(duì)向量排序，返回的是排序后向量在原向量中的索引：
> x <- c(12,5,13,8)
> order(x)
[1] 2 4 1 3
> sort(x)
[1] 5 8 12 13
sort() 函數(shù)返回排序后的向量。
遞歸列表
列表可以是遞歸的，即列表的組件也是列表。
連接函數(shù) c() 有一個(gè)可選參數(shù) recursive 決定在拼接的時(shí)候是否把原列表壓平，就是把所有組件的元素提取出來(lái)組成一個(gè)向量。
> 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
