<html>
<head>
<meta content="text/html; charset=utf-8" http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
Olá Alexandre<br>
<br>
Tente:<br>
<br>
dados$classes <- ifelse(dados$V2 %in% GROUP1,"Group1" ,"Group2")
<br>
<br>
?
<meta http-equiv="content-type" content="text/html; charset=utf-8">
match<br>
<br>
Sugiro você usar o pacote data.table ou dplyr <br>
<br>
V1 = c(1,1,1,1,1,12,12,12,12,12,31,31,31,31,31,31,31,142,142,142)<br>
V2 = paste('P', V1, sep = "")<br>
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")<br>
<br>
library(data.table)<br>
<br>
dados = data.table(V1, V2)<br>
dados[V2 %in% GROUP1, classes := "Group1"]<br>
dados[ ! V2 %in% GROUP1, classes := "Group2"] <br>
dados<br>
<br>
saudações<br>
<br>
<div class="moz-cite-prefix">Em 22/03/2016 16:40, ASANTOS escreveu:<br>
</div>
<blockquote cite="mid:56F19F90.8070202@yahoo.com.br" type="cite">Caros
Listeiros,
<br>
<br>
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?
<br>
<br>
dados<-NULL
<br>
dados$V1<-c(1,1,1,1,1,12,12,12,12,12,31,31,31,31,31,31,31,142,142,142)
<br>
dados$V2 <- paste('P', dados$V1,sep="")
<br>
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")
<br>
dados$classes<- ifelse((dados$V2)==GROUP1,"Group1" ,"Group2")
<br>
<br>
Obrigado,
<br>
<br>
</blockquote>
<br>
</body>
</html>