Supprimer des expressions spécifiques d'une chaîne

Question

J'essaie d'utiliser R pour certaines analyses de texte de base.

J'ai une colonne contenant un type de données complexe. Je souhaite conserver un tableau séparé que je peux utiliser pour supprimer certaines phrases de la première colonne de données.

J'ai essayé gsubfn mais sans succès.

Par exemple

dirtydata <- c("JOHN COURT","@PETER","BOB 22","RUPERT BODY CORPORATE") 
removefields <-c("COURT","BODY CORPORATE") 

Pourquoi

x <- gsubfn(removefields,"",dirtydata) 

fonctionne pas?

Espérant une sortie

c("JOHN ","@PETER","BOB 22","RUPERT ") 

Answer 1

S'il vous plaît trouver le code ci-dessous modifiées à l'aide base fonctions de R

dirtydata <- c("JOHN COURT","@PETER","BOB 22","RUPERT BODY CORPORATE") 
removefields <-c("COURT","BODY CORPORATE") 
pastedFields = paste0(removefields,collapse = "|") 
gsub(pastedFields,"",dirtydata) 

Answer 2

essayer.

dirtydata <- c("JOHN COURT","@PETER","BOB 22","RUPERT BODY CORPORATE") 
removefields <-c("COURT | BODY CORPORATE") 
x <- gsub(removefields, "", dirtydata) 

Answer 3

Ceci généralise pour tout ce que vous mettez dans removefields et efface les espaces blancs autour des chaînes à supprimer:

dirtydata <- c("JOHN COURT","@PETER","BOB 22","RUPERT BODY CORPORATE") 
removefields <- c("COURT","BODY CORPORATE") 
removefields <- paste0("\\s+", removefields, "\\s+", collapse = "|") 
x <- gsub(removefields, "", dirtydata) 

Answer 4

Nous pouvons utiliser tm package

dirtydata <- c("JOHN COURT","@PETER","BOB 22","RUPERT BODY CORPORATE") 
removefields <-c("COURT","BODY CORPORATE") 

library(tm) 
removeWords(dirtydata, removefields) 

> removeWords(dirtydata, removefields) 
[1] "JOHN " "@PETER" "BOB 22" "RUPERT "