[R] Recoding

[jgarcia at ija.csic.es]

Agustín;

also you can do:

> v <- c(1,1,1,2,3,4,1,10,3)
> dict <- cbind(c(1,2,3),c(1001,1002,1003))
> v <- ifelse(!is.na(match(v,dict)),dict[match(v,dict),2],v)
> v
[1] 1001 1001 1001 1002 1003    4 1001   10 1003

Javier
---------

> Dear Agustin,
>
> Perhaps
>
> v1 <- c(1,1,1,2,3,4,1,10,3)
> dput(as.numeric(ifelse(v1%in%c(1,2,3),paste(100,v1,sep=""),v1)))
>
> HTH,
>
> Jorge
>
>
> On Fri, Jun 27, 2008 at 2:41 PM, Agustin Lobo <aloboaleu at gmail.com> wrote:
>
>> Hi!
>>
>> Given a vector (or a factor within a df),i.e. v1 <-
>> c(1,1,1,2,3,4,1,10,3)
>> and a dictionary
>> cbind(c(1,2,3),c(1001,1002,1003))
>>
>> is there a function (on the same line than recode() in car)
>> to get v2 as c(1001,1001,1001,1002,1003,4,1001,10,1003) ?
>>
>> I'm using myself a function based on match() since
>> long ago (I think that thanks to advice by Prof. B. Ripley),
>> but would like to know if there is an standard function (i.e., like
>> recode()). What I'm using is:
>>
>> "reclas" <- function(v, origen, imagen, directo = T, resto=1)
>> {
>>        if(directo == F) {
>>                aux <- origen
>>                origen <- imagen
>>                imagen <- aux
>>        }
>>        m <- match(v, origen, 0)
>>        #print("match finished")
>>        if(resto==0) v <- v*0
>>        v[m > 0] <- imagen[m]
>>        v
>> }
>>
>> Agus
>>
>> --
>> Dr. Agustin Lobo
>> Institut de Ciencies de la Terra "Jaume Almera" (CSIC)
>> LLuis Sole Sabaris s/n
>> 08028 Barcelona
>> Spain
>> Tel. 34 934095410
>> Fax. 34 934110012
>> email: Agustin.Lobo at ija.csic.es
>> http://www.ija.csic.es/gt/obster
>>
>> ______________________________________________
>> R-help at r-project.org mailing list
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide
>> http://www.R-project.org/posting-guide.html
>> and provide commented, minimal, self-contained, reproducible code.
>>
>
> 	[[alternative HTML version deleted]]
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
Javier García-Pintado
Department of Water and Soil Conservation
CEBAS-CSIC
Campus de Espinardo
PO BOX 164
30100 Espinardo (Murcia)
Spain
Tel: +34 630 20 77 58
Fax: +34 968 39 62 13