Замена всех данных в столбце с использованием символьного объекта

Question

У меня есть столбец дискретных переменных (уровней), хотя они на разных языках, включая английский.

> head(euregs$focus)
[1] Arable farming                                                           
[2] Arable farming, Livestock farming, Services                              
[3] Horticulture, On-farm Product processing and marketing, Economics        
[4] Livestock farming, Horticulture, On-farm Product processing and marketing
[5] Arable farming, Livestock farming, Economics                             
[6] Other                                                                    
95 Levels:  živinoreja, ekonomika ... vrtnarstvo, predelava in prodaja na domu, ekonomika

Моя цель - заменить все эти данные переводами на английский язык.У меня есть два объекта, список всех 95 уровней столбца смешанного языка и английский перевод этих уровней:

> str(foclevs)
 chr [1:95] "" "živinoreja, ekonomika" "živinoreja, ekonomika, administracija in finance" ...
> str(engfocus)
 chr [1:95] "" "Livestock farming, Economics" "Livestock farming, Economics, Administration and Finances" ...

Как я могу использовать эти объекты для замены всех значений в столбце смешанного языка?

Answer 1

Я думаю, что простая итерация может помочь.Я бы сделал:

translated_to_english <- sapply(seq_along(foclevs), function(x) engfocs[x])