如何在R语言中仅对单引号内的单词添加换行符（保留数字）

需求说明 #

需要对SQL查询字符串做如下处理：

• 所有单引号包裹的非数字内容末尾添加换行符\n
• 单引号内的数字保持原样不修改

示例 #

原字符串：

"SELECT CASE WHEN V1 = '1' THEN 'word' WHEN V1 = '3' THEN 'another word' END"

期望结果：

"SELECT CASE WHEN V1 = '1' THEN 'word\n' WHEN V1 = '3' THEN 'another word\n' END"

问题分析 #

之前尝试的两种gsub写法存在明显问题：

• gsub("' ", "\n' ", string)：会误修改单引号内的数字（比如把'1'改成'1\n'）
• gsub("[a-z]' ", "\n' ", string)：会删除单词的最后一个字母，因为直接替换了末尾字母加单引号的组合

解决方案 #

使用正则捕获组精准匹配目标内容，避免误操作。以下是可行的gsub写法：

基础版本（匹配字母+空格的文本）

sql_str <- "SELECT CASE WHEN V1 = '1' THEN 'word' WHEN V1 = '3' THEN 'another word' END"
processed_str <- gsub("('([a-zA-Z ]+))'", "\\1\\n'", sql_str)

通用版本（匹配所有非数字文本）

如果单引号内有除字母、空格外的非数字字符（比如连字符、下划线），可以用更通用的正则：

processed_str <- gsub("('([^0-9']+))'", "\\1\\n'", sql_str)

正则解释 #

• ('([^0-9']+))'：
  • 外层捕获组('([^0-9']+))：捕获单引号开头，加上所有非数字、非单引号的内容（比如'word或'another word）
  • 末尾的'：匹配闭合的单引号
• \\1\\n'：将捕获到的内容保留，拼接\n后再补上闭合单引号，最终得到'文本内容\n'的格式

这样只会修改单引号内的非数字内容，单引号包裹的数字会被自动忽略，完全符合需求。

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