3位数字后删除字符串的一部分

Question

我想通过在第一个3位数之后切割每个字符串来代替列表中的字符串。

a <- c("MTH314PHY410","LB471LB472","PHY472CHM141")

我希望它看起来像

a <- c("MTH314","LB471","PHY472")

我尝试过类似的东西

b <- gsub("[100-999].*","",a)

，但它返回c（“ mth”，“ lb”，“ phy”）没有第一个数字

Answer 1

基于stringr :: str_remove的可能解决方案：

library(stringr)

a <- c("MTH314PHY410","LB471LB472","PHY472CHM141")

str_remove(a, "(?<=\\d{3}).*")

#> [1] "MTH314" "LB471"  "PHY472"

Answer 2

c("MTH314PHY410","LB471LB472","PHY472CHM141") %>% 
    stringr::str_extract('.+?\\d{3}')

[1] "MTH314" "LB471"  "PHY472"