似乎無法得到量化GSUB與圖書館「qdap」和mgsub工作

Question

我一直在尋找這樣一個問題：

R: gsub, pattern = vector and replacement = vector

我想要一個簡單的例子，我無法得到它工作。

testList <- c("apple", "orange", "banana1", "apple4", "orange 8", "banana 10") 

repl <- c("apple", "orange", "banana") 

pat <- paste0("^", repl, "[[:space:]]*[[:digit:]]*$") 

result <- mgsub(pat, repl, testList) 

應該不是這樣的輸出：

"apple", "orange", "banana", "apple", "orange", "banana" 

Answer 1

您需要指定fixed = FALSE，默認是TRUE，它取代了圖案是，不使用正則表達式：

result <- mgsub(pat, repl, testList, fixed = FALSE) 
result 
# [1] "apple" "orange" "banana" "apple" "orange" "banana"