在編輯欄

Question

我想在窗體的列替換文本數據使用GSUB的：Defoe 12, 69, Johnson 40與Defoe 12, Defoe 69, Johnson 40用 -

latest$AGS24 <-gsub(pattern="(.*)([[:space:]])([[:digit:]]),([[:space:]])([[:digit:]]),([[:space:]])",replacement="\\1\\3\\1\\5",latest$AGS23) 

但這不是做的工作。任何幫助都感激不盡。

Answer 1

你的正則表達式不起作用，因爲[[:digit:]]表示一位數字，但不是多位數字。

您可以使用此方法：

test <- "Defoe 12, 69, Johnson 40" 

gsub("\\b(\\w+\\s)(\\d+,\\s)(?=\\d)", "\\1\\2\\1", test, perl = TRUE) 
# [1] "Defoe 12, Defoe 69, Johnson 40"