[R-br] Empilhar e desempilhar variáveis em colunas para linhas [RESOLVIDO]

ASANTOS alexandresantosbr em yahoo.com.br
Domingo Março 22 08:00:51 BRT 2015


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 em yahoo.com.br
         alexandre.santos em 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



Mais detalhes sobre a lista de discussão R-br