组合包含 NA 的数据框中的行以形成完整的行 [英] combine rows in data frame containing NA to make complete row

问题描述

我知道这是一个重复的 Q，但我似乎无法再次找到该帖子

I know this is a duplicate Q but I can't seem to find the post again

使用以下数据

df <- data.frame(A=c(1,1,2,2),B=c(NA,2,NA,4),C=c(3,NA,NA,5),D=c(NA,2,3,NA),E=c(5,NA,NA,4))

  A  B  C  D  E
  1 NA  3 NA  5
  1  2 NA  2 NA
  2 NA NA  3 NA
  2  4  5 NA  4

按 A 分组，我希望使用 tidyverse 解决方案获得以下输出

Grouping by A, I'd like the following output using a tidyverse solution

  A  B  C  D  E
  1  2  3  2  5
  2  4  5  3  4

我在 A 中有很多组.我想我看到了一个使用 coalesce 的答案，但我不确定如何让它工作.我想要一个也适用于 characters 的解决方案.谢谢！

I have many groups in A. I think I saw an answer using coalesce but am unsure how to get it work. I'd like a solution that works with characters as well. Thanks!

推荐答案

我还没有想出如何将 coalesce_by_column 函数放入 dplyr 管道中，但是这个作品:

I haven't figured out how to put the coalesce_by_column function inside the dplyr pipeline, but this works:

coalesce_by_column <- function(df) {
  return(coalesce(df[1], df[2]))
}

df %>%
  group_by(A) %>%
  summarise_all(coalesce_by_column)

##       A     B     C     D     E
##   <dbl> <dbl> <dbl> <dbl> <dbl>
## 1     1     2     3     2     5
## 2     2     4     5     3     4

<小时>

包括@Jon Harmon 为一组以上的 2 名成员提供的解决方案

---

include @Jon Harmon's solution for more than 2 members of a group

# Supply lists by splicing them into dots:
coalesce_by_column <- function(df) {
  return(dplyr::coalesce(!!! as.list(df)))
}

df %>%
  group_by(A) %>%
  summarise_all(coalesce_by_column)

#> # A tibble: 2 x 5
#>       A     B     C     D     E
#>   <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1     1     2     3     2     5
#> 2     2     4     5     3     4

这篇关于组合包含 NA 的数据框中的行以形成完整的行的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！