在没有库的帮助和不使用正则表达式的情况下映射子字符串

Question

我有一堆像

这样的字符串

string_example="hi 5eme elephant 4eme dark I am"

我想映射这些值

values_to_map=c("2eme","3eme","4eme","5eme")

给那些

new_values=c("2e","3e","4e","5e")

这是一个效果很好的解决方案，但我发现它有点乏味，我想知道是否有更简单的方法无需其他库的帮助（出于某些原因，我需要只使用 RBase 除了 fastmatch 库）。我也不想使用正则表达式，因为我得到了数千万个字符串，而且速度很慢。

library (fastmatch)
string_example="hi 5eme elephant 4eme dark I am"
string_example=str_split(string_example,pattern = " ")[[1]]
to_change=fmatch(string_example,values_to_map)

index=which(!is.na(to_change))
values=new_values[to_change[!is.na(to_change)]]
string_example[index]=values

Answer 1

我不理解fastmatch 的需要：

`%||%` <- function (x, y) { if (is.na(x)) { y } else { x } }

string_example <- "hi 5eme elephant 4eme dark I am"
values_to_map <- c("2eme","3eme","4eme","5eme")
new_values <- c("2e","3e","4e","5e")
new_values <- setNames(new_values, values_to_map)

spl <- strsplit(string_example, " ")[[1]] 
spl <- unname(sapply(spl, function(x) {
  new_values[x] %||% x
})) 
spl <- paste0(spl, collapse=" ")
spl
## [1] "hi 5e elephant 4e dark I am"

这是非常脆弱的，并且做出了很多假设，主要是由于一个非常模糊的问题以及空洞的要求。如果是家庭作业，请把你的导师指给这里，这样他们就可以看到他们的指导有多差。

这个：

vapply(string_example, function(spl) {
  spl <- strsplit(spl, " ")[[1]] 
  spl <- unname(vapply(spl, function(x) {
    new_values[x] %||% x
  }, character(1))) 
  paste0(spl, collapse=" ")
}, character(1), USE.NAMES=FALSE)

会稍微快一点，并且可以处理字符向量。