R语言数据结构-----列表

目录

（1）创建列表

 （2）列表索引

（3）增加或删除列表元素

（4）访问列表元素和值

（5）apply()函数

（6）递归型列表

---

列表的基本操作

> x<-list(u=2,v="abc")
> x
$u
[1] 2
 
$v
[1] "abc"
 
> x$u
[1] 2

函数hist()中的数据，也是通过列表保存的

> hn<-hist(Nile)
> print(hn)
$breaks
 [1]  400  500  600  700  800  900 1000 1100 1200 1300 1400
 
$counts
 [1]  1  0  5 20 25 19 12 11  6  1
 
$density
 [1] 0.0001 0.0000 0.0005 0.0020 0.0025 0.0019 0.0012 0.0011 0.0006
[10] 0.0001
 
$mids
 [1]  450  550  650  750  850  950 1050 1150 1250 1350
 
$xname
[1] "Nile"
 
$equidist
[1] TRUE
 
attr(,"class")
[1] "histogram"
 
#也可以用
> str(hn)
List of 6
 $ breaks  : int [1:11] 400 500 600 700 800 900 1000 1100 1200 1300 ...
 $ counts  : int [1:10] 1 0 5 20 25 19 12 11 6 1
 $ density : num [1:10] 0.0001 0 0.0005 0.002 0.0025 0.0019 0.0012 0.0011 0.0006 0.0001
 $ mids    : num [1:10] 450 550 650 750 850 950 1050 1150 1250 1350
 $ xname   : chr "Nile"
 $ equidist: logi TRUE
 - attr(*, "class")= chr "histogram"
 

（1）创建列表

#列表中各组件的名称叫标签
> j<-list(name="Joe",salary=55000,union=T)
> j
$name
[1] "Joe"
 
$salary
[1] 55000
 
$union
[1] TRUE
 
#标签是可选的,也可以不指定
> jalt<-list("Joe",55000,T)
> jalt
[[1]]
[1] "Joe"
 
[[2]]
[1] 55000
 
[[3]]
[1] TRUE
#但是一般来说推荐为各个部分取名而不用默认的数值,这样使得代码更加清晰
 
#在使用时可以使用简称，只要不引起歧义
> j$sal
[1] 55000
 
#因为列表是向量,所以可以用vector()创建列表
> z[["abc"]]<-3
> z
$abc
[1] 3

 （2）列表索引

> j$salary
[1] 55000
> j[["salary"]]
[1] 55000
#可以用数字索引访问列表中的组件，但是要用双重中括号
> j[[2]]
[1] 55000
 
[]用于提取子集：[]可以用来提取数据结构中的一个或多个元素，并返回一个与原始结构类型相匹配的新结构
> j[2]
$salary
[1] 55000
 
 
[[]]用于提取单个元素或子列表：[[]]一次只能提取列表的一个组件,返回值是组件本身的类型,而不是列表
> j[[2]]
[1] 55000
 
#只能提取列表中的一个组件
> j[[1:2]]
Error in j[[1:2]] : subscript out of bounds
> j2a<-j[[2]]
> j2a
[1] 55000
> class(j2a)
[1] "numeric"
 
> j[1:2]
$name
[1] "Joe"
 
$salary
[1] 55000
 
> class(j2)
[1] "list"
> str(j2)
List of 1
 $ salary: num 55000

（3）增加或删除列表元素

添加新的组件

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

使用索引添加组件

> z<-list(a="abc",b=12)
> z[[4]]<-28
> z[5:7]<-c(FALSE,TRUE,TRUE)
 
> z
$a
[1] "abc"
 
$b
[1] 12
 
[[3]]
NULL
 
[[4]]
[1] 28
 
[[5]]
[1] FALSE
 
[[6]]
[1] TRUE
 
[[7]]
[1] TRUE
 

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

#删除z$b之后,它之后的元素索引全部减1,例如原来的z[[4]]变成了z[[3]]
> z$b<-NULL
> z
$a
[1] "abc"
 
[[2]]
NULL
 
[[3]]
[1] 28
 
[[4]]
[1] FALSE
 
[[5]]
[1] TRUE
 
[[6]]
[1] TRUE
 
 
#把多个列表拼接成一个
> c(list("Joe","55000",T),list(5))
[[1]]
[1] "Joe"
 
[[2]]
[1] "55000"
 
[[3]]
[1] TRUE
 
[[4]]
[1] 5

获取列表长度

> length(j)
[1] 3

（4）访问列表元素和值

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

#如果一个列表的各元素含有标签,就可以使用names()获取它的标签
> names(j)
[1] "name"   "salary" "union" 
 
#使用unlist()来获取列表的值
#unlist()返回的值是一个向量---这里返回的是一个字符串向量,而且向量的元素名就来自原列表的标签
> ulj<-unlist(j)
> ulj
   name  salary   union 
  "Joe" "55000"  "TRUE" 
> class(ulj)
[1] "character"
 
#如果列表中都是数值,unlist()返回的就是数值向量
> z<-list(a=5,b=12,c=13)
> y<-unlist(z)
> class(y)
[1] "numeric"
> y
 a  b  c 
 5 12 13 
 
#如果列表中既有字符串又有数值
#混合类型的数值下R选择了这些类型中能最大程度地保留它们共同特性的类型:字符串
#各种类型的优先级排序
NULL<raw<逻辑类型<整型<实数类型<复数类型<列表<表达式
> w<-list(a=5,b="xyz")
> wu<-unlist(w)
> class(wu)
[1] "character"
> wu
    a     b 
  "5" "xyz" 

重点

#各种类型的优先级排序
NULL

 如果把向量元素名称赋值为NULL，可以将其移除

> x<-c(1,2,4)
> names(x)
NULL
> names(x)<-c("a","b","ab")
> names(x)
[1] "a"  "b"  "ab"
> x
 a  b ab 
 1  2  4 
 
#把向量元素名称赋值为NULL,可以将其移除
> names(x)<-NULL
> x
[1] 1 2 4
 
#用名称来引用向量中的元素
> x<-c(1,2,4)
> names(x)<-c("a","b","ab")
> x["b"]
b 
 
> w<-list(a=5,b="xyz")
> wu<-unlist(w)
> names(wu)<-NULL
> wu
[1] "5"   "xyz"
 
#unname()函数直接去掉元素名
> wun<-unname(wu)
> wun
[1] "5"   "xyz"

（5）apply()函数

lapply()(代表list apply)与矩阵的apply()函数相似,对列表的每个组件执行特定的函数
并返回另外一个列表

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

 lapply()返回的列表可以转化为矩阵或向量的形式

sapply()（代表simplified[l]apply）

> sapply(list(1:3,25:29), median)
[1]  2 27
 
> z<-function(z)
+ return (c(z,z^2))
> sapply(1:8,z)
     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
[1,]    1    2    3    4    5    6    7    8
[2,]    1    4    9   16   25   36   49   64
 

（6）递归型列表

#生成包含两个组件的列表,每个组件本事都是列表
> b<-list(u=5,v=12)
> c<-list(w=13)
> a<-list(b,c)
> a
[[1]]
[[1]]$u
[1] 5
 
[[1]]$v
[1] 12
 
 
[[2]]
[[2]]$w
[1] 13
 
 
> length(a)
[1] 2
 
 
> 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
 
#recursive默认为FALSE,得到一个递归型列表,其中组件c是另外一个列表
#recursive=TRUE,得到的是向量，只有名称还带有原来递归的特征
> c(list(a=1,b=2,c=list(d=5,e=9)),recursive=T)
  a   b c.d c.e 
  1   2   5   9