似乎无法使矢量化 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"

似乎无法使矢量化 gsub 与库 "qdap" 和 mgsub 一起工作

Can't seem to get vectorized gsub to work with library "qdap" and mgsub

regex

r

vectorization

qdap