Comment puis-je supprimer tous les éléments d'un vecteur correspondant à un motif?

Question

ncvars = c("prate", "arate", "wpd", "Atm1", "Atm2", "area", "fC", bas__1", "bas__asssaa", "bas__Clow", "bas__g2333e", "baser__arge", "bas__Aow", "bas__Aass") 

Maintenant, je veux supprimer tous les éléments qui sont

• exactement le nom area
• matchs cette chaîne bas__

Comment puis-je faire cela?

---

Essai

patterns <- c("bas__", "area") 
ncvars %>% 
    filter(.,grepl(paste(patterns, collapse="|"))) 

Answer 1

Vous pouvez simplement nier grepl avec ! et aussi pour correspondre exactement, vous avez besoin ^..$ points d'ancrage pour correspondre au début (^) et à la fin ($) de chaîne:

ncvars[!grepl('^area$|bas__', ncvars)] 

---

ncvars 
# [1] "prate"  "arate"  "wpd"   "Atm1"  "Atm2"  "area"  "fC"   "bas__1"  
# [9] "bas__asssaa" "bas__Clow" "bas__g2333e" "baser__arge" "bas__Aow" "bas__Aass" 
ncvars[!grepl('^area$|bas__', ncvars)] 
# [1] "prate"  "arate"  "wpd"   "Atm1"  "Atm2"  "fC"   "baser__arge" 

Answer 2

Une solution tidyverse:

library(stringr) 
str_replace(ncvars, pattern = "^area$|^bas__", replacement = "") 
# [1] "prate"  "arate"  "wpd"   "Atm1"  
# [5] "Atm2"  ""   "fC"   "1"   
# [9] "asssaa"  "Clow"  "g2333e"  "baser__arge" 
# [13] "Aow"   "Aass"