<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></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></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></div><div>
Pra fazer tudo ficar num só data.frame, da para usar do.call()</div><div><br></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></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="gmail_extra"><br><br><div class="gmail_quote">2013/10/4 Fátima Lima Paula <span dir="ltr"><<a href="mailto:fatima.lima.paula@gmail.com" target="_blank">fatima.lima.paula@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 class="gmail_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="gmail_default" style="font-family:verdana,sans-serif;color:rgb(116,27,71)">
<br></div><div class="gmail_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="gmail_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></div><div style="font-family:arial,sans-serif;font-size:13.333333969116211px"><div class="gmail_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></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></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></div><div style="font-family:arial,sans-serif;font-size:13.333333969116211px"><div class="gmail_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="gmail_default" style="font-family:verdana,sans-serif;color:rgb(116,27,71);display:inline">
<br></div></div><div style="font-family:arial,sans-serif;font-size:13.333333969116211px"><div class="gmail_default" style="font-family:verdana,sans-serif;color:rgb(116,27,71);display:inline"><br></div></div><div><div class="gmail_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></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"><div><font color="#741b47" face="verdana, sans-serif">Fátima</font></div>
<div><br></div></font></span></div></div><span><font color="#888888"><div style="font-family:arial,sans-serif;font-size:13.333333969116211px"><div class="gmail_default" style="font-family:verdana,sans-serif;color:rgb(116,27,71);display:inline">
<br></div></div><div style="font-family:arial,sans-serif;font-size:13.333333969116211px">
<div class="gmail_default" style="font-family:verdana,sans-serif;color:rgb(116,27,71);display:inline"><br></div></div><div style="font-family:arial,sans-serif;font-size:13.333333969116211px"><div class="gmail_default" style="font-family:verdana,sans-serif;color:rgb(116,27,71);display:inline">
<br></div></div><div style="font-family:arial,sans-serif;font-size:13.333333969116211px"><div class="gmail_default" style="font-family:verdana,sans-serif;color:rgb(116,27,71);display:inline"><br></div></div><div style="font-family:arial,sans-serif;font-size:13.333333969116211px">
<div class="gmail_default" style="font-family:verdana,sans-serif;color:rgb(116,27,71);display:inline"><br></div></div><div style="font-family:arial,sans-serif;font-size:13.333333969116211px"><div class="gmail_default" style="font-family:verdana,sans-serif;color:rgb(116,27,71);display:inline">
<br></div></div><div style="font-family:arial,sans-serif;font-size:13.333333969116211px"><div class="gmail_default" style="font-family:verdana,sans-serif;color:rgb(116,27,71);display:inline"><br></div></div>-- <br><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></div></div>
</font></span></div>
<br>_______________________________________________<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" 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" 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>