按键合并一年与r中的多列合并

Question

我有以下数据集：

df1 <- data.frame(
  "key" = c(1, 1, 1, 1, 2, 2, 2, 2, 3, 3), 
  "year" = c(2002, 2002, 2004, 2004, 2002, 2002, 2004, 2004, 2004, 2004),
  "Var1" = c(10, NA, 5, 5, 4, NA, NA, 3, 2, 2),
  "Var2" = c(1, 1, 3, 3, 2, NA, 3, NA, 1, NA),
  "Var3" = c(NA, 2, NA, NA, 5, 5, 3, NA, 2, NA),
  "Var4" = c(NA, 4, 5, 5, 6, NA, 4, NA, NA, NA))

我现在想按键和年将重复行合并，以使一个看起来如下的数据集：

df2 <- data.frame(
  "key" = c(1, 1, 2, 2, 3), 
  "year" = c(2002, 2004, 2002, 2004, 2004),
  "Var1" = c(10, 5, 4, 3, 2),
  "Var2" = c(1, 3, 2, 3, 1),
  "Var3" = c(2, NA, 5, 3, 2),
  "Var4" = c(4, 5, 6, 4, NA))

问题是我有30多列，数百至数千行。因此，该解决方案似乎有点不合时宜：。 感谢任何帮助！

Answer 1

您可以 group_by（键，年），并获取每列的最大值，不包括NAS和只有NAS的组：

library(dplyr)
df1 %>% 
  group_by(key, year) %>% 
  summarise(across(everything(), ~ ifelse(all(is.na(.x)), NA, max(.x, na.rm = T))))

## A tibble: 5 x 6
## Groups:   key [3]
#    key  year  Var1  Var2  Var3  Var4
#  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#1     1  2002    10     1     2     4
#2     1  2004     5     3    NA     5
#3     2  2002     4     2     5     6
#4     2  2004     3     3     3     4
#5     3  2004     2     1     2    NA

Answer 2

您可以使用 fill（）填充每个组的缺失值，并使用 dimption（）找到唯一的行。

library(tidyverse)

df1 %>%
  group_by(key, year) %>%
  fill(Var1:Var4, .direction = "downup") %>%
  distinct() %>%
  ungroup()

# A tibble: 5 × 6
    key  year  Var1  Var2  Var3  Var4
  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
1     1  2002    10     1     2     4
2     1  2004     5     3    NA     5
3     2  2002     4     2     5     6
4     2  2004     3     3     3     4
5     3  2004     2     1     2    NA