如何按列删除所有具有“NA”值的单元格

Question

这个问题不是重复的，因为我的data.frame 在所有列中没有相同数量的NA 值，因此该问题中提到的解决方案不起作用。

我有一个 data.frame 有很多 NA 值，我想删除所有具有 NA 值的单元格（重要：不是行或列，单元格）。原来的样子是这样的：

A  B
1  NA
NA 2
2  NA
NA NA
NA NA
NA 4
3  5

想要的结果如下所示：

A  B
1  2
2  4 
3  5

列数必须保持不变，但值是否保持在同一行上并不重要。它们可以向上移动。

我可以想象一个可以删除条件为 NA 的所有单元格（可能是 apply）并得到结果。或者也许是一个简单的排序？

谢谢。

更新：

A   B   C
1       3
    2   
4       3

    1   2

3       5
        4
    9   
7       1

Answer 1

OP 已请求按列删除NAs，但指出每列中可能有不同数量的 NA。

这可以使用data.table分两步解决：

library(data.table)
# step 1: coerce to data.table in place, move NAs to the bottom of each column, 
# maintain the original order of non-NA values
result <- data.table(DF)[, lapply(.SD, function(x) x[order(is.na(x))])]

     A  B  C
 1:  1  2  3
 2:  4  1  3
 3:  3  9  2
 4:  7 NA  5
 5: NA NA  4
 6: NA NA  1
 7: NA NA NA
 8: NA NA NA
 9: NA NA NA
10: NA NA NA

# step 2: trim result
# either using Reduce
result[!result[, Reduce(`&`, lapply(.SD, is.na))]]

# or using zoo::na.trim()
zoo::na.trim(result, is.na = "all")

    A  B C
1:  1  2 3
2:  4  1 3
3:  3  9 2
4:  7 NA 5
5: NA NA 4
6: NA NA 1

因此，每个列的末尾不可避免地会有一些NAs，因为data.frame中的所有列都具有相同的长度。

或者，或者，可以使用is.na 参数到na.trim() 只保留完整的行：

zoo::na.trim(result, is.na = "any")

   A B C
1: 1 2 3
2: 4 1 3
3: 3 9 2

另一种解决方案

如前所述，data.frames 和 cbind() 期望所有列向量具有相同的长度。这是一个没有data.table 的替代解决方案，它使用rowr 包中的cbind.fill() 函数，该函数用fill 值填充向量直到相同的长度：

setNames(do.call(function(...) rowr::cbind.fill(..., fill = NA), lapply(DF, na.omit)),
         colnames(DF))

   A  B C
1  1  2 3
2  4  1 3
3  3  9 2
4  7 NA 5
5 NA NA 4
6 NA NA 1

数据

由 OP 在更新中提供：

DF <- structure(list(A = c(1L, NA, 4L, NA, NA, NA, 3L, NA, NA, 7L), 
    B = c(NA, 2L, NA, NA, 1L, NA, NA, NA, 9L, NA), C = c(3L, 
    NA, 3L, NA, 2L, NA, 5L, 4L, NA, 1L)), .Names = c("A", "B", 
"C"), row.names = c(NA, -10L), class = "data.frame")

Answer 2

您可以尝试，基于@UweBlock 的数据和您更新的问题。

dat=as.data.frame(na.omit(apply(dat,2,function (x) x[order(is.na(x))])))

dat
  A B C
1 1 2 3
2 4 1 3
3 3 9 2