você pode usar t() com o resultado do comando que eu te mandei, outra opção é: do.call(rbind,lapply(split(dados,dados$especie),function(x) a<-c(apply(x[,c(2:4)],2,mean),sum(x[,5])) ))
pode ser isso? att, Luciano Em 12 de março de 2013 13:06, ASANTOS <[email protected]>escreveu: > Obrigado Luciano, > > Mas não era bem isso, pois o objeto final ficou no formato: > > dados2 > sp1 sp2 sp3 sp4 sp5 sp6 > sp7 sp8 > dossel 82.77001 82.77001 82.77001 82.77001 82.77001 82.77001 > 82.77001 82.77001 > elevacao 727.85335 727.85335 727.85335 727.85335 727.85335 727.85335 > 727.85335 727.85335 > argila 47.28028 47.28028 47.28028 47.28028 47.28028 47.28028 > 47.28028 47.28028 > 500.00000 500.00000 500.00000 500.00000 500.00000 500.00000 > 500.00000 500.00000 > > E na verdade eu queria manter a estrutura de cada variável em uma > coluna, sendo: > > > head(dados) > especie dossel elevacao argila presenca > 1 sp1 70.63681 671.8686 58.47338 500 > 2 sp2 70.63681 671.8686 58.47338 500 > 3 sp3 70.63681 671.8686 58.47338 500 > 4 sp4 70.63681 671.8686 58.47338 500 > 5 sp5 70.63681 671.8686 58.47338 500 > 6 sp6 70.63681 671.8686 58.47338 500 > > Obrigado, > > > > > > > > > > Em 12/03/2013 09:10, Luciano F. Sgarbi escreveu: > > é isso? > sapply(split(dados,dados$especie),function(x) > a<-c(apply(x[,c(2:4)],2,mean),sum(x[,5])) ) > > att, > Luciano > > > Em 12 de março de 2013 09:40, ASANTOS > <[email protected]>escreveu: > >> Bom dia pessoal, >> >> Estou tentando obter um novo objeto com alguns dados que sera ó >> resultado de várias operações, sendo: >> >> # >> dados<-expand.grid(especie=c("sp1","sp2","sp3","sp4","sp5", >> "sp6","sp7","sp8"),##8 espécies de inseto >> dossel=rnorm(5,75,15), ## Cobertura de dossel >> elevacao=rnorm(5,750,50),##Elevação do terreno >> argila=rnorm(5,45,15),## Teor de argila >> presenca=rbinom(5,1,0.6)) ## Presença ou ausência do inseto >> # >> >> Gostaria de explicitar que a cada variação em dados$especie, >> fosse realizado a soma de dados$presenca e a média de dados$dossel, >> dados$elevacao e dados$argila, na criação do novo objeto, mas com o comando >> tapply(), não estou tendo sucesso em uma única linha de comando, alguém >> teria alguma sugestão para fazer esta operação de maneira direta, >> >> Obrigado >> >> -- >> ====================================================================== >> Alexandre dos Santos >> Proteção Florestal >> Coordenador do curso Técnico em Florestas >> Vice Coordenador do curso de Engenharia 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:[email protected] >> [email protected] >> ====================================================================== >> >> _______________________________________________ >> R-br mailing list >> [email protected] >> 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. >> > > > > -- > *Luciano F. Sgarbi* > > Mestrando em Ecologia e Evolução > Laboratório de Ecologia de Insetos (sl. 222) > Departamento de Ecologia > Instituto de Ciências Biológicas - ICB 1 > Universidade Federal de Goiás, campus II > Goiânia-GO > 74001-970 > Brazil > > > > > _______________________________________________ > R-br mailing > [email protected]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. > > > -- > ====================================================================== > Alexandre dos Santos > Proteção Florestal > Coordenador do curso Técnico em Florestas > Vice Coordenador do curso de Engenharia 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:[email protected] > [email protected] > ====================================================================== > > > _______________________________________________ > R-br mailing list > [email protected] > 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. > -- *Luciano F. Sgarbi* Mestrando em Ecologia e Evolução Laboratório de Ecologia de Insetos (sl. 222) Departamento de Ecologia Instituto de Ciências Biológicas - ICB 1 Universidade Federal de Goiás, campus II Goiânia-GO 74001-970 Brazil
_______________________________________________ R-br mailing list [email protected] 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.
