我有一个列表,我想从其中删除一个元素。我该怎么做呢?

我试着在参考手册中查找我认为这个函数的明显名称,但我没有找到任何合适的名称。


当前回答

只是想快速添加(因为我在任何答案中都没有看到它),对于一个命名列表,你也可以做l["name"] <- NULL。例如:

l <- list(a = 1, b = 2, cc = 3)
l['b'] <- NULL

其他回答

如果您想避免数字索引,可以使用

a <- setdiff(names(a),c("name1", ..., "namen"))

从a中删除名字namea…namen,这适用于列表

> l <- list(a=1,b=2)
> l[setdiff(names(l),"a")]
$b
[1] 2

对于向量也是一样

> v <- c(a=1,b=2)
> v[setdiff(names(v),"a")]
b 
2

我根本不懂R,但有点创造性的谷歌搜索把我带到了这里:http://tolstoy.newcastle.edu.au/R/help/05/04/1919.html

关键的一句话是:

我没有找到关于R如何从列表中删除元素的明确文档,但试验和错误告诉我

我的列表[5]<- NULL

将删除第5个元素,然后“关闭”由删除该元素引起的孔。这影响了下标值,所以我在删除元素时要小心。我必须从名单的后面到前面。

帖子后面的回复说:

删除列表中的元素,请参见R FAQ 7.1

R FAQ的相关部分说:

... 不要将x[i]或x[[i]]设置为NULL,因为这将从列表中删除相应的组件。

它似乎(以一种有点倒退的方式)告诉您如何删除一个元素。

rlist包(http://cran.r-project.org/web/packages/rlist/index.html)用于处理各种列表操作。

示例(http://cran.r-project.org/web/packages/rlist/vignettes/Filtering.html):

library(rlist)
devs <- 
  list(
    p1=list(name="Ken",age=24,
      interest=c("reading","music","movies"),
      lang=list(r=2,csharp=4,python=3)),
    p2=list(name="James",age=25,
      interest=c("sports","music"),
      lang=list(r=3,java=2,cpp=5)),
    p3=list(name="Penny",age=24,
      interest=c("movies","reading"),
      lang=list(r=1,cpp=4,python=2)))

list.remove(devs, c("p1","p2"))

结果:

# $p3
# $p3$name
# [1] "Penny"
# 
# $p3$age
# [1] 24
# 
# $p3$interest
# [1] "movies"  "reading"
# 
# $p3$lang
# $p3$lang$r
# [1] 1
# 
# $p3$lang$cpp
# [1] 4
# 
# $p3$lang$python
# [1] 2

不知道你是否还需要回答这个问题,但我从我有限的(3周的自学R) R经验中发现,使用NULL赋值实际上是错误的或次优的,特别是当你在动态更新一个列表时,比如for循环。

更准确地说,使用

myList[[5]] <- NULL

会抛出错误

myList[[5]] <- NULL:替换长度为0

or

供应的元素多于可供替换的元素

我发现更有效的方法是

myList <- myList[[-5]]

如果你不想就地修改列表(例如,将一个元素传递给一个函数),你可以使用索引:负索引表示“不包括这个元素”。

x <- list("a", "b", "c", "d", "e"); # example list

x[-2];       # without 2nd element

x[-c(2, 3)]; # without 2nd and 3rd

同样,逻辑索引向量也很有用:

x[x != "b"]; # without elements that are "b"

这也适用于数据框架:

df <- data.frame(number = 1:5, name = letters[1:5])

df[df$name != "b", ];     # rows without "b"

df[df$number %% 2 == 1, ] # rows with odd numbers only