<div dir="ltr">Benilton,<div><br></div><div>Funcionou, vou testar com minhas tabelas.</div><div><br></div><div>Muito obrigado</div><div><br></div><div>Hélio</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">
Em 16 de dezembro de 2013 13:32, beniltoncarvalho [via R-br] <span dir="ltr"><<a href="mailto:ml-node+s2285057n4661265h83@n4.nabble.com" target="_blank">ml-node+s2285057n4661265h83@n4.nabble.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr"><div class="gmail_extra"><div>tab1 = as.data.frame(tab1)</div><div>tab2 = as.data.frame(tab2)</div><div>res = merge(tab1, tab2, by.x=c('v1', 'v2'), by.y=c('C1', 'C2'))</div>
<div>
<br></div><br><div class="gmail_quote">2013/12/16 Hélio Gallo Rocha <span dir="ltr"><<a href="http://user/SendEmail.jtp?type=node&node=4661265&i=0" rel="nofollow" link="external" target="_blank">[hidden email]</a>></span><br>
<blockquote style="border-left:2px solid #cccccc;padding:0 1em" class="gmail_quote"><div><div class="h5"><div dir="ltr">Senhores, bom dia.<div><br></div><div>Preciso de uma ajuda, onde tenho dois arquivos de texto ou xls, tanto faz.</div>
<div>Inventei este exemplo:</div><div><br></div><div><div>v1 <- seq(1,50,by=1) </div><div>
v2 <- seq(1,100,by=2)</div><div>tab1 <- cbind(v1,v2)</div><div><br></div><div><br></div><div>C1 <- seq(1,100,by=1)</div><div>C2 <- seq(1,100,by=1)</div><div>dados <- seq(11,60,by=1)</div><div>tab2 <- cbind(C1,C2,dados)</div>
</div><div><br></div><div>Verão que tab1 possui 50 linhas e tab2 100 linhas<br></div><div><br></div><div>Preciso:</div><div>1. comparar e filtrar as colunas onde v1 = C1 e v2 = C2 </div><div>2. Gerar uma terceira com C1 e C2 e os dados</div>
<div><br></div><div>O resultado do exemplo acima seria</div><table border="0" cellpadding="0" cellspacing="0" width="192" style="border-collapse:collapse;width:144pt">
<colgroup><col width="64" span="3" style="width:48pt">
</colgroup><tbody><tr height="17" style="height:12.75pt">
<td height="17" width="64" style="height:12.75pt;width:48pt">"C1"</td>
<td width="64" style="border-left-style:none;width:48pt">"C2"</td>
<td width="64" style="border-left-style:none;width:48pt">"dados"</td>
</tr>
<tr height="17" style="height:12.75pt">
<td height="17" width="64" style="height:12.75pt;width:48pt">1</td>
<td width="64" style="border-left-style:none;width:48pt">1</td>
<td width="64" style="border-left-style:none;width:48pt">11</td>
</tr></tbody></table><br>em SQL seria <div><br></div><div><div>SELECT tab1.["v1"], tab1.["v2"], tab2.["dados"]</div><div>FROM tab2 INNER JOIN tab1 ON (tab2.["C2"] = tab1.["v2"]) AND (tab2.["C1"] = tab1.["v1"]);</div>
</div><div><br></div><div>Tem como passar para o R?</div><div><br></div><div>Agradeço desde já</div><span><font color="#888888"><div><div><br></div>-- <br>Hélio Gallo Rocha<br>IFSULDEMINAS - Câmpus Muzambinho<br>
</div></font></span></div>
<br></div></div>_______________________________________________<br>
R-br mailing list<br>
<a href="http://user/SendEmail.jtp?type=node&node=4661265&i=1" rel="nofollow" link="external" target="_blank">[hidden email]</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="nofollow" link="external" 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="nofollow" link="external" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>
</div>
<br>_______________________________________________
<br>R-br mailing list
<br><a href="http://user/SendEmail.jtp?type=node&node=4661265&i=2" rel="nofollow" link="external" target="_blank">[hidden email]</a>
<br><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="nofollow" link="external" 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="nofollow" link="external" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.
<br>
<br>
<hr noshade size="1" color="#cccccc">
<div style="color:#444;font:12px tahoma,geneva,helvetica,arial,sans-serif">
<div style="font-weight:bold">If you reply to this email, your message will be added to the discussion below:</div>
<a href="http://r-br.2285057.n4.nabble.com/R-br-Filtrado-duas-tabelas-tp4661260p4661265.html" target="_blank">http://r-br.2285057.n4.nabble.com/R-br-Filtrado-duas-tabelas-tp4661260p4661265.html</a>
</div>
<div style="color:#666;font:11px tahoma,geneva,helvetica,arial,sans-serif;margin-top:.4em;line-height:1.5em">
To unsubscribe from R-br, <a href="http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=3357982&code=aGVsaW9nYWxsb3JvY2hhQGdtYWlsLmNvbXwzMzU3OTgyfC0xMzQ3NTkwMDY4" target="_blank">click here</a>.<br>
<a href="http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=macro_viewer&id=instant_html%21nabble%3Aemail.naml&base=nabble.naml.namespaces.BasicNamespace-nabble.view.web.template.NabbleNamespace-nabble.view.web.template.NodeNamespace&breadcrumbs=notify_subscribers%21nabble%3Aemail.naml-instant_emails%21nabble%3Aemail.naml-send_instant_email%21nabble%3Aemail.naml" rel="nofollow" style="font:9px serif" target="_blank">NAML</a>
</div></blockquote></div><br><br clear="all"><div><br></div>-- <br>Hélio Gallo Rocha<br>IFSULDEMINAS - Câmpus Muzambinho<br>
</div>