如何替换单引号间文本并保留单引号（R语言stringr工具）

问题场景 #

现有输入文本和替换目标：

input <- "this is my 'example'"
change <- "test"

需要将单引号之间的文本替换为change的值，预期输出为"this is my 'test'"。此前使用stringr::str_replace(input, "['].*", change)会丢失单引号，得到"this is my test"，不符合需求。

可行方案 #

可以通过两种正则表达式方式实现保留单引号并替换中间内容：

方法1：捕获单引号边界并替换 #

利用正则捕获组匹配单引号包裹的内容，替换时重新拼接单引号和目标值：

library(stringr)

input <- "this is my 'example'"
change <- "test"

result <- str_replace(input, "'(.*?)'", paste0("'", change, "'"))
# 输出："this is my 'test'"

• 正则'(.*?)'：'匹配左单引号，(.*?)非贪婪捕获引号内的所有文本，'匹配右单引号；
• paste0("'", change, "'")生成带单引号的替换字符串，确保引号被保留。

方法2：使用正则断言匹配引号内文本 #

通过正向预查/反向断言，仅匹配单引号之间的内容，替换时不会改动引号本身：

library(stringr)

input <- "this is my 'example'"
change <- "test"

result <- str_replace(input, "(?<=')[^']*(?=')", change)
# 输出："this is my 'test'"

• (?<=')：反向断言，确保匹配位置左侧是单引号；
• [^']*：匹配所有非单引号的字符（即引号内的内容）；
• (?=')：正向断言，确保匹配位置右侧是单引号；
• 直接替换匹配到的内容为change，引号因未被匹配而自动保留。

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