从向量中移除字符串/单词

Question

这就是我想要达到的目标

我阅读了基于模式的文件列表，然后我不得不读取文件，除了一些我试图定义的模式，我不知道如何实现。走了很长一段路这就是我要做的

bam.files <-list.files("MACS2_peak_call/phsc_peaks/",pattern = ".bam$")
 bam.files

 bam.files
 [1] "Blast1.bam"  "Blast10.bam" "Blast11.bam" "Blast12.bam" "Blast13.bam" "Blast14.bam" "Blast15.bam"
 [8] "Blast16.bam" "Blast17.bam" "Blast18.bam" "Blast19.bam" "Blast2.bam"  "Blast20.bam" "Blast21.bam"
[15] "Blast22.bam" "Blast23.bam" "Blast3.bam"  "Blast4.bam"  "Blast5.bam"  "Blast6.bam"  "Blast7.bam" 
[22] "Blast8.bam"  "Blast9.bam"  "HSC1.bam"    "HSC2.bam"    "HSC3.bam"    "HSC4.bam"    "HSC5.bam"   
[29] "HSC6.bam"    "HSC7.bam"    "LSC1.bam"    "LSC2.bam"    "LSC3.bam"    "LSC4.bam"    "LSC5.bam"   
[36] "LSC6.bam"    "LSC7.bam"    "LSC8.bam"    "Mono1.bam"   "Mono2.bam"   "Mono3.bam"   "Mono4.bam"  
[43] "Mono5.bam"   "Mono6.bam"   "pHSC1.bam"   "pHSC10.bam"  "pHSC11.bam"  "pHSC12.bam"  "pHSC13.bam" 
[50] "pHSC14.bam"  "pHSC15.bam"  "pHSC16.bam"  "pHSC17.bam"  "pHSC18.bam"  "pHSC19.bam"  "pHSC2.bam"  
[57] "pHSC3.bam"   "pHSC4.bam"   "pHSC5.bam"   "pHSC6.bam"   "pHSC7.bam"   "pHSC8.bam"   "pHSC9.bam" 

我的目标是删除任何包含单词"Mono“的文件。

若要执行此操作，请执行以下代码。但是在这里，我正在制作另一个名为remove的字符向量，然后在我需要删除的每个文件名中执行copy+paste。

remove <- c ("Mono1.bam", "Mono2.bam", "Mono3.bam","Mono4.bam","Mono5.bam","Mono6.bam")
     bam.files %in% remove
     bam.files [! bam.files %in% remove]

如何更好地完成上述工作?任何帮助或建议都将不胜感激。

Answer 1

grep("Mono", bam.files)将返回包含"Mono“的bam.files索引。但是，您可能希望增加模式的复杂性，比如使用正则表达式。

Answer 2

尝尝这个

bam.files <- bam.files[unlist(lapply(bam.files, \(x) !grepl('Mono', x)))]

Answer 3

尝试：

new_list <- bam.files[-grep('Mono',bam.files)]