tapply(acj$Quantidade,list(lab=acj$lab,lab=acj$mes),sum,na.rm=T)<br><br><br>#eventualmente comiglo este comando trava o computador (ainda mais se a base for grande d+) neste caso uso:<br>tapply(acj$Quantidade,labmes=paste(lab=acj$lab,lab=acj$mes),sum,na.rm=T)<br>

<br># e depois separo a coluna labmes<br>
<br><br><br><br><br><br clear="all">Atenciosamente,<br>Leandro Marino<br><a href="http://www.leandromarino.com.br">http://www.leandromarino.com.br</a> (Fotógrafo)<br><a href="http://est.leandromarino.com.br/Blog">http://est.leandromarino.com.br/Blog</a> (Estatístico)<br>

Cel.: + 55 21 9845-7707<br>Cel.: + 55 21 8777-7907<br><br>
<br><br><div class="gmail_quote">Em 22 de agosto de 2011 11:18, Edson Lira <span dir="ltr">&lt;<a href="mailto:edinhoestat@yahoo.com.br">edinhoestat@yahoo.com.br</a>&gt;</span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">

<div>tapply(acj$Quantidade,acj$lab,sum,na.rm=T)</div></blockquote></div><br>