<html><body><div style="color:#000; background-color:#fff; font-family:Courier New, courier, monaco, monospace, sans-serif;font-size:10pt"><div><span>Rodrigo, a rotina do Fernando é muito elegante, tem essa forma alternativa:</span></div><div style="color: rgb(0, 0, 0); font-size: 13px; font-family: 'Courier New', courier, monaco, monospace, sans-serif; background-color: transparent; font-style: normal;"><span><br></span></div><div style="margin-top: 0px; margin-bottom: 0px; font-family: 'Helvetica Neue'; color: rgb(7, 26, 153);"><span style="color: #000000"> d </span><-<span style="color: #000000"> </span>data.frame(<span style="color: #000000">x1</span>=runif(<span style="color: #045218">10</span>),<span style="color: #000000"> x2</span>=as.factor(c(<span style="color: #b01600">'a'</span>,<span style="color: #b01600">'b'</span>)))</div><div style="margin-top: 0px; margin-bottom: 0px; font-family: 'Helvetica Neue';"><span style="color:
#071a99"> </span>d</div><div style="margin-top: 0px; margin-bottom: 0px; font-family: 'Helvetica Neue'; color: rgb(79, 79, 79);"><span style="font-size: 10pt; color: rgb(0, 0, 0);">d1</span><span style="color: rgb(7, 26, 153); font-size: 10pt;"><-subset(</span><span style="font-size: 10pt; color: rgb(0, 0, 0);">d</span><span style="color: rgb(7, 26, 153); font-size: 10pt;">, </span><span style="font-size: 10pt; color: rgb(0, 0, 0);">d</span><span style="color: rgb(7, 26, 153); font-size: 10pt;">$</span><span style="font-size: 10pt; color: rgb(0, 0, 0);">x2 </span><span style="color: rgb(7, 26, 153); font-size: 10pt;">%</span><span style="font-size: 10pt; color: rgb(195, 136, 9);">in</span><span style="color: rgb(7, 26, 153); font-size: 10pt;">% c(</span><span style="font-size: 10pt; color: rgb(176, 22, 0);">"b"</span><span style="color: rgb(7, 26, 153); font-size: 10pt;">))</span><br></div><div style="margin-top: 0px; margin-bottom: 0px;
font-family: 'Helvetica Neue';">d1</div><div style="margin-top: 0px; margin-bottom: 0px; font-family: 'Helvetica Neue';"></div><div style="padding: 0px; margin: 0.1em 0px; display: block; line-height: normal; color: rgb(0, 0, 0); font-family: 'Courier New', courier, monaco, monospace, sans-serif; font-size: 13px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; orphans: auto; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px; -webkit-text-stroke-width: 0px; background-color: transparent;"><span></span></div><div></div><div style="padding: 0px; margin: 0px; display: block; line-height: normal; font-size: 13px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; orphans: auto; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px; -webkit-text-stroke-width: 0px;
font-family: 'Helvetica Neue'; color: rgb(7, 26, 153);"><br></div><div style="padding: 0px; margin: 0px; display: block; line-height: normal; font-size: 13px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; orphans: auto; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px; -webkit-text-stroke-width: 0px; font-family: 'Helvetica Neue'; color: rgb(7, 26, 153); background-color: transparent;">table(<span style="color: rgb(0, 0, 0);">d1</span>$<span style="color: rgb(0, 0, 0);">x2</span>) # aparece b</div><div style="margin-top: 0px; margin-bottom: 0px; font-family: 'Helvetica Neue'; color: rgb(0, 0, 0); font-size: 13px; background-color: transparent; font-style: normal;"><span style="color: rgb(7, 26, 153);">summary(</span>d1<span style="color: rgb(7, 26, 153);">$</span>x2<span style="color: rgb(7, 26, 153);">) </span><span style="color: rgb(7, 26,
153); font-size: 10pt;"># aparece b</span><br></div><div style="margin-top: 0px; margin-bottom: 0px; font-family: 'Helvetica Neue'; color: rgb(0, 0, 0); font-size: 13px; background-color: transparent; font-style: normal;"><br></div><div style="margin-top: 0px; margin-bottom: 0px; font-family: 'Helvetica Neue'; color: rgb(0, 0, 0); font-size: 13px; background-color: transparent; font-style: normal;">d1<span style="color: #071a99">$</span>x2<span style="color: #071a99"><-</span>d1<span style="color: #071a99">$</span>x2<span style="color: #071a99">[</span>drop<span style="color: #071a99">=</span><span style="color: #c38809">T</span><span style="color: #071a99">] </span><span style="color: rgb(79, 79, 79); font-size: 10pt;">#informação do nível b é eliminada</span></div><div><span style="color: rgb(79, 79, 79); font-size: 10pt;"><br></span></div><div style="margin-top: 0px; margin-bottom: 0px; font-family: 'Helvetica Neue'; color: rgb(7, 26,
153);">table(<span style="color: #000000">d1</span>$<span style="color: #000000">x2</span>)</div><div style="background-color: transparent;"><span>
</span></div><div style="margin-top: 0px; margin-bottom: 0px; font-family: 'Helvetica Neue'; color: rgb(7, 26, 153);">summary(<span style="color: #000000">d1</span>$<span style="color: #000000">x2</span>)</div><div></div><div> </div><div>Edson Lira<br>Estatístico<br>Manaus-Amazonas</div><div class="yahoo_quoted" style="display: block;"> <div style="font-family: 'Courier New', courier, monaco, monospace, sans-serif; font-size: 10pt;"> <div style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 12pt;"> <div dir="ltr"> <font size="2" face="Arial"> Em Quinta-feira, 10 de Abril de 2014 20:32, Rodrigo Muniz <uenf.rodrigo@gmail.com> escreveu:<br> </font> </div> <div class="y_msg_container"><div id="yiv6866585218"><div dir="ltr">Obrigado Fernando, o problema era exatamente o que você relatou, utilizei o droplevels() e deu certo.<div>Desculpe não ter fornecido o CRM, como eu desconhecia
totalmente a origem do problema, achei que fosse algo com o Rstudio ou mesmo ao windows e não aspectos de programação.</div>
<div>De qualquer forma agradeço</div><div>Att...</div></div><div class="yiv6866585218gmail_extra"><br><br><div class="yiv6866585218gmail_quote">2014-04-10 18:56 GMT-03:00 FHRB Toledo <span dir="ltr"><<a rel="nofollow" ymailto="mailto:fernandohtoledo@gmail.com" target="_blank" href="mailto:fernandohtoledo@gmail.com">fernandohtoledo@gmail.com</a>></span>:<br>
<blockquote class="yiv6866585218gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div dir="ltr">Rodrigo,<div><br></div><div>Faça o teste...</div><div><br></div><div>str(Carbono)</div><div><br></div><div>
Veja que ele vai ter dizer quantos níveis (levels) há para a sua variável "classe"!</div><div>
<br></div><div>Agora veja também o str(subset(Carbono, Carbono$calsse == 'arenosa'))</div><div><br></div><div>Você vai ver que o número de classe continua o mesmo, ou seja, o subset "herda" algumas informações do data.frame de origem!</div>
<div><br></div><div>Uma saída é usar droplevels() que vai retirar os níveis que não são usados do seu subset!</div><div><br></div><div>P.S.: Tudo que eu falei é apenas fruto de chute, intuição e algumas pitadas de adivinhação, visto que você não nos forneceu um CMR!</div>
<div><br></div><div>att,</div><div>FH</div></div><div class="yiv6866585218gmail_extra"><br><br><div class="yiv6866585218gmail_quote">2014-04-10 16:49 GMT-05:00 Rodrigo Muniz <span dir="ltr"><<a rel="nofollow" ymailto="mailto:uenf.rodrigo@gmail.com" target="_blank" href="mailto:uenf.rodrigo@gmail.com">uenf.rodrigo@gmail.com</a>></span>:<br>
<blockquote class="yiv6866585218gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div><div class="yiv6866585218h5"><div dir="ltr">Caros membros da lista, gostaria mais uma vez de solicitar a ajuda de vocês.<div>Estou tendo um problema, que não sei identificar o que é. </div>
<div>O problema é o seguinte:</div><div>Tenho um data frame 20 colunas chamado "Carbono", onde um das colunas é um fator identificando os tratamentos do experimento, e tenho um outra coluna com as classes texturais do solo. </div>
<div>Eu fiz uma análise por classe textural, então extraí um outro data frame chamado "Arenosa", utilizando a função "subset" somente para a classe arenosa, desta forma neste segundo data frame não há todos os tratamentos que estão presentes no data frame "Carbono". Porém qualquer gráfico que eu faça como por exemplo, plot(tapply(arenosa, arenosa$Tratamento, mean), aparece no gráfico todos os tratamentos do data frame "Carbono". </div>
<div>Esse é um exemplo, mas tenho tido problemas recorrentes referente a isto. Alguém tem alguma ideia do que possa ser? </div><div>A título de informação, meu sistema operacional é Windows 7 e eu utilizo o Rstudio.</div>
<div>Desde já agradeço...<span><font color="#888888"><br clear="all"><div><br></div>-- <br><b>Rodrigo A. Muniz</b><div>Eng. Agrônomo. Ms Produção Vegetal (UENF)</div><div>Doutorando em Engenharia de Sistemas Agrícolas (ESALQ/USP)</div>
<div>Cel (19) 8300-4333 (Pessoal)</div>
<div>Tel <a rel="nofollow" href="">(19) 3375-1196</a> (Residêncial)</div><div>Tel <a rel="nofollow" href="">(19) 3447-8537</a> (Trabalho)</div>
</font></span></div></div>
<br></div></div>_______________________________________________<br>
R-br mailing list<br>
<a rel="nofollow" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a rel="nofollow" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a rel="nofollow" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a rel="nofollow" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a rel="nofollow" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a rel="nofollow" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><div><br></div>-- <br>
<b>Rodrigo A. Muniz</b><div>Eng. Agrônomo. Ms Produção Vegetal (UENF)</div><div>Doutorando em Engenharia de Sistemas Agrícolas (ESALQ/USP)</div><div>Cel (19) 8300-4333 (Pessoal)</div><div>Tel (19) 3375-1196 (Residêncial)</div>
<div>Tel (19) 3447-8537 (Trabalho)</div>
</div></div><br>_______________________________________________<br>R-br mailing list<br><a ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br><br></div> </div> </div> </div> </div></body></html>