r语言 - 折叠行以删除 NA

Question

我有一个名为RobertsHemp2019_20的大表，看起来像这样：

A

'FileName'	`BDV-a'	`BDV'	` BDD-a'
Roberts	NA
NA	413847
NA	NA	208320
NA	NA	NA	118807

此代码适用于您的示例数据集，但您需要提供更大的示例数据，以便使解决方案更加通用。在这个示例数据中，有4行数据和4列，其中只有一个非NA值。因此，可以将所有四行折叠为一行，但在较大的数据集中，由于每列中NA值和非NA值的长度不同，输出可能不一定是一行。

library(dplyr)
df %>%
summarise(across(everything(), ~ na.omit(.x)))
# A tibble: 1 x 4
FileName `CBDV-a`   CBDV `CBD-a`
<chr>       <dbl>  <dbl>   <dbl>
1 Roberts    413847 208320  118807