如何移除R语言列表中长度为奇数的元素？

针对你提供的列表，我们可以通过以下几种方式筛选出长度为偶数的元素，自动移除长度为奇数的项：

首先定义示例列表：

my_list <- list()
my_list$a <- c(1,2,3,4) # 长度4（偶数）
my_list$b <- c(1,2,3)    # 长度3（奇数，需要移除）
my_list$c <- c(5,6,7,8,6,7) # 长度6（偶数）

方法1：使用Filter()函数 #

Filter()可以直接根据条件筛选列表元素，这里用判断元素长度是否为偶数的逻辑作为筛选条件：

filtered_list <- Filter(function(x) length(x) %% 2 == 0, my_list)

执行后filtered_list仅保留a和c两个元素，自动移除了长度为奇数的b。

方法2：使用逻辑索引 #

先生成标记每个元素是否需要保留的逻辑向量，再用这个向量索引原列表：

# 生成逻辑向量：TRUE表示长度为偶数，FALSE为奇数
keep <- sapply(my_list, function(x) length(x) %% 2 == 0)
# 筛选得到目标列表
filtered_list <- my_list[keep]

这种方法更直观，你可以先查看keep向量的结果，确认筛选逻辑无误后再进行列表索引。

两种方法都能达成目标，Filter()写法更简洁，逻辑索引则更灵活，方便你在筛选前做额外的检查。

内容的提问来源于stack exchange，提问作者Basil