R 从列表中删除元素

Question

如何从 R 中的列表中删除元素？想象一下这个工作流程：

# create list
my_list <- lapply(1:10, function(x) x)
# find which ones to exclude
my_list_boolean <- sapply(my_list, function(x) ifelse(x%%2>0,F,T))
# does not work like this!
my_list[[my_list_boolean]]

是否有解决方案不必使用 for 循环并围绕我的语句创建大逻辑？

Answer 1

你是这个意思吗？

my_list[my_list_boolean]
#[[1]]
#[1] 2
#
#[[2]]
#[1] 4
#
#[[3]]
#[1] 6
#
#[[4]]
#[1] 8
#
#[[5]]
#[1] 10

Answer 2

只需使用 [] 而不是 [[]]

my_list <- lapply(1:10, function(x) x)
# find which ones to exclude
my_list_boolean <- sapply(my_list, function(x) ifelse(x%%2>0,F,T))
# does not work like this!
my_list[my_list_boolean]
#> [[1]]
#> [1] 2
#> 
#> [[2]]
#> [1] 4
#> 
#> [[3]]
#> [1] 6
#> 
#> [[4]]
#> [1] 8
#> 
#> [[5]]
#> [1] 10

^{由 reprex package (v0.2.1)}

创建于 2018-11-03

因此，您可以 select 具有逻辑向量的列表元素而不是内容（即 [[]]

R 从列表中删除元素

R remove element from list

element

r

list