# 先写成函数的形式,方便调用
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)))]}
# 非函数形式则更简短,其中 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)))]
转载自https://www.jianshu.com/p/26edb1b1e6c7
网友评论