R语言字符串处理：移除Xy子串并将字母B后对应数字加1

你可以结合stringr包的正则替换功能实现需求，核心是用带回调函数的替换逻辑处理B后面的数字，同时先判断是否包含Xy子串。

步骤1：加载依赖包 #

# 安装依赖包（如果未安装）
if (!require(stringr)) install.packages("stringr")
library(stringr)

步骤2：构造示例输入数据 #

input_str <- c(
  "A11B3XyC4",
  "A1B14C23XyC16",
  "B14C23XyC16D3",
  "B14C23C16D3"
)

步骤3：定义处理函数并执行 #

# 自定义字符串处理函数
process_str <- function(x) {
  # 判断是否包含Xy子串，不包含直接返回原字符串
  if (str_detect(x, "Xy")) {
    # 移除Xy子串
    x <- str_remove(x, "Xy")
    # 匹配B后面的数字，加1后替换回原位置
    x <- str_replace_all(x, "B(\\d+)", function(match_res) {
      num <- as.integer(str_extract(match_res, "\\d+"))
      paste0("B", num + 1)
    })
  }
  return(x)
}

# 批量处理所有输入字符串
output_str <- sapply(input_str, process_str, USE.NAMES = FALSE)

结果验证 #

print(output_str)
# 输出结果和预期完全一致：
# [1] "A11B4C4"      "A1B15C23C16"  "B15C23C16D3"  "B14C23C16D3"

逻辑说明 #

• 用str_detect()先做条件判断，无Xy的字符串直接返回，不做修改
• 若存在Xy，先用str_remove()移除目标子串，需要移除所有Xy可替换为str_remove_all()
• 正则B(\\d+)匹配所有字母B后紧跟的连续数字，通过回调函数将匹配到的数字转整数加1，再拼接回B完成替换

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