R语言：检测指定列空行并删除，求更优实现方法

我目前用以下代码实现需求，但想知道有没有更简洁高效的写法：

# 定位指定列的空行位置
which(msUS$Gender =="",arr.ind = TRUE)
which(msUS$Education_Level=="",arr.ind = TRUE)
which(msUS$Industry=="",arr.ind = TRUE)
# 删除空行
msUS <-msUS[!(msUS$Gender==""),]
msUS <-msUS[!(msUS$Education_Level==""),]
msUS <-msUS[!(msUS$Industry==""),]
# 检查行列数

更简洁高效的实现方法 #

方法一：Base R 原生简洁写法 #

不用重复多次筛选，一次性完成逻辑判断和行筛选，减少数据重复处理的开销：

# 定义需要检查的目标列
target_cols <- c("Gender", "Education_Level", "Industry")

# 生成逻辑向量：标记所有目标列都不为空的行
keep_rows <- apply(msUS[target_cols] != "", 1, all)

# 筛选保留符合条件的行
msUS_clean <- msUS[keep_rows, ]

# 如需查看所有要删除的空行索引，直接用
# which(!keep_rows)

这种写法只需要一次遍历判断所有目标列，比原代码三次单独筛选更高效，尤其当数据量较大时优势明显。

方法二：Tidyverse 风格写法（可读性更强） #

如果日常使用dplyr等tidyverse工具包，用across()配合filter()可以写出更直观的代码：

library(dplyr)

# 先定义目标列
target_cols <- c("Gender", "Education_Level", "Industry")

# 一行完成筛选：保留所有目标列都不为空的行
msUS_clean <- msUS %>%
  filter(across(all_of(target_cols), ~ .x != ""))

# 如需查看含空值的行，可这样写
# msUS %>% filter(across(all_of(target_cols), ~ .x == "") %>% rowSums() > 0)

这种写法逻辑清晰，后续维护或修改目标列时，只需要调整target_cols即可，代码扩展性更好。

内容的提问来源于stack exchange，提问作者Alex