如何高效移除字符串固定前缀与可变后缀？（R语言）

针对你提到的字符串处理场景，推荐用正则表达式实现，完全适配字符长度不一致的情况，处理10000条数据效率足够。以下是两种可行方案：

方案一：基础R函数（无需额外包） #

直接用sub函数匹配并替换，精准提取目标内容：

strings <- c("PMLR01TR060055PB01", "PMLR01BE080001PD01")
result <- sub("^PMLR01((TR|BE)\\d+).*$", "\\1", strings)
# 输出结果：[1] "TR060055" "BE080001"

正则说明：

• ^PMLR01 匹配开头的固定前缀
• ((TR|BE)\\d+) 捕获要保留的部分：TR或BE开头，后跟任意数量的数字
• .*$ 匹配后缀的所有内容
• 替换为\\1即可保留捕获的目标子串

方案二：stringr包（更直观） #

用str_extract直接提取符合模式的内容，代码更简洁：

library(stringr)
strings <- c("PMLR01TR060055PB01", "PMLR01BE080001PD01")
result <- str_extract(strings, "(TR|BE)\\d+")

这个方法跳过前缀匹配，直接定位TR/BE+数字的核心模式，即便前缀偶尔有变动也能正常工作，灵活性更强。

两种方案都能高效处理万级数据，完全覆盖需求：自动移除TR/BE前的所有内容，以及目标数字后的所有后缀。

内容的提问来源于stack exchange，提问作者milcs40