<html><body><div style="color:#000; background-color:#fff; font-family:Courier New, courier, monaco, monospace, sans-serif;font-size:12pt"><div style="font-size: 12pt; ">André, esta rotina gera todas as tabelas de um banco de dados, se você tem por exemplo, sexo, idade, bairro, etc... A rotina gera tabelas com a quantidade e percentual para todas elas. Por exemplo para este banco abaixo gera-se uma tabela para cada variável.</div><div style="font-size: 12pt; "><br></div><div style="color: rgb(0, 0, 0); font-family: 'Courier New', courier, monaco, monospace, sans-serif; background-color: transparent; font-style: normal; "><div style="background-color: transparent; "><span style="font-size: 10px; "> quest nome sexo idade est_civ dt_nasc tempo cons_pub cons_part satisf nota_cm doe_antes</span></div><div style="background-color: transparent; "><span style="font-size: x-small;">1 1 JW M 24
CAS 1988-06-21 310 5 0 NÃO 5 NÃO</span></div><div style="background-color: transparent; "><span style="font-size: x-small;">2 2 HH M 33 SOL 1979-03-27 45 1 0 NÃO 2 NÃO</span></div><div style="background-color: transparent; "><span style="font-size: x-small;">3 3 A M 29 SOL 1983-06-15 30 0 0 NÃO NA SIM</span></div><div style="background-color: transparent; "><span style="font-size: x-small;">4 4 ABC M 32
SOL 1980-05-17 60 0 1 NÃO 1 NÃO</span></div><div style="font-size: 16px; "><br></div></div><div style="font-size: 12pt; "></div><div style="font-size: 12pt; ">[ ]'s. </div><div style="font-size: 12pt; ">Edson Lira<br>Estatístico<br>Manaus-Amazonas<br></div> <div style="font-size: 12pt; font-family: 'Courier New', courier, monaco, monospace, sans-serif; "> <div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt; "> <div dir="ltr"> <hr size="1"> <font size="2" face="Arial"> <b><span style="font-weight:bold;">De:</span></b> "andrebvs@bol.com.br" <andrebvs@bol.com.br><br> <b><span style="font-weight: bold;">Para:</span></b> r-br@listas.c3sl.ufpr.br; Edson Lira <edinhoestat@yahoo.com.br> <br> <b><span style="font-weight: bold;">Enviadas:</span></b> Terça-feira, 18
de Junho de 2013 20:48<br> <b><span style="font-weight: bold;">Assunto:</span></b> Re: [R-br] soma na tabela<br> </font> </div> <div class="y_msg_container"><br><div id="yiv7132731118"><div>Por gentileza Edson, nos passe um exemplo reproduzível.<br><br><i>Att.</i><br><i>André BVS</i><br><br></div>
<hr style="border-top:1px solid #ccc;">
<div>Em 18/06/2013 21:17, <b>Edson Lira < edinhoestat@yahoo.com.br ></b> escreveu:</div>
<div style="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255); font-family: arial, helvetica, sans-serif; font-size: 12pt; ">
<div style="font-family: arial, helvetica, sans-serif; "><span>Boa noite caros amigos, </span></div>
<div style="font-family: arial, helvetica, sans-serif; color: rgb(0, 0, 0); font-size: 16px; background-color: transparent; font-style: normal; "><span> </span></div>
<div style="font-family: arial, helvetica, sans-serif; color: rgb(0, 0, 0); font-size: 16px; background-color: transparent; font-style: normal; "><span>A rotina abaixo</span></div>
<div style="font-family: arial, helvetica, sans-serif; color: rgb(0, 0, 0); font-size: 16px; background-color: transparent; font-style: normal; "><span> </span></div>
<div style="font-size: 16px; background-color: transparent; font-style: normal; color: rgb(0, 0, 0); font-family: arial, helvetica, sans-serif; ">
<div style="font-family: Cambria; color: rgb(195, 136, 9); margin-left: 4px; font-size: 18.6px; "><span style="color:#000000;">tabelas</span><span style="color:#071a99;"><-</span>function<span style="color:#071a99;">(</span><span style="color:#000000;">x</span><span style="color:#071a99;">){</span></div>
<div style="font-family: Cambria; color: rgb(7, 26, 153); margin-left: 4px; font-size: 18.6px; "><span style="color:#000000;">Qtde</span><-table(<span style="color:#000000;">x</span>)</div>
<div style="font-family: Cambria; color: rgb(7, 26, 153); margin-left: 4px; font-size: 18.6px; "><span style="color:#000000;">Perc</span><-<span style="color:#045218;">100</span>*prop.table(table(<span style="color:#000000;">x</span>))</div>
<div style="font-family: Cambria; color: rgb(0, 0, 0); margin-left: 4px; font-size: 18.6px; "><span style="color:#071a99;">cbind(</span>Qtde<span style="color:#071a99;">,</span>Perc<span style="color:#071a99;">)</span></div>
<div style="font-family: Cambria; color: rgb(176, 22, 0); margin-left: 4px; font-size: 18.6px; "><span style="color:#071a99;">}</span></div>
<div style="font-family: arial, helvetica, sans-serif; color: rgb(0, 0, 0); "> </div>
<div style="font-family: arial, helvetica, sans-serif; "><span style="color:#071a99;">Gera tabelas do tipo:</span></div>
<div style="font-family: arial, helvetica, sans-serif; "><span style="color:#071a99;"> </span></div>
<div>
<div><span style="font-family: 'Courier New', courier, monaco, monospace, sans-serif; ">$ida</span></div>
<div><span style="font-family: 'Courier New', courier, monaco, monospace, sans-serif; "> Qtde Perc</span></div>
<div><span style="font-family: 'Courier New', courier, monaco, monospace, sans-serif; ">20 |-- 30 anos 39 34</span></div>
<div><span style="font-family: 'Courier New', courier, monaco, monospace, sans-serif; ">30 |-- 40 anos 57 50</span></div>
<div><span style="font-family: 'Courier New', courier, monaco, monospace, sans-serif; ">40 anos ou mais 19 17</span></div>
<div><span style="font-family: 'Courier New', courier, monaco, monospace, sans-serif; "> </span></div>
<div><span style="font-family: 'Courier New', courier, monaco, monospace, sans-serif; ">A idade tem valores de 21 a 47 anos. </span></div>
<div><span style="font-family: 'Courier New', courier, monaco, monospace, sans-serif; "> </span></div>
<div><span style="font-family: 'Courier New', courier, monaco, monospace, sans-serif; ">Montei a rotina</span></div>
<div><span style="font-family: 'Courier New', courier, monaco, monospace, sans-serif; "> </span></div>
<div>
<div style="margin-left: 4px; font-size: 18.6px; font-family: Cambria; color: rgb(176, 22, 0); min-height: 22px; "> </div>
<div style="margin-left: 4px; font-size: 18.6px; font-family: Cambria; "><span style="color:#000000;">m1</span>$<span style="color:#000000;">ida</span><-rep(<span style="color:#c38809;">NA</span>,length(<span style="color:#000000;">m1</span>$<span style="color:#000000;">idade</span>))</div>
<div style="margin-left: 4px; font-size: 18.6px; font-family: Cambria; ">summary(<span style="color:#000000;">m1</span>$<span style="color:#000000;">idade</span>)</div>
<div style="margin-left: 4px; font-size: 18.6px; font-family: Cambria; ">sd(m1$idade,na.rm=<span style="color:#c38809;">T</span>)</div>
<div style="margin-left: 4px; font-size: 18.6px; font-family: Cambria; ">m1$ida[<span style="color:#045218;">20</span><=m1$idade&m1$idade<<span style="color:#045218;">30</span>]<-<span style="color:#b01600;">"20 |-- 30 anos"</span></div>
<div style="margin-left: 4px; font-size: 18.6px; font-family: Cambria; ">m1$ida[<span style="color:#045218;">30</span><=m1$idade&m1$idade<<span style="color:#045218;">40</span>]<-<span style="color:#b01600;">"30 |-- 40 anos"</span></div>
<div style="margin-left: 4px; font-size: 18.6px; font-family: Cambria; color: rgb(176, 22, 0); "><span style="color:#000000;">m1</span><span style="color:#071a99;">$</span><span style="color:#000000;">ida</span><span style="color:#071a99;">[</span><span style="color:#000000;">m1</span><span style="color:#071a99;">$</span><span style="color:#000000;">idade</span><span style="color:#071a99;">>=</span><span style="color:#045218;">40</span><span style="color:#071a99;">]<-</span>"40 anos ou mais"</div>
<div> </div>
</div>
<div><span style="font-family: 'Courier New', courier, monaco, monospace, sans-serif; "> </span></div>
<div><span style="font-family: 'Courier New', courier, monaco, monospace, sans-serif; ">Como faço para acrescentar a soma de Qtde e Perc?</span></div>
<div><span style="font-family: 'Courier New', courier, monaco, monospace, sans-serif; "> </span></div>
<div style="font-family: arial, helvetica, sans-serif; "> </div>
</div>
</div>
<div style="font-family: arial, helvetica, sans-serif; "> </div>
<div style="font-family: arial, helvetica, sans-serif; ">[ ]'s.</div>
<div style="font-family: arial, helvetica, sans-serif; "> </div>
<div style="font-family: arial, helvetica, sans-serif; ">Edson Lira<br>Estatístico<br>Manaus-Amazonas</div>
</div>
<div> </div>
</div><br><br></div> </div> </div> </div></body></html>