<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:12pt"><div><br></div><div><br></div> <div style="font-family: arial, helvetica, sans-serif; font-size: 12pt;"> <div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt;"> <div dir="ltr"> ----- Mensagem encaminhada -----<br> <font size="2" face="Arial"> <b><span style="font-weight:bold;">De:</span></b> Rodrigo Coster <rcoster@gmail.com><br> <b><span style="font-weight: bold;">Para:</span></b> "r-br@listas.c3sl.ufpr.br" <r-br@listas.c3sl.ufpr.br> <br> <b><span style="font-weight: bold;">Enviadas:</span></b> Sexta-feira, 4 de Outubro de 2013 10:30<br> <b><span style="font-weight: bold;">Assunto:</span></b> Re: [R-br] (sem assunto)<br> </font> </div> <div class="y_msg_container"><br><div id="yiv0222079026"><div><div dir="ltr">Da para fazer com o aggregate() que nem te falaram antes, só acrescentando mais um
critério no parâmetro by (no proprio help tem exemplo de agregações por 2 variaveis...), ou com o by()<div><br clear="none"></div><div><div>
idade=c("1","3","2","2","1","2","1","3","1","3")</div>
<div>sexo <- c("1","1","2","2","1","2","1","1","1","1")</div><div>tcont <- c(100,320,24,256,134,290,18,34,15,121)</div>
<div>read <- c("s","n","n","n","s","s","s","n","n","s")</div><div>dados <- data.frame(idade, sexo,tcont,read)</div>
</div><div><br clear="none"></div><div><div>by(dados, list(dados$sexo, dados$idade), function(x) data.frame(sexo=x$sexo[1], idade=x$idade[1], tcont=sum(x$tcont), read=sum(x$read == 's')))</div></div><div><br clear="none"></div><div>
Pra fazer tudo ficar num só data.frame, da para usar do.call()</div><div><br clear="none"></div><div>do.call(rbind, by(dados, list(dados$sexo, dados$idade), function(x) data.frame(sexo=x$sexo[1], idade=x$idade[1], tcont=sum(x$tcont), read=sum(x$read == 's'))))</div>
<div><br clear="none"></div><div>Não tem todas combinações sexo-idade pq nos dados que tu deu como exemplo eles não aparecem</div><div class="yiv0222079026gmail_extra"><br clear="none"><br clear="none"><div class="yiv0222079026gmail_quote">2013/10/4 Fátima Lima Paula <span dir="ltr"><<a rel="nofollow" shape="rect" ymailto="mailto:fatima.lima.paula@gmail.com" target="_blank" href="mailto:fatima.lima.paula@gmail.com">fatima.lima.paula@gmail.com</a>></span><br clear="none">
<blockquote class="yiv0222079026gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div class="yiv0222079026yqt7359046119" id="yiv0222079026yqt04709"><div dir="ltr"><div class="yiv0222079026gmail_default" style="font-family: verdana, sans-serif; color: rgb(116, 27, 71);">Pessoal, o Fernando me ajudou a agregar com 2 variáveis. Agora preciso agregar estratificando. Ou seja, </div>
<div class="yiv0222079026gmail_default" style="font-family: verdana, sans-serif; color: rgb(116, 27, 71);">
<br clear="none"></div><div class="yiv0222079026gmail_default" style="font-family: verdana, sans-serif; color: rgb(116, 27, 71);">idade=c(<span style="font-size: 13.333333969116211px; color: rgb(34, 34, 34); font-family: arial, sans-serif;">"1","3","2","2","1","2","1",</span><span style="font-size: 13.333333969116211px; color: rgb(34, 34, 34); font-family: arial, sans-serif;">"3","1","3")</span></div>
<div><div class="yiv0222079026gmail_default" style="font-family: verdana, sans-serif; color: rgb(116, 27, 71);"><span style="font-family: arial, sans-serif; font-size: 13.333333969116211px; color: rgb(34, 34, 34);">sexo <- c("1","1","2","2","1","2","1",</span><span style="font-family: arial, sans-serif; font-size: 13.333333969116211px; color: rgb(34, 34, 34);">"1","1","1")</span></div>
<div style="font-family: arial, sans-serif; font-size: 13.333333969116211px;">tcont <- c(100,320,24,256,134,290,18,34,15,121)</div><div style="font-family: arial, sans-serif; font-size: 13.333333969116211px;">read <- c("s","n","n","n","s","s","s","n","n","s")</div>
<div style="font-family: arial, sans-serif; font-size: 13.333333969116211px;"><br clear="none"></div><div style="font-family: arial, sans-serif; font-size: 13.333333969116211px;"><div class="yiv0222079026gmail_default" style="font-family: verdana, sans-serif; color: rgb(116, 27, 71); display: inline;">
</div>dados <- data.frame(sexo,tcont,read)</div><div style="font-family: arial, sans-serif; font-size: 13.333333969116211px;">dados</div><div style="font-family: arial, sans-serif; font-size: 13.333333969116211px;"><br clear="none"></div><div style="font-family: arial, sans-serif; font-size: 13.333333969116211px;">
dados$read <- as.numeric(ifelse(read == 's', 1, 0))</div><div style="font-family: arial, sans-serif; font-size: 13.333333969116211px;"><br clear="none"></div><div style="font-family: arial, sans-serif; font-size: 13.333333969116211px;">
dados</div><div style="font-family: arial, sans-serif; font-size: 13.333333969116211px;"><br clear="none"></div><div style="font-family: arial, sans-serif; font-size: 13.333333969116211px;"><div class="yiv0222079026gmail_default" style="font-family: verdana, sans-serif; color: rgb(116, 27, 71); display: inline;">
Agora quero que o resultado fique assim:</div></div></div><div style="font-family: arial, sans-serif; font-size: 13.333333969116211px;"><div class="yiv0222079026gmail_default" style="font-family: verdana, sans-serif; color: rgb(116, 27, 71); display: inline;">
<br clear="none"></div></div><div style="font-family: arial, sans-serif; font-size: 13.333333969116211px;"><div class="yiv0222079026gmail_default" style="font-family: verdana, sans-serif; color: rgb(116, 27, 71); display: inline;"><br clear="none"></div></div><div><div class="yiv0222079026gmail_default" style="display:inline;">
<div><font color="#741b47" face="verdana, sans-serif"> sexo idade tcont read</font></div><div><font color="#741b47" face="verdana, sans-serif">1 1 1 </font></div><div><font color="#741b47" face="verdana, sans-serif">2 1 2 </font></div>
<div><font color="#741b47" face="verdana, sans-serif">3 1 3 </font></div><div><font color="#741b47" face="verdana, sans-serif">4 2 1</font></div><div><font color="#741b47" face="verdana, sans-serif">5 2 2 </font></div>
<div><font color="#741b47" face="verdana, sans-serif">6 2 3 </font></div><div><font color="#741b47" face="verdana, sans-serif"><br clear="none"></font></div><div><font color="#741b47" face="verdana, sans-serif">O tcont será a soma e a coluna de read terá a quantidade de readmissões estratificada.</font></div>
<div><font color="#741b47" face="verdana, sans-serif">Alguém pode me ajudar?</font></div><div><font color="#741b47" face="verdana, sans-serif">Obrigada</font></div><span><font color="#888888"></font></span><div><font color="#741b47" face="verdana, sans-serif">Fátima</font></div>
<div><br clear="none"></div></div></div><span><font color="#888888"></font></span><div style="font-family: arial, sans-serif; font-size: 13.333333969116211px;"><div class="yiv0222079026gmail_default" style="font-family: verdana, sans-serif; color: rgb(116, 27, 71); display: inline;">
<br clear="none"></div></div><div style="font-family: arial, sans-serif; font-size: 13.333333969116211px;">
<div class="yiv0222079026gmail_default" style="font-family: verdana, sans-serif; color: rgb(116, 27, 71); display: inline;"><br clear="none"></div></div><div style="font-family: arial, sans-serif; font-size: 13.333333969116211px;"><div class="yiv0222079026gmail_default" style="font-family: verdana, sans-serif; color: rgb(116, 27, 71); display: inline;">
<br clear="none"></div></div><div style="font-family: arial, sans-serif; font-size: 13.333333969116211px;"><div class="yiv0222079026gmail_default" style="font-family: verdana, sans-serif; color: rgb(116, 27, 71); display: inline;"><br clear="none"></div></div><div style="font-family: arial, sans-serif; font-size: 13.333333969116211px;">
<div class="yiv0222079026gmail_default" style="font-family: verdana, sans-serif; color: rgb(116, 27, 71); display: inline;"><br clear="none"></div></div><div style="font-family: arial, sans-serif; font-size: 13.333333969116211px;"><div class="yiv0222079026gmail_default" style="font-family: verdana, sans-serif; color: rgb(116, 27, 71); display: inline;">
<br clear="none"></div></div><div style="font-family: arial, sans-serif; font-size: 13.333333969116211px;"><div class="yiv0222079026gmail_default" style="font-family: verdana, sans-serif; color: rgb(116, 27, 71); display: inline;"><br clear="none"></div></div>-- <br clear="none"><div dir="ltr">
<div><span style="color: rgb(103, 78, 167); font-family: 'comic sans ms', sans-serif;">"Minha felicidade depende da qualidade dos meus pensamentos"</span><br clear="none"></div></div>
</div></div>
<br clear="none">_______________________________________________<br clear="none">
R-br mailing list<br clear="none">
<a rel="nofollow" shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br clear="none">
<a rel="nofollow" shape="rect" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br clear="none">
Leia o guia de postagem (<a rel="nofollow" shape="rect" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br clear="none"></blockquote></div><br clear="none"></div></div></div></div><br><div class="yqt7359046119" id="yqt96471">_______________________________________________<br clear="none">R-br mailing list<br clear="none"><a shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br clear="none"><a shape="rect" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br clear="none">Leia o guia de postagem (<a shape="rect" href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</div><br><br></div> </div> </div> </div></body></html>