R语言如何删除指定多个列全部为NA的行？

报错原因排查 #

你收到unexpected ,、)语法报错的常见原因有两个：

• 未加载对应依赖包：drop_na()是tidyverse系列的函数，管道符%>%也需要相关包支持，基础R环境不识别该语法，会将参数中的逗号判定为非法符号
• 函数名拼写错误：注意是下划线分隔的drop_na()，不是点分隔的drop.na()

正确实现方法 #

方法1：tidyverse（推荐） #

首先加载依赖包：

# 二选一即可，加载tidyverse会自动包含dplyr、tidyr等所有常用数据处理包
library(dplyr)
# 或 library(tidyverse)

你要的“仅删除指定列全部为NA的行”本身就是drop_na()的默认逻辑，直接传入你要校验的列即可：

# 仅删除Tickets、Group两列全为NA的行
result <- df %>% 
  drop_na(Tickets, Group)

如果你需要校验除City、State、Date外的所有列，不需要手动列全列名，可简化写法：

# 排除City、State、Date三列，对剩余所有列执行“全为NA则删除”的校验
result <- df %>%
  drop_na(-c(City, State, Date))

方法2：基础R实现（无需加载第三方包） #

如果不想加载tidyverse包，可直接用基础R语法实现：

# 指定需要校验的列
check_cols <- c("Tickets", "Group")
# 保留校验列不全为NA的行
result <- df[!rowSums(is.na(df[check_cols])) == length(check_cols), ]

如果要校验除City、State、Date外的所有列，修改check_cols的定义即可：

check_cols <- setdiff(colnames(df), c("City", "State", "Date"))

效果验证 #

用你提供的示例数据运行上述代码，得到的结果和你预期完全一致：

注意：如果你的数据中空值不是R标准的NA类型，而是空字符串""或"NA"字符串，需要先统一转换为R的NA类型再执行上述操作，否则会识别失败。

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