Outra ideia:

tmp <- summarize(dados[,c(1,3)], llist(var=dados$var), g1,stat.name = 'med')

merge(levels(dados$var), tmp, all.x=T, by.x="x", by.y="var")

Éder Comunello <c omunello.eder@gmail.com>
Dourados, MS - [22 16.5'S, 54 49'W]