r语言 - 除NAs外，如何按组选择非na值

Question

我想按id和年份为变量v1和v2选择非na值(在我的实际数据集中有两个以上的变量，如v1和v2)，除非只有NAs。

我还想设置它，以便如果id和年份的值冲突，我选择最后一行。

> id<- c(1, 1, 1, 2, 2, 2, 2, 3, 3, 4, 4, 5,5)
> year<-c(2014, 2014, 2019, 2014, 2014, 2014, 2020, 2018, 2018, 2017, 2018, 2019, 2019)
> v1<- c("a", NA, NA, NA, "b", "a", "b", NA, NA, "c", NA, "a", NA)
> v2<- c(NA, "x", "y", "z", "z","z","z", "x", NA, NA, "x", "x", "x")
> df <- as.data.frame(cbind(id, year, v1, v2))
> df
id year   v1   v2
1   1 2014    a <NA>
2   1 2014 <NA>    x
3   1 2019 <NA>    y
4   2 2014 <NA>    z
5   2 2014    b    z
6   2 2014    a    z
7   2 2020    b    z
8   3 2018 <NA>    x
9   3 2018 <NA> <NA>
10  4 2017    c <NA>
11  4 2018 <NA>    x
12  5 2019    a    x
13  5 2019 <NA>    x

下面是我想要的结果:

id year   v1   v2
1   1 2014    a    x
3   1 2019 <NA>    y
6   2 2014    a    z
7   2 2020    b    z
8   3 2018 <NA>    x
10  4 2017    c <NA>
11  4 2018 <NA>    x
12  5 2019    a    x

我试图使用dplyr与group_by，但有问题让它运行。谢谢!

Answer 1

分组后，可以尝试汇总并取去掉NA后的last值

library(dplyr)
df %>%
group_by(id, year) %>%
summarise(v1 = last(na.omit(v1)), 
v2 = last(na.omit(v2)))

将summarise用于所有列(除了用于分组的列)，您可以这样做:

df %>%
group_by(id, year) %>%
summarise_all(~ last(na.omit(.)))

id    year  v1    v2   
<chr> <chr> <chr> <chr>
1 1     2014  a     x    
2 1     2019  NA    y    
3 2     2014  a     z    
4 2     2020  b     z    
5 3     2018  NA    x    
6 4     2017  c     NA   
7 4     2018  NA    x    
8 5     2019  a     x