Às vezes, as soluções simples funcionam bem o suficiente. Talvez, vc possa usar múltiplas chamadas ao aggregate() e unir outras resultados usando merge(). On Mar 12, 2013 1:16 PM, "Luciano F. Sgarbi" <[email protected]> wrote:
> 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. >
_______________________________________________ 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.
