如何组合一些列？

Question

我有3列如下：

        col1    col2    col3
          1       NA       NA
          NA      3        NA 
          NA      NA       NA
          3       NA       NA

我如何结合这 3 列并制作一个新列？

        col1    col2    col3       new
          1       NA       NA       1
          NA      3        NA       3
          NA      NA       NA       NA
          3       NA       NA       3

请注意，它们没有交集，这意味着如果其中一个是数字 2，则其他是 NA

Answer 1

假设您的 dataframe 被称为df ，

df$new <- pmin(df$col1,df$col2,df$col3,na.rm=TRUE)

应该回答你的问题。

pmin function 获得每行三列中的最小值，并且na.rm=TRUE忽略 NA 值，因此如果按行您最多只有一个非 NA 值，这应该可以工作。

Answer 2

我们可以使用max.col来获取每行中的非 NA 值。

df$new <- df[cbind(seq_len(nrow(df)), max.col(!is.na(df)))]

df
#  col1 col2 col3 new
#1    1   NA   NA   1
#2   NA    3   NA   3
#3   NA   NA   NA  NA
#4    3   NA   NA   3

如果您连续超过 1 个不是 NA 的值，您可能需要根据您的要求查看ties.method的max.col 。

Answer 3

我们也可以使用coalesce的dplyr

library(dplyr)
df1 %>%
     mutate(new = coalesce(col1, col2, col3))
#  col1 col2 col3 new
#1    1   NA   NA   1
#2   NA    3   NA   3
#3   NA   NA   NA  NA
#4    3   NA   NA   3

或者不指定列名

df1 %>% 
    mutate(new = coalesce(!!! .))

或reduce

library(purrr)
df1 %>%
    mutate(new = reduce(., coalesce))

数据

df1 <- structure(list(col1 = c(1L, NA, NA, 3L), col2 = c(NA, 3L, NA, 
NA), col3 = c(NA_integer_, NA_integer_, NA_integer_, NA_integer_
)), row.names = c(NA, -4L), class = "data.frame")