gsub的求反|替换除某个向量中的字符串以外的所有内容

使用负先行断言。

ve <- c("N","A","A","A","N","ANN","NA","NFNFNAA","23","N","A","NN", "parnot", "important", "notall")
sub("^(?![NA]$).*", "NA", ve, perl=T)
# [1] "N"  "A"  "A"  "A"  "N"  "NA" "NA" "NA" "NA" "N"  "A"  "NA" "NA" "NA" "NA"

^(?![NA]$) 声称

-&燃气轮机;启动后 ^ 应该只有一个字母 [NA] 任何一个 N 或 A 后面应该是line end $ 。

.* 匹配所有字符

所以上面的正则表达式将匹配任何字符串,除了 N 或 A.

如果我们正在寻找固定匹配,则使用 %in% 带否定 ! 并将其分配给 'NA'

ve[!ve %in% c("A", "N", "NA")] <- 'NA'

请注意,在 R ,缺少的值没有引号 NA 未引用。希望它是一个不同的类别,并建议将类别名称更改为不同的名称,以避免将来在解析时出现混淆

这里有一个替代的regex解决方案

ve[!grepl("^[N|A]$", ve)] <- NA_character_

你可能仍然应该使用Akrun的解决方案。