<div dir="ltr"><div><div>Outra ideia:</div><div><br></div><div><font face="monospace, monospace">tmp <- summarize(dados[,c(1,3)], llist(var=dados$var), g1,<a href="http://stat.name">stat.name</a> = 'med')</font></div><div><font face="monospace, monospace">merge(levels(dados$var), tmp, all.x=T, by.x="x", by.y="var")</font></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature"><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>Dourados, MS - [22 16.5'S, 54 49'W]</div></div></div></div></div></div>