折叠具有相同标识符和列的行并保留 r 中的所有值

Question

我有一个数据框，其中包含多个与标识符相关的字段，但有些字段是脱节的：

id    store    manager    fruit    vegetable
1     Grocery1   Joe       apple    NA
1     Grocery1   Joe       lemon    NA
1     Grocery1   Joe       NA       zucchini
2     Grocery2   Amy       orange   NA
2     Grocery2   Amy       NA       asparagus
2     Grocery2   Amy       NA       spinach
3     Grocery3   Bill      NA       NA

我希望数据框看起来像：

id    store    manager    fruit    vegetable
1     Grocery1   Joe       apple    zucchini
1     Grocery1   Joe       lemon    zucchini
2     Grocery2   Amy       orange   asparagus
2     Grocery2   Amy       orange   spinach
3     Grocery3   Bill      NA       NA

有没有办法轻松做到这一点？

Answer 1

您可以使用 tidyr::fill 到 fill NA，并且只保留 non-duplicated 行使用 distinct。

library(dplyr)
library(tidyr)

df %>% 
  group_by(store, manager) %>% 
  fill(fruit, vegetable, .direction = "updown") %>% 
  distinct()

# A tibble: 5 × 5
# Groups:   store, manager [3]
     id store    manager fruit  vegetable
  <int> <chr>    <chr>   <chr>  <chr>    
1     1 Grocery1 Joe     apple  zucchini 
2     1 Grocery1 Joe     lemon  zucchini 
3     2 Grocery2 Amy     orange asparagus
4     2 Grocery2 Amy     orange spinach  
5     3 Grocery3 Bill    NA     NA

折叠具有相同标识符和列的行并保留 r 中的所有值

Collapse rows with same identifier and columns and retain all values in r

r

dplyr