我对regex比较陌生，所以如果这个问题微不足道，请原谅我.我想使用正则表达式在字符串的每个字母之间加一个逗号，例如:
x <- "ABCD"
我想要得到
"A,B,C,D"
如果我可以使用gsub、sub或相关函数对任意数量字符的字符串进行向量运算，那就太好了.
我试过了
> sub("(\\w)", "\\1,", x)
[1] "A,BCD"
> gsub("(\\w)", "\\1,", x)
[1] "A,B,C,D,"
> gsub("(\\w)(\\w{1})$", "\\1,\\2", x)
[1] "ABC,D"
您可以使用
> gsub("(.)(?=.)", "\\1,", x, perl=TRUE)
[1] "A,B,C,D"
(.)(?=.)正则表达式匹配将其捕获到组1中的任何字符(带有(.))，后面必须跟任何单个字符((?=.))是一个正向先行，它需要一个字符紧靠当前位置的右侧).
解决方案的变化:
> gsub("(.)(?!$)", "\\1,", x, perl=TRUE)
## Or with stringr:
## stringr::str_replace_all(x, "(.)(?!$)", "\\1,")
[1] "A,B,C,D"
在这里，如果字符串位置结束，则(?!$)将导致匹配失败.
请参阅R demo online:
x <- "ABCD"
gsub("(.)(?=.)", "\\1,", x, perl=TRUE)
# => [1] "A,B,C,D"
gsub("(.)(?!$)", "\\1,", x, perl=TRUE)
# => [1] "A,B,C,D"
stringr::str_replace_all(x, "(.)(?!$)", "\\1,")
# => [1] "A,B,C,D"