如何在tibble中按行使用coalesce()获取首个非NA值？

嘿，这个需求其实挺常见的，咱们可以用几种简洁的R语言方法来实现，我给你一步步演示：

首先先准备一个示例tibble来模拟你的数据：

library(tibble)
library(dplyr)

# 构造示例数据
my_tibble <- tibble(
  col1 = c(NA, 2, NA, 4),
  col2 = c(1, NA, NA, NA),
  col3 = c(NA, 3, 5, NA)
)

方法一：用purrr的pmap函数（推荐，简洁高效） #

如果你熟悉tidyverse的purrr包，pmap可以完美处理按行传递参数的场景：

library(purrr)

# 提取每行首个非NA值，返回数值型向量
first_non_na_vec <- pmap_dbl(my_tibble, ~ coalesce(...))

# 如果你的数据包含字符型，换成pmap_chr即可
# first_non_na_vec <- pmap_chr(my_tibble, ~ coalesce(...))

这里的...会自动接收每一行的所有列值作为参数传给coalesce()，它会从左到右找到第一个非NA值，pmap_dbl则确保输出是数值型向量（对应字符型用pmap_chr）。

方法二：用dplyr的rowwise + across #

如果你更习惯dplyr的管道风格，也可以这么写：

first_non_na_vec <- my_tibble %>%
  rowwise() %>%  # 开启按行处理模式
  mutate(first_non_na = coalesce(across(everything()))) %>%  # 对每行所有列应用coalesce
  pull(first_non_na)  # 将结果列提取为向量

rowwise()让后续的mutate操作逐行执行，across(everything())选中所有列，最后用pull()把结果转换成你需要的向量。

验证结果 #

运行上面的代码后，得到的向量应该是：

> first_non_na_vec
[1] 1 2 5 4

完全符合你“逐行从左到右查找首个非NA值”的需求。

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