如何识别没有英文字母，数字和“_”的字符串并替换剩下的字符？

Question

我有以下数据

s <- c("コハニー", "Cat", "Blue", "زبان","D-1") 

我希望排除那些没有在英文字母和喜欢的东西“ABC”替换他们的数据。所以我理想输出是

"ABC" "Cat" "Blue" "ABC" "D-1" 

我用下面的代码，但它无法识别_和-。如何在Regex中澄清_和-？

s[!grepl('^[A-Za-z0-9_]+$', s)] <- 'ABC' 

这给了我：

ABC" "Cat" "Blue" "ABC" "ABC" 

Answer 1

你只需要在末尾添加-和_，所以它应该是'^[A-Za-z0-9_-]+$

我总是发现regexr.com成为检验出真正有用的这些问题和更多关于正则表达式的知识。

s <- c("????", "Cat", "Blue", "????","D-1") 

s[!grepl('^[A-Za-z0-9\\_\\-]+$', s)] <- 'ABC' 

s 
#> [1] "ABC" "Cat" "Blue" "ABC" "D-1" 

Answer 2

为了增强可读性，我建议使用[：alnum：]赶上字母数字字符，其次是要保持明确的非字母数字字符（如“_-”），像这样：

s <- c("コハニー", "Cat", "Blue", "زبان","D-1") 
s[!grepl('^[[:alnum:]_-]+$', s)] <- '' 
s 

Answer 3

您可以直接在您的角色类中添加_和-（无需转义）。连字符-并不需要进行转义如果在课堂上，即第一个或最后一个字符

[A-Za-z0-9_-] 

所以，你可以试试这个：

s[!grepl('^[A-Za-z0-9_-]+$', s)] <- 'ABC' 

看看这个R Demo