北京大学R语言教程(李东风)第11章:列表类型

R中列表(list)类型来保存不同类型的数据。
一个主要目的是提供R分析结果输出包装:
输出一个变量,
这个变量包括回归系数、预测值、残差、检验结果等等一系列不能放到规则形状数据结构中的内容。
实际上,数据框也是列表的一种,
但是数据框要求各列等长,
而列表不要求。

列表可以有多个元素,
但是与向量不同的是,
列表的不同元素的类型可以不同,
比如,
一个元素是数值型向量,
一个元素是字符串,
一个元素是标量,
一个元素是另一个列表。

定义列表用函数list(), 如

rec <- list(name="李明", age=30,
  scores=c(85, 76, 90))
rec
## $name
## [1] "李明"
## 
## $age
## [1] 30
## 
## $scores
## [1] 85 76 90

typeof()函数判断一个列表,
返回结果为list
可以用is.list()函数判断某个对象是否列表类型

为了生成元素为空的长度为n的列表,程序如:

11.2 列表元素访问

列表的一个元素也可以称为列表的一个“变量”,
单个列表元素必须用两重方括号格式访问,如

rec[[3]]
## [1] 85 76 90
rec[[3]][2]
## [1] 76
rec[["age"]]
## [1] 30

列表的单个元素也可以用$格式访问,如

如果使用单重方括号对列表取子集,
结果还是列表而不是列表元素,如

rec[3]
## $scores
## [1] 85 76 90
is.list(rec[3])
## [1] TRUE

列表一般都应该有元素名,
元素名可以看成是变量名,
列表中的每个元素看成一个变量。
names()函数查看和修改元素名。

names(rec)
## [1] "name"   "age"    "scores"
names(rec)[names(rec)=="scores"] <- "三科分数"
names(rec)
## [1] "name"     "age"      "三科分数"
rec[["三科分数"]]
## [1] 85 76 90

可以修改列表元素内容。

rec[["三科分数"]][2] <- 0
print(rec)
## $name
## [1] "李明"
## 
## $age
## [1] 30
## 
## $三科分数
## [1] 85  0 90

直接给列表不存在的元素名定义元素值就添加了新元素,
而且不同于使用向量,对于列表而言这是很正常的做法,比如

rec[["身高"]] <- 178
print(rec)
## $name
## [1] "李明"
## 
## $age
## [1] 30
## 
## $三科分数
## [1] 85  0 90
## 
## $身高
## [1] 178

把某个列表元素赋值为NULL就删掉这个元素。

rec[["age"]] <- NULL
print(rec)
## $name
## [1] "李明"
## 
## $三科分数
## [1] 85  0 90
## 
## $身高
## [1] 178

list()函数中允许定义元素为NULL,这样的元素是存在的,如:

li <- list(a=120, b="F", c=NULL); li
## $a
## [1] 120
## 
## $b
## [1] "F"
## 
## $c
## NULL

但是,要把已经存在的元素修改为NULL值而不是删除此元素,
或者给列表增加一个取值为NULL的元素,
这时需要用单重的方括号取子集,
这样的子集会保持其列表类型,
给这样的子列表赋值为list(NULL),如:

li["b"] <- list(NULL)
li["d"] <- list(NULL)
li
## $a
## [1] 120
## 
## $b
## NULL
## 
## $c
## NULL
## 
## $d
## NULL

11.3 列表类型转换

as.list()把一个其它类型的对象转换成列表;
unlist()函数把列表转换成基本向量。如

li1 <- as.list(1:3)
li1
## [[1]]
## [1] 1
## 
## [[2]]
## [1] 2
## 
## [[3]]
## [1] 3
li2 <- list(x=1, y=c(2,3))
unlist(li2)
##  x y1 y2 
##  1  2  3

11.4 连接列表

两个列表可以用c连接成一个列表,
如:

li1 <- list(1:2)
li2 <- list(11:12)
li <- c(li1, li2)
li
## [[1]]
## [1] 1 2
## 
## [[2]]
## [1] 11 12

如下的做法没有达到目的:

li <- list()
li <- c(li, 1:3)
li <- c(li, 11:13)
li
## [[1]]
## [1] 1
## 
## [[2]]
## [1] 2
## 
## [[3]]
## [1] 3
## 
## [[4]]
## [1] 11
## 
## [[5]]
## [1] 12
## 
## [[6]]
## [1] 13

需要改为:

