извлечения текста из строки в R

Question

У меня есть много строк, которые все ищут подобное, например:

x1= "Aaaa_11111_AA_Whatiwant.txt" 
x2= "Bbbb_11111_BBBB_Whatiwanttoo.txt" 
x3= "Ccc_22222_CC_Whatiwa.txt" 

Я хотел бы извлечь: WhatiwantWhatiwanttoo, и Whatiwa в R.

Я начал с substring(x1,15,23), но я не знаю, как его обобщить. Как я могу всегда извлекать часть между последними _ и .txt?

Спасибо!

Answer 1

Вы можете использовать regexp группы захвата:

gsub(".*_([^_]*)\\.txt","\\1",x1) 

Answer 2

Вы также можете использовать библиотеку stringr с Funtions как str_extract (и многие другие возможности) только в случае, если вы не входите в регулярные выражения. Он чрезвычайно прост в использовании

x1= "Aaaa_11111_AA_Whatiwant.txt" 
x2= "Bbbb_11111_BBBB_Whatiwanttoo.txt" 
x3= "Ccc_22222_CC_Whatiwa.txt" 
library(stringr) 
patron <- "(What)[a-z]+" 
str_extract(x1, patron) 
## [1] "Whatiwant" 
str_extract(x2, patron) 
## [1] "Whatiwanttoo" 
str_extract(x3, patron) 
## [1] "Whatiwa"