保留一个特定列中具有空白值的行，并删除所有其他列中具有空白值的行

Question

我有一个数据框，其中包含宽格式的参与者分数，每一列代表一个问卷项目，每一行代表一个参与者的回答。

我的数据如下所示:

id <- c("001", "002", "003", "004", "005")
q1 <- c(1, 2, "", 3, 5)
q2 <- c("", 2, 3, 1, "")
q3 <- c(1, 3, 2, 5, 2)
q4 <- c(1, 2, 3, "", 4)
q5 <- c(1, 2, 3, 4, 3)
df <- data.frame(id, q1, q2, q3, q4, q5)
df[, 2:6] <- apply(df[, 2:6], 2, as.numeric)

我想在参与者离开特定列时保留他们的数据行，比方说 q4，空白。同时，我想排除一行，只要除 q4 以外的任何项目都留空。

我想到的最终结果就像下面的截图。参与者 001 和 005 被删除，因为他们缺少 q2 分数。参与者 003 由于缺少 q1 分数而被删除。即使参与者 004 缺少 q4 分数，我仍然希望在数据框中保留参与者 004。

如果可能，有人可以为我提供一个可以在 dplyr 管道中使用的答案吗？谢谢，非常感谢!

Answer 1

尝试 tidyr 中的 drop_na()

library(tidyr)
df %>% drop_na(-q4)

# output
   id q1 q2 q3 q4 q5
#2 002  2  2  3  2  2
#4 004  3  1  5 NA  4