R语言：向量目录号与数据框目录号的部分匹配实现库存管理

要实现准确编号向量num与现场库存编号df$Cat_no的匹配，核心是处理编号中的特殊字符，并根据现场编号的规律构建正确的正则表达式。

问题分析 #

现场库存编号Cat_no的特点是在准确编号前添加了前缀（如BAB、FF、CAD），部分编号与准确编号完全一致。需要筛选出所有包含准确编号的行，同时注意编号中的-是普通字符，统一转义处理能避免正则匹配错误。

解决方案代码 #

# 加载stringr包（也可用基础包grepl实现）
library(stringr)

# 定义数据（修正示例中编号的笔误，确保匹配逻辑成立）
num <- c( "B12-34","456-31",  "321E", "AB987-10", "12-34-AA", "ABC123", "XYZ1234")
Cat_no <- c("A123","BAB-B12-34","BAB12-35","FF456-12","FF456-31","CAD321E","SSAB987-10","MM12-34-AA", "MM12-35-AB","ABC123")
Item <- c("Plate","teaspoon","Desert spoon","Fork","Salad fork","napkin","lightbulb","Jug","Glass","Shaker")
df <- data.frame(Cat_no, Item, stringsAsFactors = FALSE)

# 构建匹配模式：将每个准确编号转义后用|连接，匹配任意一个编号作为子串
pattern <- str_c(str_escape(num), collapse = "|")

# 筛选匹配的行（在用库存）
active_inventory <- df[str_detect(df$Cat_no, pattern), ]

# 筛选未匹配的行（可停用库存）
inactive_inventory <- df[!str_detect(df$Cat_no, pattern), ]

代码说明 #

1. 转义特殊字符：用str_escape处理num中的特殊字符（如-），确保正则表达式将其视为普通字符，避免匹配逻辑混乱。
2. 构建匹配模式：用str_c将所有转义后的编号用|连接，表示“匹配任意一个准确编号”。
3. 筛选库存：
   • active_inventory：包含准确编号的在用库存，对应预期的6个结果。
   • inactive_inventory：未匹配的可停用库存。

基础包实现（无需stringr） #

如果不想加载第三方包，可用基础包grepl实现：

# 手动转义编号中的-为\\-
escaped_num <- gsub("-", "\\\\-", num)
pattern <- paste(escaped_num, collapse = "|")

active_inventory <- df[grepl(pattern, df$Cat_no), ]
inactive_inventory <- df[!grepl(pattern, df$Cat_no), ]

为什么之前的尝试失败？ #

如果直接用grepl(num[1], df$Cat_no)，对于原示例中的B12-34和BAB12-34，因为BAB12-34中并不包含B12-34这个完整子串（只有12-34），所以匹配失败。这说明现场编号的示例可能存在笔误（如缺少分隔符-），修正后即可得到预期的6个匹配结果。

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