R语言：如何提取每行最右侧非NA值生成合并列？

DevOps 小满

2026-10-23

提取每行最右侧非NA值生成combined列的实现方案

以下方法均可适配任意列数的通用场景，不需要手动逐列编写判断规则，覆盖无第三方包依赖、tidyverse生态两类常用使用场景：

基础R原生实现

核心逻辑是逐行找出所有非NA元素的位置，取位置最靠右侧（下标最大）的元素即可：

# 逐行取值函数
get_rightmost <- function(row) {
  non_na_idx <- which(!is.na(row))
  # 兼容整行全为NA的边界情况
  if (length(non_na_idx) == 0) return(NA)
  row[max(non_na_idx)]
}
# 生成新列
haves$combined <- apply(haves, 1, get_rightmost)

运行结果和示例的目标数据集wants完全匹配。

tidyverse 生态实现

灵活选列的逐行写法
利用coalesce优先取靠前位置非NA值的特性，把列顺序反转后传入函数，就能实现“从右往左找第一个非NA值”的逻辑：
```
library(dplyr)
haves <- haves %>%
  rowwise() %>%
  mutate(combined = coalesce(across(rev(everything())))) %>%
  ungroup()
```
高效向量化写法（适配大数据集）
避免逐行循环的性能开销，把数据框转成列列表后反转顺序，直接调用向量化计算逻辑：
```
haves$combined <- do.call(coalesce, rev(as.list(haves)))
```
这种写法在行数、列数较多时，运行速度比逐行实现快一个数量级以上。