[R-br] RES: RES: Factors no R

[Leandro Marino]

Benilton,

Preparei outro exemplo (bem tosco =P ):

set.seed(1)
x <- sample(c('Abobrinha','Cachorro','Carro','Avião','Beija-Flor'),150,T)
table(x)
### vamos supor que queira juntar Abobrinha e Avião;
### Cachorro e Beija-Flor
y <- as.character(factor(x,
     levels=c('Abobrinha','Cachorro','Carro','Avião','Beija-Flor'),
     labels=c('Abobrinha e Avião','Cachorro e Beija-Flor','Carro',
              'Abobrinha e Avião','Cachorro e Beija-Flor')))
table(y)


#> table(x)
#x
# Abobrinha      Avião Beija-Flor   Cachorro      Carro 
#        22         37         24         33         34 
#> table(y)
#y
#    Abobrinha e Avião Cachorro e Beija-Flor                 Carro 
#                   59                    57                    34 






Atenciosamente,
Leandro Lins Marino
Centro de Avaliação
Fundação CESGRANRIO
Rua Santa Alexandrina, 1011 - 2º andar
Rio de Janeiro, RJ - CEP: 20261-903
R (21) 2103-9600 R.:236 
( leandro em cesgranrio.org.br

  Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO AMBIENTE 

Esta mensagem, incluindo seus anexos, pode conter informacoes privilegiadas e/ou de carater confidencial, nao podendo ser retransmitida sem autorizacao do remetente. Se voce nao e o destinatario ou pessoa autorizada a recebe-la, informamos que o seu uso, divulgacao, copia ou arquivamento sao proibidos. 
Portanto, se você recebeu esta mensagem por engano, por favor, nos informe respondendo imediatamente a este e-mail e em seguida apague-a.


-----Mensagem original-----
De: r-br-bounces em listas.c3sl.ufpr.br [mailto:r-br-bounces em listas.c3sl.ufpr.br] Em nome de Benilton Carvalho
Enviada em: quarta-feira, 24 de agosto de 2011 16:49
Para: r-br em listas.c3sl.ufpr.br
Assunto: Re: [R-br] RES: Factors no R

Leandro,

nao sei se entendi o q vc quis perguntar.

No caso do seu exemplo em particular:

set.seed(1)
u = runif(150,0,10)
res = cut(u, c(0, 2.5, 6.5, 8.5, 10), include.lowest=TRUE,
labels=paste("Tipo", 1:4))
table(res)


> table(res)
res
Tipo 1 Tipo 2 Tipo 3 Tipo 4
    33     64     33     20

Se vc se refere a particionar um vetor em grupos, use split():

set.seed(1)
u = runif(150, 0, 10)
grp = sample(letters[1:5], 150, rep=TRUE)
split(u, grp)

b
_______________________________________________
R-br mailing list
R-br em listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.