别担心呀，作为编程新手，刚接触字符串处理时，零散知识点凑不起来太正常了！我来帮你一步步搞定这个需求——精准替换方括号里的数字，同时完全保留像299这种不在方括号内的数字。

首先，咱们先明确核心需求：找到所有[数字]格式的内容，把括号里的数字换成你指定的内容，其他部分（包括非括号内的数字）原封不动保留。

方法一：用stringr包（新手友好，语法更直观） #

stringr是R里处理字符串的常用包，语法简单易懂，适合新手。

1. 先安装并加载包（如果还没装的话）：

install.packages("stringr")
library(stringr)

2. 定义你的查找替换表，把要替换的数字和目标内容对应起来：

# 示例：把[438]换成[Apple]，[82]换成[Banana]
lookup_table <- c(
  "438" = "Apple",
  "82" = "Banana"
)

3. 编写替换代码：

# 你的原始字符串
string <- "Test test [438] test. Test 299, test [82]."

# 执行替换逻辑
result <- str_replace_all(string, "\\[(\\d+)\\]", function(match) {
  # 从匹配到的[xxx]里提取纯数字
  num <- str_extract(match, "\\d+")
  # 从查找表里获取对应的替换内容
  replacement <- lookup_table[num]
  # 如果找不到对应值，就保留原内容；否则替换后放回括号里
  ifelse(is.na(replacement), match, paste0("[", replacement, "]"))
})

# 查看最终结果
print(result)

运行后你会得到：

"Test test [Apple] test. Test 299, test [Banana]."

方法二：Base R版本（不用额外装包） #

如果不想安装新包，用Base R的gsub也能实现：

lookup_table <- c("438" = "Apple", "82" = "Banana")
string <- "Test test [438] test. Test 299, test [82]."

result <- gsub("\\[(\\d+)\\]", function(x) {
  # 提取括号内的数字
  num <- sub("\\[(\\d+)\\]", "\\1", x)
  # 匹配替换内容
  replacement <- lookup_table[num]
  # 处理找不到匹配值的情况
  ifelse(is.na(replacement), x, paste0("[", replacement, "]"))
}, string)

print(result)

关键知识点解释 #

• 正则表达式\\[(\\d+)\\]：专门匹配[数字]格式的内容。\\[和\\]是转义后的方括号（因为方括号在正则里有特殊含义），(\\d+)用来捕获括号里的数字。
• 自定义替换函数：每次匹配到[数字]时，会自动调用这个函数，我们先提取数字，再去查找表里找对应的替换值，最后把替换后的内容放回括号中（如果你不需要保留括号，直接返回replacement就行）。

这样不管你的原始字符串多长，都能精准替换方括号内的数字，完全不影响其他数字哦～

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