按行选择一行中的最后一个非 NA 值

Question

我有一个数据框，其中每一行都是不同长度的值的向量。我想创建每行中最后一个真实值的向量。

以下是一个示例数据框：

df <- read.table(tc <- textConnection("
   var1    var2    var3    var4
     1       2       NA      NA
     4       4       NA      6
     2       NA      3       NA                
     4       4       4       4              
     1       NA      NA      NA"), header = TRUE); close(tc)

因此，我想要的值向量为 c(2,6,3,4,1)。

我只是不知道如何让 R 识别最后一个值。

任何帮助表示赞赏！

Answer 1

通过组合三件事来实现此目的：

• 使用 is.na 识别 NA 值 使用
• tail 查找向量中的最后一个值
• 使用 apply< /code> 将此函数应用于 data.frame 中的每一行

代码：

lastValue <- function(x)   tail(x[!is.na(x)], 1)

apply(df, 1, lastValue)
[1] 2 6 3 4 1

Answer 2

这是使用矩阵子集的答案：

df[cbind( 1:nrow(df), max.col(!is.na(df),"last") )]

此 max.col 调用将选择每行中最后一个非 NA 值的位置（如果它们都是 NA，则选择第一个位置）。

Answer 3

这是另一个版本，在获取反转输入的第一个元素之前删除所有无穷大、NA 和 NaN：

apply(df, 1, function(x) rev(x[is.finite(x)])[1] )
# [1] 2 6 3 4 1

Answer 4

dplyr 的一种替代方法是使用 coalesce 并反转所选列的顺序：

library(dplyr)
df |> 
  mutate(var5 = coalesce(var4, var3, var2, var1))

#   var1 var2 var3 var4 var5
# 1    1    2   NA   NA    2
# 2    4    4   NA    6    6
# 3    2   NA    3   NA    3
# 4    4    4    4    4    4
# 5    1   NA   NA   NA    1

要使用 tidy 选择，可以创建一个辅助函数 coacross 将 coalesce 与 across 一起使用，并使用 rev 反转名称的顺序：

coacross <- function(...) {
  coalesce(!!!across(...))
}

df |> 
  mutate(var5 = coacross(rev(everything())))