如何在R中使用至多含一个TRUE的逻辑向量提取列表元素？

我们需要从列表中提取元素，依据的逻辑向量至多包含一个TRUE（用于标记目标元素），同时要兼容逻辑向量全为FALSE的场景。示例数据如下：

my_list <- list(10, "a", 30)
logical_vector <- c(FALSE, FALSE, TRUE) # 场景1：存在一个TRUE
# 或 logical_vector <- c(F, F, F) # 场景2：全为FALSE

现有两种可行但不够直观的实现方案：

# 方案1：结合which与条件判断
if (any(logical_vector)) my_list[[which(logical_vector)]] else list()
# 场景1输出：[1] 30；场景2输出：list()

# 方案2：使用dplyr::first
dplyr::first(my_list[logical_vector]) 
# 场景1输出：[1] 30；场景2输出：NULL

更直观的替代方案 #

方案A：基础R原生实现（无额外依赖）

利用子集操作的特性，结合简单的长度判断，逻辑清晰易懂：

# 先获取匹配的子列表
matched <- my_list[logical_vector]
# 根据子列表长度返回结果：有匹配则提取单个元素，无匹配则返回空列表
result <- if (length(matched) > 0) matched[[1]] else list()

方案B：简化的条件判断写法

把索引提取和判断合并成一行，同样基于基础R：

result <- if (any(logical_vector)) my_list[logical_vector][[1]] else list()

这两种方案的优势在于：完全贴合“按逻辑向量筛选→提取目标”的直觉逻辑，不需要额外记忆which的返回特性或依赖第三方包，同时完美兼容两种场景。

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