<div dir="ltr"><div class="gmail_default" style="font-family:'trebuchet ms',sans-serif;font-size:small;color:rgb(51,51,51)">Caros,</div><div class="gmail_default" style="font-family:'trebuchet ms',sans-serif;font-size:small;color:rgb(51,51,51)"><br></div><div class="gmail_default" style="font-family:'trebuchet ms',sans-serif;font-size:small;color:rgb(51,51,51)">boa noite. Tudo bem?</div><div class="gmail_default" style="font-family:'trebuchet ms',sans-serif;font-size:small;color:rgb(51,51,51)"><br></div><div class="gmail_default" style="font-family:'trebuchet ms',sans-serif;font-size:small;color:rgb(51,51,51)">Vejam o CMR:</div><div class="gmail_default" style="font-family:'trebuchet ms',sans-serif;font-size:small;color:rgb(51,51,51)"><br></div><div class="gmail_default" style><div class="gmail_default" style><font color="#333333" face="trebuchet ms, sans-serif"><br></font></div><div class="gmail_default" style><font color="#333333" face="trebuchet ms, sans-serif">dados = data.frame(valor=rnorm(100),var=sample(LETTERS[c(1,2,3,5)],100,replace=T),peso=rpois(100,2))</font></div><div class="gmail_default" style><font color="#333333" face="trebuchet ms, sans-serif">dados[1:10,]</font></div><div class="gmail_default" style><font color="#333333" face="trebuchet ms, sans-serif">dados$var <- factor(dados$var,levels=LETTERS[1:5])</font></div><div class="gmail_default" style><font color="#333333" face="trebuchet ms, sans-serif">table(dados$var)</font></div><div class="gmail_default" style><font color="#333333" face="trebuchet ms, sans-serif">g1 <- function(y) wtd.mean(y[,1],y[,2])</font></div><div class="gmail_default" style><font color="#333333" face="trebuchet ms, sans-serif">summarize(dados[,c(1,3)], llist(var=dados$var), g1,<a href="http://stat.name">stat.name</a> = 'med')</font></div><div style="color:rgb(51,51,51);font-family:'trebuchet ms',sans-serif;font-size:small"><br></div><div style="color:rgb(51,51,51);font-family:'trebuchet ms',sans-serif;font-size:small"><br></div><div style="color:rgb(51,51,51);font-family:'trebuchet ms',sans-serif;font-size:small">Quando faço o table, aparece que a categoria D não teve ninguém, ou seja 0.<br></div><div style="color:rgb(51,51,51);font-family:'trebuchet ms',sans-serif;font-size:small"><br></div><div style="color:rgb(51,51,51);font-family:'trebuchet ms',sans-serif;font-size:small">Como posso fazer para forçar ela aparecer no summarize?</div><div style="color:rgb(51,51,51);font-family:'trebuchet ms',sans-serif;font-size:small">Tenho depois uma serie de rotinas que utilizo as funcoes wtd... do Hmisc. No entanto preciso que todas as categorias que estão no fator sejam sempre exibidas.</div><div style="color:rgb(51,51,51);font-family:'trebuchet ms',sans-serif;font-size:small"><br></div><div style="color:rgb(51,51,51);font-family:'trebuchet ms',sans-serif;font-size:small">obrigado pela ajuda.</div><div style="color:rgb(51,51,51);font-family:'trebuchet ms',sans-serif;font-size:small"><br></div><div style="color:rgb(51,51,51);font-family:'trebuchet ms',sans-serif;font-size:small">abs </div><div style="color:rgb(51,51,51);font-family:'trebuchet ms',sans-serif;font-size:small">Leandro</div></div></div>