<div dir="ltr">df <- reshape2::dcast(da.melt, trat+tempo~Esp, value.var = 'N')<br><div>df <- dplyr::arrange(df, tempo)<br></div><div>all(df==da)<br></div></div><div class="gmail_extra"><br><div class="gmail_quote">2015-03-21 20:18 GMT-03:00 ASANTOS <span dir="ltr"><<a href="mailto:alexandresantosbr@yahoo.com.br" target="_blank">alexandresantosbr@yahoo.com.br</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Boa noite Pessoal,<br>
<br>
                  No meu CRM abaixo eu usei a função melt para empilhar, tem alguma outra função se eu desejo agora desempilhar o objeto criado e voltar o objeto a forma original, a função acast e dcast não funcionaram,<br>
<br>
Obrigado,<br>
<br>
<br>
#Dados artificiais ------------------------------<u></u>-----<br>
da <- expand.grid(trat=gl(4,1), tempo=1:10)<br>
X <- model.matrix(~trat+tempo, da); ncol(X)<br>
da$Esp1<-rpois(da[,1],5)<br>
da$Esp2<-rpois(da[,1],10)<br>
da$Esp3<-rpois(da[,1],15)<br>
head(da)<br>
#Empilhar<br>
da.melt = melt(da, id = c("trat", "tempo"), <a href="http://variable.name" target="_blank">variable.name</a>="Esp",<a href="http://value.name" target="_blank">value.name</a><u></u>="N")<br>
head(da.melt)<br>
<br>
#Mas e agora para à partir do objeto da.melt como eu volto para o objeto da?<br>
<br>
<br>
-- <br>
==============================<u></u>==============================<u></u>==========<br>
Alexandre dos Santos<br>
Proteção Florestal<br>
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso<br>
Campus Cáceres<br>
Caixa Postal 244<br>
Avenida dos Ramires, s/n<br>
Bairro: Distrito Industrial<br>
Cáceres - MT                      CEP: 78.200-000<br>
Fone: <a href="tel:%28%2B55%29%2065%208132-8112" value="+556581328112" target="_blank">(+55) 65 8132-8112</a> (TIM)   <a href="tel:%28%2B55%29%2065%209686-6970" value="+556596866970" target="_blank">(+55) 65 9686-6970</a> (VIVO)<br>
<a href="mailto:e-mails%3Aalexandresantosbr@yahoo.com.br" target="_blank">e-mails:alexandresantosbr@<u></u>yahoo.com.br</a><br>
        <a href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank">alexandre.santos@cas.ifmt.edu.<u></u>br</a><br>
Lattes: <a href="http://lattes.cnpq.br/1360403201088680" target="_blank">http://lattes.cnpq.br/<u></u>1360403201088680</a><br>
==============================<u></u>==============================<u></u>==========<br>
<br>
<br>
<br>
<br>
<br>
On 25/02/2015 06:53, ASANTOS wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Obrigado Salah<br>
<br>
     Era exatamente isto que eu queria!!<br>
<br>
<br>
<br>
On 24/02/2015 21:50, izi wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Olá Alexandre<br>
<br>
  Basta usar a função melt do pacote reshape2<br>
<br>
library(reshape2)<br>
<br>
da.melt = melt(da, id = c("trat", "tempo"), <a href="http://variable.name" target="_blank">variable.name</a>="Esp",<br>
<a href="http://value.name" target="_blank">value.name</a>="N")<br>
da.melt<br>
<br>
</blockquote>
<br>
</blockquote>
<br>
<br>
---<br>
Este email foi escaneado pelo Avast antivírus.<br>
<a href="http://www.avast.com" target="_blank">http://www.avast.com</a><br>
<br>
______________________________<u></u>_________________<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" target="_blank">https://listas.inf.ufpr.br/<u></u>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-<u></u>guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature"><div dir="ltr">Luís Gustavo Silva e Silva</div></div>
</div>