<div dir="ltr">*então seria algo como</div><div class="gmail_extra"><br><div class="gmail_quote">2016-08-22 15:31 GMT-03:00 Manoel Galdino <span dir="ltr"><<a href="mailto:mcz.fea@gmail.com" target="_blank">mcz.fea@gmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div><div><div><div><div><div>Não sei se entendi, mas com a biblioteca dplyr, é bem fácil<br></div>Mas supondo que seu banco de dados se chama df, então, seria algo como<br></div><br>df <- data.frame(ID = c(23, 45, 34,20,10,11,23), <br>                 CODOM = c(100,100,101,100,102,102,100)<wbr>)<br><br>library(dplyr)<br><br>df %>%<br>  group_by(CODOM) %>%<br>  mutate(FREQ = n()) <br><br></div><div>Se quiser pode atribuir o resultado a um novo data.frame.<br></div></div></div></div><br><div><div>Abraço,<br></div></div></div><div class="gmail_extra"><br><div class="gmail_quote"><div><div class="h5">2016-08-22 14:53 GMT-03:00 Wagner Tassinari via R-br <span dir="ltr"><<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span>:<br></div></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div class="h5"><div dir="ltr"><div><div><div><div>Saudações pessoal,<br><br></div>Tenho um banco de dados do seguinte formato:<br><br></div>ID    CODOM<br>23     100<br>45     100<br>34     101<br>20     100<br>10     102<br>11     102<br>23     100<br><br></div>Gostaria de construir uma variável de contagem da variável CODOM, ou seja,no CODOM 100 existem 4 registros, no CODOM 101 apenas 1 registro e no CODOM 102 existem 2 registros.<br><br></div>Saída deverá ser assim:<br><br>ID    CODOM   FREQ<br>23     100           4 <br>45     100           4<br>34     101           1 <br>20     100           4<br>10     102           2<br>11     102           2<br>23     100           4 <br><div> <br><div><div><div>Obrigado,<br clear="all"></div><div><div><div><div data-smartmail="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div>-----<br>Wagner S. Tassinari<br>Departamento de Matemática<br>Universidade Federal Rural do Rio de Janeiro.<br>BR-465, Km 7 - Seropedica, RJ - Brasil<br>CEP: 23890-000 <br>Cel: <a href="tel:%2821%29%2096488-5982" value="+5521964885982" target="_blank">(21) 96488-5982</a> (WhatsApp)<br>Skype: wagner.tassinari<br><a href="mailto:wtassinari@gmail.com" target="_blank">wtassinari@gmail.com</a><br><span>------------------------------<wbr>------------------------------<wbr>----------</span><br><br></div></div></div></div></div></div>
</div></div></div></div></div></div>
<br></div></div>______________________________<wbr>_________________<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<wbr>-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-g<wbr>uia</a>) e forneça código mínimo reproduzível.<span class="HOEnZb"><font color="#888888"><br></font></span></blockquote></div><span class="HOEnZb"><font color="#888888"><br><br clear="all"><br>-- <br><div data-smartmail="gmail_signature">Manoel Galdino<br><a href="https://sites.google.com/site/galdinomcz/" target="_blank">https://sites.google.com/site/<wbr>galdinomcz/</a><br></div>
</font></span></div>
</blockquote></div><br><br clear="all"><br>-- <br><div class="gmail_signature" data-smartmail="gmail_signature">Manoel Galdino<br><a href="https://sites.google.com/site/galdinomcz/" target="_blank">https://sites.google.com/site/galdinomcz/</a><br></div>
</div>