<html><head></head><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:13px"><div id="yui_3_16_0_ym19_1_1465997060221_5005">OI pessoal. Estou com uma base de dados imensa que quase estoura a memória do R e por isso, para
facilitar o entendimento de minha pergunta, suponha que a base de dados seja a
mtcars que existe no próprio R. Segue um pedaço dela abaixo.</div><div id="yui_3_16_0_ym19_1_1465997060221_5006"><o:p id="yui_3_16_0_ym19_1_1465997060221_5007"> </o:p></div><div style="margin-bottom: 0.0001pt; word-break: break-all; background-image: initial; background-attachment: initial; background-size: initial; background-origin: initial; background-clip: initial; background-position: initial; background-repeat: initial;" id="yui_3_16_0_ym19_1_1465997060221_5008"><span style="font-size:10.0pt;font-family:"Lucida Console";mso-fareast-font-family:"Times New Roman";mso-bidi-font-family:"Courier New";color:blue;mso-fareast-language:PT-BR" id="yui_3_16_0_ym19_1_1465997060221_5009">> mtcars<o:p id="yui_3_16_0_ym19_1_1465997060221_5010"></o:p></span></div><div style="margin-bottom: 0.0001pt; word-break: break-all; background-image: initial; background-attachment: initial; background-size: initial; background-origin: initial; background-clip: initial; background-position: initial; background-repeat: initial;" id="yui_3_16_0_ym19_1_1465997060221_5011"><span lang="EN-US" style="font-size: 10pt; font-family: "Lucida Console";" id="yui_3_16_0_ym19_1_1465997060221_5012">
mpg cyl disp hp drat
wt qsec vs am gear carb<o:p id="yui_3_16_0_ym19_1_1465997060221_5013"></o:p></span></div><div style="margin-bottom: 0.0001pt; word-break: break-all; background-image: initial; background-attachment: initial; background-size: initial; background-origin: initial; background-clip: initial; background-position: initial; background-repeat: initial;" id="yui_3_16_0_ym19_1_1465997060221_5014"><span lang="EN-US" style="font-size: 10pt; font-family: "Lucida Console";" id="yui_3_16_0_ym19_1_1465997060221_5015">Mazda RX4
21.0 6 160.0 110 3.90 2.620
16.46 0
1 4 4<o:p id="yui_3_16_0_ym19_1_1465997060221_5016"></o:p></span></div><div style="margin-bottom: 0.0001pt; word-break: break-all; background-image: initial; background-attachment: initial; background-size: initial; background-origin: initial; background-clip: initial; background-position: initial; background-repeat: initial;" id="yui_3_16_0_ym19_1_1465997060221_5017"><span lang="EN-US" style="font-size: 10pt; font-family: "Lucida Console";" id="yui_3_16_0_ym19_1_1465997060221_5018">Mazda RX4 Wag
21.0 6 160.0 110 3.90 2.875
17.02 0
1 4 4<o:p id="yui_3_16_0_ym19_1_1465997060221_5019"></o:p></span></div><div style="margin-bottom: 0.0001pt; word-break: break-all; background-image: initial; background-attachment: initial; background-size: initial; background-origin: initial; background-clip: initial; background-position: initial; background-repeat: initial;" id="yui_3_16_0_ym19_1_1465997060221_5020"><span lang="EN-US" style="font-size: 10pt; font-family: "Lucida Console";" id="yui_3_16_0_ym19_1_1465997060221_5021">Datsun 710
22.8 4 108.0 93 3.85 2.320 18.61 1
1 4 1<o:p id="yui_3_16_0_ym19_1_1465997060221_5022"></o:p></span></div><div style="margin-bottom: 0.0001pt; word-break: break-all; background-image: initial; background-attachment: initial; background-size: initial; background-origin: initial; background-clip: initial; background-position: initial; background-repeat: initial;" id="yui_3_16_0_ym19_1_1465997060221_5023"><span lang="EN-US" style="font-size: 10pt; font-family: "Lucida Console";" id="yui_3_16_0_ym19_1_1465997060221_5024">Hornet 4 Drive
21.4 6 258.0 110 3.08 3.215
19.44 1
0 3 1<o:p id="yui_3_16_0_ym19_1_1465997060221_5025"></o:p></span></div><div style="margin-bottom: 0.0001pt; word-break: break-all; background-image: initial; background-attachment: initial; background-size: initial; background-origin: initial; background-clip: initial; background-position: initial; background-repeat: initial;" id="yui_3_16_0_ym19_1_1465997060221_5026"><span lang="EN-US" style="font-size: 10pt; font-family: "Lucida Console";" id="yui_3_16_0_ym19_1_1465997060221_5027">Hornet Sportabout
18.7 8 360.0 175 3.15 3.440
17.02 0
0 3 2<o:p id="yui_3_16_0_ym19_1_1465997060221_5028"></o:p></span></div><div style="margin-bottom: 0.0001pt; word-break: break-all; background-image: initial; background-attachment: initial; background-size: initial; background-origin: initial; background-clip: initial; background-position: initial; background-repeat: initial;" id="yui_3_16_0_ym19_1_1465997060221_5029"><span lang="EN-US" style="font-size: 10pt; font-family: "Lucida Console";" id="yui_3_16_0_ym19_1_1465997060221_5030">Valiant
18.1 6 225.0 105 2.76 3.460
20.22 1
0 3 1<o:p id="yui_3_16_0_ym19_1_1465997060221_5031"></o:p></span></div><div style="margin-bottom: 0.0001pt; word-break: break-all; background-image: initial; background-attachment: initial; background-size: initial; background-origin: initial; background-clip: initial; background-position: initial; background-repeat: initial;" id="yui_3_16_0_ym19_1_1465997060221_5032"><span lang="EN-US" style="font-size: 10pt; font-family: "Lucida Console";" id="yui_3_16_0_ym19_1_1465997060221_5033">Duster 360
14.3 8 360.0 245 3.21 3.570
15.84 0
0 3 4<o:p id="yui_3_16_0_ym19_1_1465997060221_5034"></o:p></span></div><div id="yui_3_16_0_ym19_1_1465997060221_5035"><o:p id="yui_3_16_0_ym19_1_1465997060221_5036"> </o:p></div><div id="yui_3_16_0_ym19_1_1465997060221_5037">Como faço para agrupar a variável gear em grupos 3, depois
de 4, etc, conforme a ordenação das variáveis cyl ( em 4,6,8,..) e VS ( em 0,1),
ou seja, criar grupo da variável gear=3 onde a variáveis cyl e VS estejam
ordenadas, depois criar grupo da variável gear=4 com variáveis cyl e VS ordenadas,
e assim por adiante....quero todos em uma mesma base de dados, ou seja, mesmo
data frame.</div><div id="yui_3_16_0_ym19_1_1465997060221_5038"><o:p id="yui_3_16_0_ym19_1_1465997060221_5039"> </o:p></div><div id="yui_3_16_0_ym19_1_1465997060221_5040">Peço isso a vocês, pois meu objetivo final é pegar variáveis
sempre que na linha i se tenha VS=1 e na linha i+2 cyl=2 com gear=4, e assim
sucessivamente, ou seja, para cada grupo obtido para gear, intercruzar, VS=1 na
linha i e cyl=2 na linha i+2.</div><div id="yui_3_16_0_ym19_1_1465997060221_5041">Tentei usar o pacote dylpr e usar depois os comandos:</div><div id="yui_3_16_0_ym19_1_1465997060221_5042"><span lang="EN-US" id="yui_3_16_0_ym19_1_1465997060221_5043">selecao<-arrange(mtcars,
cyl,VS,mpg, disp, hp,drat,wt,qsec,am,gear,carb)<o:p id="yui_3_16_0_ym19_1_1465997060221_5044"></o:p></span></div><div id="yui_3_16_0_ym19_1_1465997060221_5045"><span lang="EN-US" id="yui_3_16_0_ym19_1_1465997060221_5046">g<-group_by(selecao,
cyl,vs,gear)<o:p id="yui_3_16_0_ym19_1_1465997060221_5047"></o:p></span></div><div id="yui_3_16_0_ym19_1_1465997060221_5048"><span lang="EN-US" id="yui_3_16_0_ym19_1_1465997060221_5049">conj<-filter(select(g,mpg,vs,cyl,gear),
(vs==1 & lead(cyl,2)==4) | gear==4)<o:p id="yui_3_16_0_ym19_1_1465997060221_5050"></o:p></span></div><div id="yui_3_16_0_ym19_1_1465997060221_5051"><span lang="EN-US" id="yui_3_16_0_ym19_1_1465997060221_5052"> </span></div><div id="yui_3_16_0_ym19_1_1465997060221_5053">Mas ele não separou por grupos, pois ao usar lead (lags para
frente) ele não fica restrito a cada grupo da variável formado com a gear, ou
seja, o R desconsidera os grupos formados e não limita os “lags” para frente em
apenas os grupos formados.</div><div id="yui_3_16_0_ym19_1_1465997060221_5054"><o:p id="yui_3_16_0_ym19_1_1465997060221_5055"> </o:p></div><div id="yui_3_16_0_ym19_1_1465997060221_4900">
</div><div dir="ltr" id="yui_3_16_0_ym19_1_1465997060221_5056">Gente, se alguém puder ajudar, agradeço muito.</div></div></body></html>