r - 将字符串中的文本移动到末尾

Question

假设我有这样的字符串:

PH&N 2015 LifeTime Series D
PH&N 2020 LifeTime Series D
PH&N 2025 LifeTime Series D
PH&N 2030 LifeTime Series D
PH&N 2035 LifeTime Series D
PH&N 2040 LifeTime Series D
PH&N 2045 LifeTime Series D

如何使用 R 将数字像这样移动到末尾:

PH&N LifeTime Series D 2015
PH&N LifeTime Series D 2020
PH&N LifeTime Series D 2025
... and so on

最好使用 gsub() 解决方案。

Answer 1

 gsub("([[:alpha:]]+\\s)([[:digit:]]+)\\s(.+)", "\\1\\3 \\2", dat2$V1)

[1] “PH&N LifeTime 系列 D2015” “PH&N LifeTime 系列 D2020” “PH&N LifeTime 系列 D2025” “PH&N LifeTime 系列 D2030” “PH&N LifeTime 系列 D2035” “PH&N LifeTime 系列 D2040”[7]《PH&N LifeTime系列D2045》

我看到贾斯汀问为什么他的工作和同样的问题适用于我的解决方案。这似乎更正确:

gsub("([[:alpha:][:punct:]]+\\s)([[:digit:]]+)\\s(.+)", "\\1\\3 \\2", dat2$V1)