如果给定年份的所有观测值都是 NA，如何删除面板数据中的变量？

Question

我有一个这样的数据框，

scores <-structure(list(student = structure(c(1L, 1L, 1L, 2L, 2L, 2L, 
3L, 3L, 3L), .Label = c("adam", "mike", "rose"), class = "factor"), 
    year = c(2001L, 2002L, 2003L, 2001L, 2002L, 2003L, 2001L, 
    2002L, 2003L), math = c(5L, 3L, 5L, 3L, 2L, 4L, 4L, 2L, NA
    ), english = c(2L, NA, 5L, 4L, NA, 3L, 4L, NA, 4L), history = c(NA, 
    4L, 5L, NA, 3L, 4L, NA, 5L, 3L), geography = c(4L, 5L, 5L, 
    5L, 4L, 4L, 3L, 5L, 3L)), class = "data.frame", row.names = c(NA, 
-9L))

我想删除给定年份没有学生得分的变量。 例如，没有学生在 2002 年有英语分数，因此，如果我的相关年份是 2002，我想删除变量“english”。同样，没有学生在 2001 年有历史分数。所以，如果我的相关年份是 2001，变量“history”应该被删除。 如果我的相关年份是 2003 年，则不会删除任何变量，因为至少有一个学生（更准确地说是迈克和亚当）在变量“数学”中有分数。

为此，我构建了以下功能来完成这项工作

byearNA<-function(x,z = 3, ano = 2001) {
    matri <- data.frame(matrix(, nrow=nrow(x), ncol=(z-1)))
    matri <- x[c(1:(z-1))]
    for (i in z:ncol(x)){
        if (all(is.na(x[x[2] == ano,i]))==FALSE) {
            matri <- cbind(matri,x[i])
        }
    }
    return(matri)
}

但是，我真的相信这可以通过 R 中的本机函数（已经存在的函数）来完成。 我已经尝试了很长时间，但找不到方法，这就是我创建自己的函数的原因。

如何使用 R 中的本机函数完成此任务？

非常感谢您提前

Answer 1

我不是 100% 确定你在找什么，但你试过这个吗？

scores2 <- na.omit(scores)

这将返回有完整案例的 2 行（没有 NA 值）

在 thelatemail 评论后添加一些行......以长格式存储是个好主意。 如果您不想在表中看到 NA 值，您将想要使用长数据框，这里是 dplyr 方法

scores_gathered <- gather(scores, "class", "count", 3:6) 

scores_gathered <-scores_gathered %>%
  group_by(year, class) %>%
  summarize(sum = sum(count))

complete_list <- scores_gathered %>%
  drop_na(sum) %>%
  select(year, class) %>%
  mutate(has_students = "yes")