R中删除导入Excel表格中的空行或空列

# 先写成函数的形式，方便调用

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