Supprimer des champs avec des caractères spéciaux

Question

J'essaie de supprimer tous les champs qui ont des caractères spéciaux (@?.* etc) dans leur texte.

Je pense que je devrais utiliser

Filter(function(x) {grepl('|[^[:punct:]]).*?', x)} == FALSE, data$V1) 

où data$V1 contient mes données. Cependant, il semble que

grepl('|[^[:punct:]]).*?', x) 

échoue avec des exemples triviaux comme

grepl('|[^[:punct:]]).*?', 'M') 

qui délivre TRUE même si M n'a pas de caractères spéciaux. Comment dois-je utiliser grepl pour supprimer des champs avec des caractères spéciaux d'une colonne de données?

Answer 1

Pour rechercher "caractères spéciaux", vous pouvez rechercher la négation des caractères alphanumériques en tant que tels:

grepl('[^[:alnum:]_]+', c('m','m@','M9*')) 
# [1] FALSE TRUE TRUE 

ou utiliser le symbole \W

grepl('\\W+', c('m','m@','M9*')) 
# [1] FALSE TRUE TRUE 

\W est expliqué dans le regular expression help:

"Le symbole \ w correspond à un caractère « mot »(un synonyme de [[:alnum:]_], une extension) et \ W est la négation ([^[:alnum:]_]̀)."

Answer 2

Le démarrage d'une expression régulière avec | la rend littéralement inutile car elle correspond à quoi que ce soit.

Voir ce JS exemple:

console.log('With the starting pipe => ' + /|([\W]).*?/.test('M')); 
 
console.log('Without the starting pipe => ' + /([\W]).*?/.test('M'));

Answer 3

Tout simplement ceux à l'intérieur [...] et fournir ce à l'argument de modèle à grepl, puis nier.

data$V1[!grepl("[@?.*]", data$V1)] 

Par exemple,

> x <- c("M", "3@3", "8.*x") 
> x[!grepl("[@?.*]", x)] 
[1] "M"