仅删除全部缺失(全部为NA)的行或列
代码如下:
# 先写成函数的形式,方便调用
removeRowsAllNa <- function(x){x[apply(x, 1, function(y) any(!is.na(y))),]} ###删除行
removeColsAllNa <- function(x){x[, apply(x, 2, function(y) any(!is.na(y)))]} ###删除列
data <- removeRowsAllNa(data)
# 非函数形式则更简短,其中 x 为 DataFrame 或 Matrix
x_RowsAllNa_removed = x[apply(x, 1, function(y) any(!is.na(y))),]
x_ColsAllNa_removed = x[, apply(x, 2, function(y) any(!is.na(y)))]