R语言中批量替换特定格式字符串为Markdown格式的问题

可以用stringr包的str_replace_all()配合正则表达式匹配组实现一次性批量替换，不用多次调用替换函数，高效解决多目标内容的替换需求。

方法1：命名规则列表批量替换 #

把需要替换的模式和对应格式做成命名列表，str_replace_all()会自动遍历所有规则完成替换：

library(stringr)

# 示例输入字符串
input_str <- "这是{@b 加粗内容}，还有{@link 链接目标}，再试试{@b 另一处加粗}和{@link 另一个链接}"

# 定义替换规则：键是正则模式，值是替换格式
replace_rules <- c(
  "\\{@b (.*?)\\}" = "**\\1**",
  "\\{@link (.*?)\\}" = "[[\\1]]"
)

# 执行批量替换
output_str <- str_replace_all(input_str, replace_rules)

# 查看结果
cat(output_str)

运行后输出：

这是加粗内容，还有[[链接目标]]，再试试另一处加粗和[[另一个链接]]

方法2：正则匹配+自定义替换逻辑 #

如果需要更灵活的判断逻辑，可以用单个正则匹配所有{@xxx value}格式，再通过函数参数区分替换类型：

library(stringr)

input_str <- "混合测试：{@b 粗体文本}，{@link 链接内容}，{@b 又粗体}"

output_str <- str_replace_all(input_str, "\\{@(b|link) (.*?)\\}", function(match) {
  type <- match[2]
  content <- match[3]
  if (type == "b") {
    paste0("**", content, "**")
  } else if (type == "link") {
    paste0("[[", content, "]]")
  } else {
    match[1] # 不匹配的格式原样返回
  }
})

cat(output_str)

关键说明 #

• 正则中的(.*?)是非贪婪匹配，能避免多个替换格式嵌套或连续时的匹配错误（比如{@b 文本}{@link 链接}不会被误识别为一个整体）
• 两种方法都能处理同一字符串中的多个目标内容，无需拆分提取再拼接，代码简洁高效

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