如何快速检测向量是否含至少一个非NA元素？（base::anyNA()反向需求）

我们知道anyNA()检测向量是否存在NA时，会在找到第一个NA后立即停止遍历，比any(is.na())性能更高——后者需要先通过is.na()遍历整个向量生成逻辑结果，再调用any()。

针对你想要的「检测向量是否包含至少一个非NA值」的需求，R没有内置的等价于anyNA()的anyNonNA()函数，但可以通过手动实现短路逻辑来达到相同的性能：

实现方法 #

1. 自定义短路遍历函数 #

编写一个循环遍历向量的函数，找到第一个非NA值就立即返回TRUE，遍历结束仍未找到则返回FALSE：

any_non_na <- function(x) {
  for (val in x) {
    if (!is.na(val)) {
      return(TRUE)
    }
  }
  return(FALSE)
}

这个函数的逻辑和anyNA()完全一致，仅在必要时遍历向量，避免全量处理。

2. 利用Reduce实现短路判断 #

也可以通过Reduce函数实现短路逻辑（性能略逊于原生循环，但优于any(!is.na())）：

any_non_na <- function(x) {
  Reduce(function(acc, val) acc || !is.na(val), x, init = FALSE)
}

为什么any(!is.na(x))效率低 #

is.na(x)会先遍历整个向量生成对应的逻辑向量，之后的!取反和any()判断都是基于这个全量生成的结果——哪怕any()本身是短路的，前期的全量遍历已经消耗了性能，因此整体效率远低于短路实现。

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