R package: broman

switchv

library(broman)

en <- c('one', 'four', 'two', 'three', 'one', 'three');

gr<-switchv(en ,
        'one'   = 'eins'  ,
        'two'   = 'zwei'  ,
        'three' = 'drei'  ,
        'four'  = 'vier'  ,
        'five'  = 'fünf'  );

cat(gr, sep="\n");

See also