Obrigado Luís, Funcionou perfeitamente, após a instalação dos pacotes lazyeval e dplyr, solução: require(reshape2) require(dplyr) #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) df <- reshape2::dcast(da.melt, trat+tempo~Esp, value.var = 'N') df <- dplyr::arrange(df, tempo) all(df==da) head(df) -- ====================================================================== 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 21/03/2015 19:34, Luis G. S. e Silva wrote:
df <- reshape2::dcast(da.melt, trat+tempo~Esp, value.var = 'N') df <- dplyr::arrange(df, tempo) all(df==da)
--- Este email foi escaneado pelo Avast antivírus. http://www.avast.com