在几列上同时折叠重复的行

Question

R 初学者在这里。我目前有一个数据库，其中包含超过 33 个变量，涵盖 10000 多种动物，但我遇到了一些麻烦。

总结一下，我的数据如下所示：

species1     species2    info1    info2
Parrot       Parrot      3        NA 
NA           Parrot      NA       7
Osprey       NA          NA       89
Sparrow      Sparrow     NA       19
Sparrow      NA          27       NA
NA           Duck        69       16

我在这里尝试做的是折叠或合并在物种列上有重复的行，同时保留那些具有 NA 的行。像这样的：

species1     species2    info1    info2
Parrot       Parrot      3        7
Osprey       NA          NA       89
Sparrow      Sparrow     27       19
NA           Duck        69       16

我尝试过使用group_by，但除了它仅按一个变量分组这一事实之外，我不确定它是否正确。我有 5 个其他物种行，它们也可能有重复，我应该对每个都使用这个吗？

data %>% 
  group_by(species1) %>% 
  summarise_each(funs(max))

对不起，如果这太明显了，我只是一个新手！ 保护你！！ :)

Answer 1

我们可以将coalesce 'species1', 'species2' 列合并为一个列，在执行summarise 之前对coalesced 列进行分组，然后使用select 将其删除

library(dplyr)
data %>% 
   group_by(species = coalesce(species1, species2)) %>% 
   summarise(across(everything(), ~ .[complete.cases(.)][1]))%>% 
   select(-species)

-输出

# A tibble: 4 x 4
  species1 species2 info1 info2
  <chr>    <chr>    <int> <int>
1 <NA>     Duck        69    16
2 Osprey   <NA>        NA    89
3 Parrot   Parrot       3     7
4 Sparrow  Sparrow     27    19

数据

data <- structure(list(species1 = c("Parrot", NA, "Osprey", "Sparrow", 
"Sparrow", NA), species2 = c("Parrot", "Parrot", NA, "Sparrow", 
NA, "Duck"), info1 = c(3L, NA, NA, NA, 27L, 69L), info2 = c(NA, 
7L, 89L, 19L, NA, 16L)), class = "data.frame", row.names = c(NA, 
-6L))