将字符串中第 N 次出现的字符替换为其他字符

考虑a = paste(1:10,collapse=", ")这导致

a = "1, 2, 3, 4, 5, 6, 7, 8, 9, 10"

我想替换每第 n 次（比如第 4 次）出现的“,”，并将其替换为其他内容（比如“\n”）。期望的输出是：

"1, 2, 3, 4\n 5, 6, 7, 8\n 9, 10"

我正在寻找使用的代码gsub（或类似的东西）和某种形式regular expression为了实现这个目标。

您可以更换((?:\d+, ){3}\d), with \1\n

您基本上捕获了 group1 和逗号中第四个逗号之前的所有内容，并将其替换为\1\n它将匹配的文本替换为 group1 文本和换行符，从而为您提供预期的结果。

正则表达式演示 https://regex101.com/r/zebqLb/1

R 代码演示 https://rextester.com/XCCR51033

gsub("((?:\\d+, ){3}\\d),", "\\1\n", "1, 2, 3, 4, 5, 6, 7, 8, 9, 10")

Prints,

[1] "1, 2, 3, 4\n 5, 6, 7, 8\n 9, 10"

Edit:

要将上述解决方案推广到任何文本，我们可以更改\d to [^,]

新的 R 代码演示 https://rextester.com/OQW75303

gsub("((?:[^,]+, ){3}[^,]+),", "\\1\n", "1, 2, 3, 4, 5, 6, 7, 8, 9, 10")
gsub("((?:[^,]+, ){3}[^,]+),", "\\1\n", "a, bb, ccc, dddd, 500, 600, 700, 800, 900, 1000")

Output,

[1] "1, 2, 3, 4\n 5, 6, 7, 8\n 9, 10"
[1] "a, bb, ccc, dddd\n 500, 600, 700, 800\n 900, 1000"