<div dir="ltr">Leonardo, muito obrigado. <div><br></div><div>Realmente a média ponderada ilustra melhor o problema, pesquisei por esse tema e encontrei a solução com o ddplyr</div><div><br></div><div>ddply(ineq_df,.(cod_setor), function(x) data.frame(gini=gini(x$qtd,x$renda)))<br><div><br></div><div><a href="https://stackoverflow.com/questions/3367190/aggregate-and-weighted-mean-in-r">https://stackoverflow.com/questions/3367190/aggregate-and-weighted-mean-in-r</a><br></div></div></div><div class="gmail_extra"><br><div class="gmail_quote">Em 26 de julho de 2017 20:26, Leonard Assis <span dir="ltr"><<a href="mailto:assis.leonard@gmail.com" target="_blank">assis.leonard@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="auto">Cara, é embaçado resolver isto. Tive um problema uma vez com média ponderada, resolvi mudando a logica para usar dplyr</div><div class="gmail_extra"><br><div class="gmail_quote"><div><div class="h5">Em 26 de jul de 2017 1:54 PM, "Marcelo Santana Camacho via R-br" <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>> escreveu:<br type="attribution"></div></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div class="h5"><div dir="ltr">Bom dia,<div><br></div><div>Alguém poderia me dar uma dica com esse problema?</div><div><br></div><div>Estou tentando agregar um conjunto de dados, calculando o gini (pacote reldist), que recebe a variável principal e uma variável de ponderação - <span style="color:rgb(0,0,0);font-size:13px">gini(x,  weights=rep(1,length=length(x)<wbr>))</span>.<br></div><div><br></div><div>Minha dificuldade é passar os dois argumentos para a função.</div><div><br></div><div><br></div><div>library(reldist)</div><div>ineq_df<-read.csv("amostra_inp<wbr>ut.csv")</div><div>aggregate(c(qtd,renda)~cod_set<wbr>or,data=ineq_df,gini)</div><div><br></div><div><br></div><div><br></div><div><div><br></div>-- <br><div class="m_-2709847912104045571m_-2689400919421230141gmail_signature"><div style="text-align:center"><i style="color:rgb(102,102,102)"><b>______________________________<wbr>____<br>Marcelo Santana Camacho</b><br></i>UNIFESSPA</div></div>
</div></div>
<br></div></div>______________________________<wbr>_________________<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" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi<wbr>-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-g<wbr>uia</a>) e forneça código mínimo reproduzível.<br></blockquote></div></div>
</blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature" data-smartmail="gmail_signature"><div style="text-align:center"><i style="color:rgb(102,102,102)"><b>__________________________________<br>Marcelo Santana Camacho</b><br>Engenharia Elétrica - UFPA</i><br></div></div>
</div>