[R-br] Separação de dados em classes usando if e ifelse

[salah]

Olá Alexandre

Tente:

dados$classes <- ifelse(dados$V2 %in% GROUP1,"Group1" ,"Group2")

? match

Sugiro você usar o pacote data.table ou dplyr

V1 = c(1,1,1,1,1,12,12,12,12,12,31,31,31,31,31,31,31,142,142,142)
V2 = paste('P',  V1, sep = "")
GROUP1 = c("P12B",    "P12C",    "P12D",    "P12E",    "P12F", 
"P12G",    "P12H",    "P12I",    "P13A",    "P13B",    "p142", 
"P142",    "p148",    "P148",    "P15B",    "P15C",    "P15D", 
"P15E",    "P15F",    "P15G",    "P15H",    "P15I",    "P15J", 
"P16A",    "P16B",    "P16C",    "P16D",    "P16E",    "P16F", 
"P16G",    "P16H",    "P16I",    "P16J",    "P16K",    "P16", "P1A",    
"P1J",    "P1K",    "P1L",    "P21A",    "P27A", "P27B",    "P27C",    
"P27D",    "P27E",    "P2A",    "P2B", "P2D",    "P2E",    "P2F",    
"P2G",    "P2",    "P31A", "P31B", "P34",    "P37",    "P3A",    
"P3B",    "P3C", "P3D",    "P3E", "P3F",    "P492",    "P6A",    "P6B", 
"P6C",    "P7A",    "P7B", "P7C",    "P7D",    "P7E", "P7F",    
"P7G",    "P7H",    "P12A")

library(data.table)

dados = data.table(V1, V2)
dados[V2 %in% GROUP1, classes := "Group1"]
dados[ ! V2 %in% GROUP1, classes := "Group2"]
dados

saudações

Em 22/03/2016 16:40, ASANTOS escreveu:
> Caros Listeiros,
>
>        Estou tentando empregar as dicas do Rafael para achar uma 
> maneira de classificar o nome de variáveis, mas não individualmente 
> com os níveis e sim com um vetor que indica quais são os níveis de 
> interesse que quero classificar. É possível fazer isso com um vetor, 
> no meu caso  GROUP1, ao invés de utilizar o nome de cada nível 
> individualmente seguido de | na função ifelse?
>
> dados<-NULL
> dados$V1<-c(1,1,1,1,1,12,12,12,12,12,31,31,31,31,31,31,31,142,142,142)
> dados$V2 <- paste('P', dados$V1,sep="")
> GROUP1<-c("P12B",    "P12C",    "P12D",    "P12E",    "P12F", 
> "P12G",    "P12H",    "P12I",    "P13A",    "P13B",    "p142", 
> "P142",    "p148",    "P148",    "P15B",    "P15C",    "P15D", 
> "P15E",    "P15F",    "P15G",    "P15H",    "P15I",    "P15J", 
> "P16A",    "P16B",    "P16C",    "P16D",    "P16E",    "P16F", 
> "P16G",    "P16H",    "P16I",    "P16J",    "P16K",    "P16", 
> "P1A",    "P1J",    "P1K",    "P1L",    "P21A",    "P27A", "P27B",    
> "P27C",    "P27D",    "P27E",    "P2A",    "P2B", "P2D",    "P2E",    
> "P2F",    "P2G",    "P2",    "P31A", "P31B",    "P34",    "P37",    
> "P3A",    "P3B",    "P3C", "P3D",    "P3E",    "P3F",    "P492",    
> "P6A",    "P6B", "P6C",    "P7A",    "P7B",    "P7C",    "P7D",    
> "P7E", "P7F", "P7G",    "P7H",    "P12A")
> dados$classes<- ifelse((dados$V2)==GROUP1,"Group1" ,"Group2")
>
> Obrigado,
>

-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20160322/f7e2d1b0/attachment.html>