Skip to content

how to replace some objects?

6 messages · Jian Zhang, Jacques VESLOT, Michael Kubovy +1 more

#
you can use as.numeric(factor( )); in your example:
 > ex <- sample(letters[1:3], 10, T)
 > ex
  [1] "b" "b" "c" "b" "a" "a" "b" "b" "a" "a"

 > as.numeric(factor(ex))
  [1] 2 2 3 2 1 1 2 2 1 1

if the order is different, use levels:

 > as.numeric(factor(ex, levels=letters[3:1]))
  [1] 2 2 1 2 3 3 2 2 3 3

-------------------------------------------------------------------
Jacques VESLOT

CNRS UMR 8090
I.B.L (2?me ?tage)
1 rue du Professeur Calmette
B.P. 245
59019 Lille Cedex

Tel : 33 (0)3.20.87.10.44
Fax : 33 (0)3.20.87.10.31

http://www-good.ibl.fr
-------------------------------------------------------------------

Zhang Jian a ?crit :
#
similarly:
as.character(factor(c("abca","coma"),labels=c("aaa","bbb")))
-------------------------------------------------------------------
Jacques VESLOT

CNRS UMR 8090
I.B.L (2?me ?tage)
1 rue du Professeur Calmette
B.P. 245
59019 Lille Cedex

Tel : 33 (0)3.20.87.10.44
Fax : 33 (0)3.20.87.10.31

http://www-good.ibl.fr
-------------------------------------------------------------------


Zhang Jian a ?crit :
#
On Dec 19, 2006, at 3:05 AM, Zhang Jian wrote:

            
let <- c('a', 'b', 'a', 'c', 'b', 'b', 'a', 'a', 'c')
library(car)
num <- recode(let, " 'a' = 1; 'b' = 2; else = 3 ")

_____________________________
Professor Michael Kubovy
University of Virginia
Department of Psychology
USPS:     P.O.Box 400400    Charlottesville, VA 22904-4400
Parcels:    Room 102        Gilmer Hall
         McCormick Road    Charlottesville, VA 22903
Office:    B011    +1-434-982-4729
Lab:        B019    +1-434-982-4751
Fax:        +1-434-982-4766
WWW:    http://www.people.virginia.edu/~mk9y/
2 days later
#
On Tuesday 19 December 2006 13:49, Michael Kubovy wrote:
Or, since the initial vector has letters only:
[1] 1 2 1 3 2 2 1 1 3

Hth,
Adrian