如何用正则表达式在字符串字符间添加逗号？（R语言实现）

正则表达式方案（用gsub） #

你之前的尝试里，gsub("(\\w)", "\\1,", x)会给每个字符都加逗号，包括最后一个，所以多了末尾的冗余逗号。可以用正向预查来规避这个问题——只给后面还有字符的目标字符添加逗号：

x <- "ABCD"
gsub("(\\w)(?=\\w)", "\\1,", x, perl = TRUE)
# 输出: "A,B,C,D"

简单解释：

• (\\w)：匹配单个字母/数字字符，并将其捕获到分组1中
• (?=\\w)：正向预查规则，确保当前匹配的字符后面还跟着另一个字母/数字字符（这个规则只做判断，不会消耗后续字符）
• 替换为\\1,：把捕获到的字符加上逗号，最后一个字符因为后面没有其他字符，不会被匹配替换，自然就不会多出来末尾的逗号

如果要处理任意长度的字符串向量，直接把向量传入函数即可：

x_vec <- c("ABCD", "XYZ", "12345")
gsub("(\\w)(?=\\w)", "\\1,", x_vec, perl = TRUE)
# 输出: "A,B,C,D" "X,Y,Z" "1,2,3,4,5"

更直观的非正则方案 #

如果觉得正则逻辑有点绕，也可以用拆分+拼接的思路，代码更易懂：

paste(strsplit(x, "")[[1]], collapse = ",")
# 输出: "A,B,C,D"

处理字符串向量的话，搭配sapply批量操作：

x_vec <- c("ABCD", "XYZ", "12345")
sapply(x_vec, function(s) paste(strsplit(s, "")[[1]], collapse = ","))
# 输出:
#       ABCD         XYZ       12345 
# "A,B,C,D"   "X,Y,Z" "1,2,3,4,5"

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