如何在R语言的管道操作中使用!is.na()筛选非NA值？

先确认你的测试数据：

df <- data.frame(c1=c(NA,NA,NA,NA,NA,NA,'Account','Liability','NA'),
                 c2=c('FY','Period','Category','Currency','Location','Entity','Product','Prod1','Prod2'),
                 c3=c('2022','Jan','Group','FX','Location','AUS','*1000',35,45),
                 c4=c(NA,NA,NA,NA,NA,'Brunei','*1000',20,56))

你遇到的核心问题是：!是逻辑运算符而非函数，无法直接接在管道%>%后使用。以下是几种可行的解决方式：

方法1：直接用filter()筛选目标行 #

如果你的最终目的是保留第一列非NA的行，无需先执行select，直接用filter更简洁高效：

# 按列名筛选
df %>% filter(!is.na(c1))
# 按列索引筛选
df %>% filter(!is.na(.[[1]]))

筛选后还能继续追加管道操作，比如选择其他列：

df %>% filter(!is.na(c1)) %>% select(c2:c4)

方法2：用大括号包裹表达式 #

如果必须保留select(1)的步骤，可将!is.na(.)放在大括号{}中，让管道传递的对象.能被正确引用：

df %>% select(1) %>% {!is.na(.)}

这种写法也支持后续管道操作，比如基于这个判断筛选原数据：

df %>% filter({select(.,1) %>% is.na()} %>% `!`)

方法3：生成反义函数重复使用 #

如果需要频繁用到非NA判断，可借助purrr包的negate()函数，把is.na()转换成反义函数：

library(purrr)
not_na <- negate(is.na)

# 直接在管道中调用
df %>% select(1) %>% not_na()

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