如何将括号内字符移至字符串其他位置？R语言字符串替换求助

你的问题核心是正则表达式写法错误，以及未正确利用捕获组的反向引用实现内容提取替换。

问题分析 #

• 原正则"Ref Other Spot ([.])"中的[.]仅匹配单个点号，无法覆盖括号内的任意字符；
• 没有正确匹配括号内的完整内容，也未通过捕获组提取目标内容用于替换。

正确代码 #

使用str_replace_all（或str_replace，因每个字符串仅含一组括号），配合正确的正则捕获组与反向引用：

library(dplyr)
library(stringr)

# 构造测试数据
df <- tibble(
  ref1 = c("Ref Other Spot (Long Line)", "Ref Other Spot (Short)", "Ref Other Spot (Terrier Join)"),
  ref2 = c("Ref Other Spot (Red)", NA, "Ref Other Spot (Blue)"),
  ref3 = NA,
  ref4 = "Ref Other Spot (Small)"
)

# 批量替换多列
df_updated <- df %>%
  mutate(across(ref1:ref4, ~ str_replace_all(.x, "Ref Other Spot \\((.*?)\\)", "Ref to \\1")))

print(df_updated)

正则说明 #

• \\((.*?)\\)：精准匹配括号及内部内容，其中：
  • \\(和\\)：转义后匹配实际的括号（括号在正则中属于特殊字符）；
  • (.*?)：非贪婪捕获组，匹配括号内的所有字符（直到遇到右括号停止，避免多括号场景的错误匹配）；
• "Ref to \\1"：替换为固定前缀Ref to，加上第一个捕获组\\1提取的括号内原内容。

运行结果 #

处理后的数据如下：

# A tibble: 3 × 4
  ref1               ref2          ref3  ref4         
  <chr>              <chr>         <chr> <chr>        
1 "Ref to Long Line" "Ref to Red"  NA    "Ref to Small"
2 "Ref to Short"     NA            NA    "Ref to Small"
3 "Ref to Terrier Join" "Ref to Blue" NA    "Ref to Small"

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