1

キーを使用して、文字列内のテキストを繰り返し置換しようとしています。私は以下のコードを持っていますが、それを行うためのより簡単で効率的な方法があるかどうか疑問に思っています

library(stringi)
library(magrittr)
library(dplyr)

old_texts = c("blah blah value1 blah blah value2",
             "blah value1 blah value2")

key = data_frame(
  old = c("value1", "value2"),
  new = c("value3", "value4") ) 

replace_key_individual = function(old_text, key)
  key %>%
  mutate(call = paste0(
    "stri_replace_all_fixed('", old, "','", new, "')") ) %>%
  summarize(new_call = 
              call %>%
              paste(collapse = " %>% ")) %>%
  `$`(new_call) %>%
  paste("old_text %>% ", .) %>%
  parse(text = .) %>%
  eval

replace_key = function(old_texts, key)
  old_texts %>%
  sapply(. %>% replace_key_individual(key)) %>%
  unname

replace_key(old_texts, key = key)
4

2 に答える 2

2

私が正しく理解している場合は、単にこれを試してみてください：

old_texts %>% stri_replace_all_fixed(key$old, key$new, vectorize_all=FALSE)
#[1] "blah blah value3 blah blah value4"
#[2] "blah value3 blah value4"

# without the pipe operator:
stri_replace_all_fixed(old_texts, key$old, key$new, vectorize_all=FALSE)
于 2015-11-27T21:54:32.163 に答える