r - 在每第 N 个单词后插入字符串

Question

我正在尝试编辑数据框一行中的每个字符串。例如这个数据框:

df <- data.frame( words = c("Three can keep a secret, if two of them are dead."))

我的目标是在每三个单词后填充一个“\b”，因此我的数据框应如下所示:

df2 <- data.frame(words = c("Three can keep \b a secret, if \b two of them \b are dead."))

我已经尝试使用 gsub() 和模式“\\s{3}”，但它不起作用。这个操作的正确表达式是怎样的？

Answer 1

你也必须考虑到这些字母。这应该让你得到你想要的东西

df2 <- within(df1, words <- gsub("(([A-Za-z1-9.,']+\\s){3})","\\1\b ", words))

如果你有很多标点符号需要处理，这可能会更好(我只是在寻找 . 和 ' 以上:

df2 <- within(df1, words <- gsub("((\\S+\\s){3})","\\1\b ", words))