在R中没有循环的情况下删除data.frame中所有NA的所有列[重复]

Question

我想删除所有NA 的列。我有两种解决方案，如下所示，但它们都在底层使用循环结构。

我想知道是否有不需要使用...apply 或for 循环的更快解决方案？

PS.如果我想删除所有带有NA 的行，我可以避免像这样的循环：r[rowSums(is.na(r)) != ncol(r), ] 但类似的解决方案可以应用于列吗？

r <- data.frame(AA = c(1, NA, 3), BB = c(NA, NA, NA), CC = c(3, NA, 5) )

r[sapply(r, function(r) !all(is.na(r)))] # Solution 1

Filter(function(x) !all(is.na(x)), r)    # Solution 2

Answer 1

类似于rowSums 用于行，我们可以使用colSums 用于列

r[, colSums(is.na(r)) != nrow(r)]

#  AA CC
#1  1  3
#2 NA NA
#3  3  5