如何在R中找到具有值的最后一列(每行)？ [英] How to find last column with value (for each row) in R?

问题描述

假设有一个包含多个度量值的数据帧，其中缺少一些度量值。如果缺少该值，则以下所有测量值也将丢失。如何找到最后一个度量值？

df <- data.frame(id = c(1, 2, 3, 4), m_1 = c('a', 'b', 'c', 'd'), m_2 = c('e', NA, 'g', 'h'), m_3 = c('i', NA, NA, 'l'))

df
    id   m_1   m_2   m_3
[1]  1     a     e     i
[2]  2     b  <NA>  <NA>
[3]  3     c     g  <NA>
[4]  4     d     h     l

我希望获得两个选项中的任何一个。

df
    id   m_1   m_2   m_3    m
[1]  1     a     e     i  m_3
[2]  2     b  <NA>  <NA>  m_1
[3]  3     c     g  <NA>  m_2
[4]  4     d     h     l  m_3

df
    id   m_1   m_2   m_3   m
[1]  1     a     e     i   i
[2]  2     b  <NA>  <NA>   b
[3]  3     c     g  <NA>   g
[4]  4     d     h     l   l

我尝试将mutate与which、colnames和is.na混合在一起，但没有成功。

推荐答案

max.col选项是base R，用于获取包含非NA元素的每一行的列索引。ties.method可以是"random"、"first"或"last"。由于我们需要last非NA，因此将"last"指定为ties.method

df$m <- names(df)[-1][max.col(!is.na(df[-1]), 'last')]
df$m
#[1] "m_3" "m_1" "m_2" "m_3"

---

或对于第二个选项，使用行索引cbind并提取元素

df[-1][cbind(seq_len(nrow(df)), max.col(!is.na(df[-1]), 'last'))]
#[1] "i" "b" "g" "l"

---

或者可以使用tidyverse

来完成

library(dplyr)
df %>%
  rowwise %>% 
  mutate(m = {tmp <- c_across(starts_with('m'))
               tail(na.omit(tmp), 1)}) %>%
  ungroup

---

或者，如果我们希望同时获得这两种格式，则可以选择将其重塑为‘Long’格式

library(tidyr)
df %>% 
   pivot_longer(cols = starts_with('m'), values_drop_na = TRUE, 
        names_to = "m_name", values_to = 'm_value') %>% 
   group_by(id) %>%
   slice_tail(n = 1)%>%
   ungroup %>% 
   right_join(df) %>% 
   select(names(df), everything())

-输出

# A tibble: 4 x 6
#     id m_1   m_2   m_3   m_name m_value
#  <dbl> <chr> <chr> <chr> <chr>  <chr>  
#1     1 a     e     i     m_3    i      
#2     2 b     <NA>  <NA>  m_1    b      
#3     3 c     g     <NA>  m_2    g      
#4     4 d     h     l     m_3    l      

这篇关于如何在R中找到具有值的最后一列(每行)？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！