R - 提取具有模式的单词并用相反顺序的单词替换它们

Question

我有以下短语的字符串向量。

x <- c("I ate apples 100 already. No apples 50 uhmm" , "He has apples 20 yeah")

我希望结果是:

"I ate 100 apples already. No 50 apples uhmm" , "He has 20 apples yeah"

我想在向量的每个元素中用找到的单词的相反顺序替换 de 以下模式 "apples\\d{1,4}"。

有什么建议吗？

Answer 1

我们可以使用 gsub 将单词捕获为一组 (\\w+) 后跟空格，然后将数字捕获为另一组，将其替换为倒序反向引用

gsub("(\\w+)\\s+(\\d+)", "\\2 \\1", x)
#[1] "I ate 100 apples already. No 50 apples uhmm" "He has 20 apples yeah"