Como faço para mapear um vetor de valores para outro vetor com meu próprio mapa personalizado em R

Eu quero uma function cuja input é um vetor de 1s, 2s e 3s que envia 1 a 0,2, 2 a 0,4 e 3 a 0,5. (A saída deve ser um vetor de comprimento igual.) Como faço isso?

Por exemplo, se

myVector<-c(1,2,3,2,3,3,1) 

Então a function

 mapVector(myVector) 

deve retornar um vetor como (.2, .4, .5, .4, .5, .5, .2)

Algumas opções, todas usando:

 myVector<-c(1,2,3,2,3,3,1) 

Fator

 newvals <- c(.2,.4,.5) newvals[as.factor(myVector)] #[1] 0.2 0.4 0.5 0.4 0.5 0.5 0.2 

Vetor nomeado

 newvals <- c(`1`=.2,`2`=.4,`3`=.5) newvals # 1 2 3 #0.2 0.4 0.5 newvals[as.character(myVector)] # 1 2 3 2 3 3 1 #0.2 0.4 0.5 0.4 0.5 0.5 0.2 

Tabela de pesquisa

 mapdf <- data.frame(old=c(1,2,3),new=c(.2,.4,.5)) mapdf$new[match(myVector,mapdf$old)] #[1] 0.2 0.4 0.5 0.4 0.5 0.5 0.2 

Benchmarks para quantificar o comentário de @Joe abaixo e também comentar o comentário de @Ananda.

 myVector <- c(1,2,3,2,3,3,1) # setup for the benchmarking test <- sample(myVector,1e6,replace=TRUE) newvals <- c(.2,.4,.5) newvalsvec <- c(`1`=.2,`2`=.4,`3`=.5) mapdf <- data.frame(old=c(1,2,3),new=c(.2,.4,.5)) microbenchmark( newvals[as.factor(test)], newvalsvec[as.character(test)], mapdf$new[match(test,mapdf$old)], newvals[test], times=10L ) #Unit: milliseconds # expr min lq median uq max #factor 1863.40146 1876.04197 1890.99147 1913.13046 2014.23609 #namedvector 1809.26883 1812.76272 1837.18852 1851.42954 1858.44996 #lookup 38.48697 38.83405 39.90146 69.65140 71.75051 #newvals[test] 34.07380 34.55885 50.61287 65.69495 66.08699 
 install.packages("hash") library(hash) h<-hash(1:3, c(.2,.4,.5)) myVector<-c(1,2,3,2,3,3,1) sapply(myVector,function(x){return(h[[as.character(x)]])})