提取具有可变长度的字符串结尾[重复]

Question

假设你有一个这样的字符向量：

x <- c('file_123',
       'file_456',
       'file_clean_67890',
       '123_file_1234')

并且您想提取最后一个"_" 之后的字符串结尾。你会怎么做？我想要的结果是：

"123"   "456"   "67890" "1234" 

如果您使用str_split，则无法获得最后一个，因为它们的长度不同：

> x %>% str_split(pattern = '_', simplify = T)
     [,1]   [,2]    [,3]  
[1,] "file" "123"   ""    
[2,] "file" "456"   ""    
[3,] "file" "clean" "6789"
[4,] "123"  "file"  "1234"

这个问题与this one 有点重复，不同之处在于我不知道拆分的数量。此外，您可以在最后一个下划线之前有数字字符，因此您不能只检测到这些字符。

Answer 1

将 stringr 中的 str_extract_all 与正则表达式一起使用。有关[:digit:]、+ 和$ 元字符的信息，请参阅?regular expression：

str_extract_all(x,"_[[:digit:]]+$")