<div dir="ltr">Ellerson,<div><br></div><div>SE a amostra de dados que você passou é um bom exemplo, você tem um problema <i>anterior</i> para resolver que é o de multiplicidade de entradas com grafia levemente diferentes. . .</div><div><br></div><div>Veja as linhas cinco e seis do seu exemplo que o enquadramento, embora igual do ponto de vista legal, está escrito de forma levemente diferente e faria qualquer <i>script</i> (aliás, em qualquer linguagem, não só no R) entrar em parafuso 😶. . .</div><div><br></div><div>Há vários autores que dizem que a preparação e "limpeza" dos dados leva 80% do tempo de análise dos dados...</div><div><br></div><div>Para atingir teus objetivos precisarás fazer uma busca no seu BD pela cadeia de caracteres que contenha o "ART. 14 - CP" e a partir dessa lista auxiliar ir eliminando as linhas e incluir numa nova coluna nos número de processo correspondentes.</div><div><br></div><div>HTH</div><div>--</div><div>Cesar Rabak</div><div><br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Sat, Aug 31, 2019 at 12:29 PM Elerson por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">
<div bgcolor="#FFFFFF">
<p>Prezados:</p>
<p> </p>
<p style="margin-bottom:0cm;line-height:100%"> Trabalho um banco
de dados com mais de 10000 linhas, representado pelo exemplo
abaixo.</p>
<p style="margin-bottom:0cm;line-height:100%"> </p>
<table cellspacing="0" border="0">
<colgroup width="86"></colgroup> <colgroup width="145"></colgroup>
<colgroup width="101"></colgroup> <colgroup width="94"></colgroup>
<colgroup width="119"></colgroup> <colgroup width="240"></colgroup>
<tbody>
<tr>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" height="17" align="center"><b>PROCESSO</b></td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center"><b>DATA_DISTRIBUICAO</b></td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center"><b>NOME_PARTE</b></td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center"><b>DATA_CRIME</b></td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center"><b>DATA_DENUNCIA</b></td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center"><b>ENQUADRAMENTO</b></td>
</tr>
<tr>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" height="17" align="center">180022121</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">A_NONIMATO</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="left">ART.33 PAR.CAPUT - 11.343/06</td>
</tr>
<tr>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" height="17" align="center">180022121</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">B_NONIMATO</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="left">ART.33 PAR.CAPUT - 11.343/06</td>
</tr>
<tr>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" height="17" align="center">180022105</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">C_NONIMATO</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">01/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="left">ART.35 - 11343/06</td>
</tr>
<tr>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" height="17" align="center">180022105</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">C_NONIMATO</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">01/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="left">ART.33 - 11343/06</td>
</tr>
<tr>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" height="17" align="center">180022097</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">D_NONIMATO</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">01/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="left">ART.155 PAR. 4º INC. II E IV
- CPB</td>
</tr>
<tr>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" height="17" align="center">180022097</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">E_NONIMATO</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">01/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="left">ART.155 PAR.4º INC.II E IV -
CPB</td>
</tr>
<tr>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" height="17" align="center">180022097</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">F_NONIMATO</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">01/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="left">ART.155 PAR. 4º INC. II E IV
- CPB</td>
</tr>
<tr>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" height="17" align="center">180022501</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">03/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">G_NONIMATO</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">03/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="left">ART.157 PAR.2 INC.I E II -
CP</td>
</tr>
<tr>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" height="17" align="center">180022501</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">03/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">G_NONIMATO</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">03/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="left">ART.14 - CP</td>
</tr>
</tbody>
</table>
<p style="margin-bottom:0cm;line-height:100%">
</p>
<p style="margin-bottom:0cm;line-height:100%"> </p>
<p style="margin-bottom:0cm;line-height:100%"> Hipóteses:</p>
<p style="margin-bottom:0cm;line-height:100%">a) mesmo PROCESSO,
NOME_PARTE diferentes, ENQUADRAMENTO igual (linhas 1 e 2)</p>
<p style="margin-bottom:0cm;line-height:100%">b) mesmo PROCESSO,
mesmo NOME_PARTE, ENQUADRAMENTO diferentes (linhas 3 e 4)</p>
<p style="margin-bottom:0cm;line-height:100%">c) mesmo PROCESSO,
mesmo NOME_PARTE, ENQUADRAMENTO diferentes (linhas 8 e 9)</p>
<p style="margin-bottom:0cm;line-height:100%">Minha questão se
refere à hipótese c: preciso criar um coluna (enquadramento2) para
transferir o art. 14 transformando o caso em apenas uma linha… sem
que se mexa na hipótese b. Em todo o banco sempre estará escrito
ART.14 – CP. </p>
<p style="margin-bottom:0cm;line-height:100%">Para ficar assim:</p>
<p style="margin-bottom:0cm;line-height:100%">
</p>
<p style="margin-bottom:0cm;line-height:100%"> </p>
<table cellspacing="0" border="0">
<colgroup width="86"></colgroup> <colgroup width="145"></colgroup>
<colgroup width="101"></colgroup> <colgroup width="94"></colgroup>
<colgroup width="119"></colgroup> <colgroup width="240"></colgroup>
<colgroup width="139"></colgroup> <tbody>
<tr>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" height="17" align="center"><b>PROCESSO</b></td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center"><b>DATA_DISTRIBUICAO</b></td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center"><b>NOME_PARTE</b></td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center"><b>DATA_CRIME</b></td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center"><b>DATA_DENUNCIA</b></td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center"><b>ENQUADRAMENTO</b></td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center"><b>ENQUADRAMENTO2</b></td>
</tr>
<tr>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" height="17" align="center">180022121</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">A_NONIMATO</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="left">ART.33 PAR.CAPUT - 11.343/06</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="left"><br>
</td>
</tr>
<tr>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" height="17" align="center">180022121</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">B_NONIMATO</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="left">ART.33 PAR.CAPUT - 11.343/06</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="left"><br>
</td>
</tr>
<tr>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" height="17" align="center">180022105</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">C_NONIMATO</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">01/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="left">ART.35 - 11343/06</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="left"><br>
</td>
</tr>
<tr>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" height="17" align="center">180022105</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">C_NONIMATO</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">01/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="left">ART.33 - 11343/06</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="left"><br>
</td>
</tr>
<tr>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" height="17" align="center">180022097</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">D_NONIMATO</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">01/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="left">ART.155 PAR. 4º INC. II E IV
- CPB</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="left"><br>
</td>
</tr>
<tr>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" height="17" align="center">180022097</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">E_NONIMATO</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">01/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="left">ART.155 PAR.4º INC.II E IV -
CPB</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="left"><br>
</td>
</tr>
<tr>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" height="17" align="center">180022097</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">F_NONIMATO</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">01/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="left">ART.155 PAR. 4º INC. II E IV
- CPB</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="left"><br>
</td>
</tr>
<tr>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" height="17" align="center">180022501</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">03/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">G_NONIMATO</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">02/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="center">03/01/2018</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="left">ART.157 PAR.2 INC.I E II -
CP</td>
<td style="border-width:1px;border-style:solid;border-color:rgb(0,0,0)" align="left">ART.14 - CP</td>
</tr>
</tbody>
</table>
<p style="margin-bottom:0cm;line-height:100%">
</p>
<p style="margin-bottom:0cm;line-height:100%">Obrigado.<br>
</p>
<p>
</p>
<p><br>
</p>
<p><br>
</p>
<p><br>
</p>
</div>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div>