li <- list()
li <- c(li, list(1:3))
li <- c(li, list(11:13))
li
## [[1]]
## [1] 1 2 3
## 
## [[2]]
## [1] 11 12 13

11.5 返回列表的函数示例–strsplit()

strsplit()输入一个字符型向量并指定一个分隔符,
返回一个项数与字符型向量元素个数相同的列表,
列表每项对应于字符型向量中一个元素的拆分结果。

x <- c("10, 8, 7", "5, 2, 2", "3, 7, 8", "8, 8, 9")
res <- strsplit(x, ","); res
## [[1]]
## [1] "10" " 8" " 7"
## 
## [[2]]
## [1] "5"  " 2" " 2"
## 
## [[3]]
## [1] "3"  " 7" " 8"
## 
## [[4]]
## [1] "8"  " 8" " 9"

为了把拆分结果进一步转换成一个数值型矩阵,
可以使用sapply()函数如下:

t(sapply(res, as.numeric))
##      [,1] [,2] [,3]
## [1,]   10    8    7
## [2,]    5    2    2
## [3,]    3    7    8
## [4,]    8    8    9

sapply()函数是apply类函数之一,
稍后再详细进行讲解。

韭菜热线原创版权所有,发布者:风生水起,转载请注明出处:https://www.9crx.com/77953.html

(0)
打赏
风生水起的头像风生水起普通用户
上一篇 2023年10月30日 01:56
下一篇 2023年10月31日 00:16

相关推荐

  • 市场开始猜测美联储下一次加息是否是上调而不是下调

    市场开始猜测美联储下一步行动是否会上涨而不是下跌 投资者开始推演美联储如何管理无法着陆的美国经济,一些人甚至争论在一系列稳定的降息几乎确定无疑的几周后是否需要加息。 几周前,对降息的押注如此盛行,以至于美联储主席杰罗姆·鲍威尔公开警告称,政策制定者不太可能在 3 月份开始降息。掉期交易显示,不到三周后,交易员不仅不再考虑 3 月份的可能性,而且 5 月份的可…

    2024年5月21日
    3000
  • 嘉信理财:欧洲情绪虽然糟糕但很好

    即使经济数据令人失望,情绪变化也可能推动欧元区股市的表现。 根据亚特兰大联储的 GDPNow 预测,美国第三季度的经济数据目前正追踪接近 6% 的 GDP 增长,该预测根据当前季度的可用经济数据提供了对实际 GDP 增长的持续估计。相比之下,欧洲的数据显示经济可能重新陷入衰退。然而,股市对欧洲有利,今年欧洲股票的平均表现优于美国股票的平均表现,并且第三季度迄…

    2023年9月21日
    6000
  • 什么是股息增长投资策略?

    股息增长投资侧重于购买定期增加股息的公司的股票。与优先考虑高收益股票的策略不同,这种方法强调股息随时间的增长。值得注意的是,这种策略本质上并不比其他策略“更好”,但可能最符合投资者的财务目标或风险承受能力。 什么是股息? 股息是公司从利润中定期向股东支付的一笔钱。股息的金额和频率差异很大,通常由公司的盈利能力和董事会决策等因素决定。 公司可以以不同的形式发行…

    2023年9月4日
    14000
  • 家里只有一个人工作,可行吗?如何评估?

    辞去工作成为全职父母,陪伴成长中的家庭,这对您的财务状况既有积极影响,也有消极影响。如果您和您的配偶或伴侣正在考虑全职育儿作为您家庭的一种选择,那么很难知道您是否负担得起。让我们来看看如何确定留在家里对您的家庭来说在经济上是否可行。 了解您的一贯开支 了解让一个父母留在家里是否负担得起的第一步是列出您目前的一贯开支。这些应包括(但可能不限于): 出租或抵押 …

    2023年6月22日
    23100
  • 困境投资:两个案例研究的故事

    由于预计今年或明年许多经济体将陷入衰退,陷入困境的情况将成为潜在投资者的重要交易来源。 但重要的是目标是永久受损还是可以逆转。早期债务泡沫和随之而来的信贷紧缩的两个现实场景提供了有用的指导。 周期性波动或错位 2002 年,英国投资公司 Candover 以 10 亿欧元(相当于 EBITDA 的 8.1 倍)的价格收购了卫生用品生产商 Ontex。债务组合…

    2023年6月5日
    12300

发表回复

登录后才能评论
客服
客服
关注订阅号
关注订阅号
分享本页
返回顶部