У меня есть список предложений, сохраненный как data. Для каждого предложения в списке я хочу заменить любые слова, найденные в to_replace, соответствующей записью в replace_with.
Я построил простую функцию:
gsub.mult <- function(n) {
obj <- gsub(to_replace[n], replace_with[n], data)
return(obj)
}
Который я могу затем попытаться применить по длине индексов
lapply(seq_along(to_replace), gsub.mult)
Однако, конечно, это просто возвращает список с длиной to_replace, который содержит исходный список предложений, каждое из которых содержит только один gsub. Это потому, что каждый раз оригинальный список предложений передается в gsub.mult.
Как я могу построить функцию / применить, которая передаст предыдущее применение к следующему?