df <- reshape2::dcast(da.melt, trat+tempo~Esp, value.var = 'N') df <- dplyr::arrange(df, tempo) all(df==da) 2015-03-21 20:18 GMT-03:00 ASANTOS <alexandresantosbr@yahoo.com.br>:
Boa noite Pessoal,
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,
Obrigado,
#Dados artificiais ----------------------------------- da <- expand.grid(trat=gl(4,1), tempo=1:10) X <- model.matrix(~trat+tempo, da); ncol(X) da$Esp1<-rpois(da[,1],5) da$Esp2<-rpois(da[,1],10) da$Esp3<-rpois(da[,1],15) head(da) #Empilhar da.melt = melt(da, id = c("trat", "tempo"), variable.name="Esp",value.name ="N") head(da.melt)
#Mas e agora para à partir do objeto da.melt como eu volto para o objeto da?
-- ====================================================================== Alexandre dos Santos Proteção Florestal IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso Campus Cáceres Caixa Postal 244 Avenida dos Ramires, s/n Bairro: Distrito Industrial Cáceres - MT CEP: 78.200-000 Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO) e-mails:alexandresantosbr@yahoo.com.br alexandre.santos@cas.ifmt.edu.br Lattes: http://lattes.cnpq.br/1360403201088680 ======================================================================
On 25/02/2015 06:53, ASANTOS wrote:
Obrigado Salah
Era exatamente isto que eu queria!!
On 24/02/2015 21:50, izi wrote:
Olá Alexandre
Basta usar a função melt do pacote reshape2
library(reshape2)
da.melt = melt(da, id = c("trat", "tempo"), variable.name="Esp", value.name="N") da.melt
--- Este email foi escaneado pelo Avast antivírus. http://www.avast.com
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
-- Luís Gustavo Silva e Silva