在 groupby r 之后删除所有 NA 值的行

Question

我想在使用 group_by 后删除所有 NA 的行。这是一个示例数据集:

df=data.frame(Col1=c("B","B","C","D",
                      "P1","P2","P3")
               ,Col2=c(NA,8,NA,9,10,8,9)
               ,Col3=c(NA,7,6,8,NA,7,8)
               ,Col4=c(NA,NA,7,7,NA,7,7))

如果列值全部为 NA，我想按 Col1 分组并删除行。所以期望的输出是:

<表类="s-表"><头>第 1 列第二列第 3 列第 4 列<正文>B87不适用C不适用67D987P110不适用不适用P2877P3987

如有任何帮助，我们将不胜感激。

Answer 1

你不需要group_by，你可以使用if_any。

library(dplyr)
filter(df, if_any(-Col1, ~ !is.na(.)))
#   Col1 Col2 Col3 Col4
# 1    B    8    7   NA
# 2    C   NA    6    7
# 3    D    9    8    7
# 4   P1   10   NA   NA
# 5   P2    8    7    7
# 6   P3    9    8    7