R语言提取DataFrame中含/不含冒号分隔符的行，排除NA干扰

前置预处理 #

首先将数据中字符串形式的"<NA>"转换为R原生的缺失值，方便后续逻辑判断：

# 将所有列的"<NA>"字符串替换为真实NA
df[df == "<NA>"] <- NA

条件1：提取任意列存在非NA且不带:分隔符的行 #

按行遍历判断，只要行内存在至少一个非NA值不包含:即保留：

cond1 <- apply(df, 1, function(x) {
  any(!is.na(x) & !grepl(":", x))
})
df_result1 <- df[cond1, ]

条件2：提取所有非NA值均带有:分隔符的行 #

按行遍历判断，行内所有非NA值都包含:即保留：

cond2 <- apply(df, 1, function(x) {
  all(is.na(x) | grepl(":", x))
})
df_result2 <- df[cond2, ]

原代码问题说明 #

1. 仅判断了A1~D1四列，未覆盖所有字段，会漏掉其他列存在无冒号值的行
2. 未排除缺失值干扰：grepl(":", NA)会返回NA，逻辑运算中NA会被识别为真值，导致包含NA的行被误提取

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