如何用Base R提取二维列表非空元素的索引？求原生更优实现

你完全不需要手动维护计数器来实现这个需求，Base R有更符合风格的简洁写法，核心思路是用逻辑判断结合which()函数直接定位非空元素的位置：

方法一：sapply() + which() #

MyList <- vector("list", length = 10)
MyList[[2]] <- 785
MyList[[9]] <- list(85, 4, 15, 10)

# 获取非空元素的索引
non_null_indices <- which(sapply(MyList, Negate(is.null)))
non_null_indices

Negate(is.null)等价于function(x) !is.null(x)，sapply()会遍历列表生成一个逻辑向量，标记每个元素是否非空；which()则直接返回逻辑值为TRUE的位置索引，这是R中处理这类位置定位的标准写法。

方法二：vapply() + which()（更严谨） #

如果需要严格控制返回值类型（避免sapply()在某些特殊场景下返回列表的风险），可以用vapply()：

non_null_indices <- which(vapply(MyList, Negate(is.null), logical(1)))

vapply()指定了返回单个逻辑值（logical(1)），比sapply()更稳健，适合在需要确保输出类型一致的场景使用。

这两种写法都避免了使用全局变量（<<-）的潜在问题，完全遵循Base R的函数式编程风格，比手动维护计数器的方式更简洁高效。

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