<p dir="ltr">À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().</p>
<div class="gmail_quote">On Mar 12, 2013 1:16 PM, "Luciano F. Sgarbi" <<a href="mailto:luciano.f.sgarbi@gmail.com">luciano.f.sgarbi@gmail.com</a>> wrote:<br type="attribution"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr">você pode usar t() com o resultado do comando que eu te mandei,<div>outra opção é:</div><div>do.call(rbind,l<span style="font-size:12.800000190734863px;font-family:arial,sans-serif">apply(split(dados,dados$</span><span style="font-size:12.800000190734863px;font-family:arial,sans-serif">especie),function(x) a<-c(apply(x[,c(2:4)],2,mean),</span><span style="font-size:12.800000190734863px;font-family:arial,sans-serif">sum(x[,5])) )</span>)</div>
<div><br></div><div>pode ser isso?</div><div>att,</div><div>Luciano</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 12 de março de 2013 13:06, ASANTOS <span dir="ltr"><<a href="mailto:alexandresantosbr@yahoo.com.br" target="_blank">alexandresantosbr@yahoo.com.br</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div text="#000000" bgcolor="#FFFFFF">
Obrigado Luciano,<br>
<br>
Mas não era bem isso, pois o objeto final ficou no formato:<br>
> dados2<br>
sp1 sp2 sp3 sp4 sp5
sp6 sp7 sp8<br>
dossel 82.77001 82.77001 82.77001 82.77001 82.77001
82.77001 82.77001 82.77001<br>
elevacao 727.85335 727.85335 727.85335 727.85335 727.85335 727.85335
727.85335 727.85335<br>
argila 47.28028 47.28028 47.28028 47.28028 47.28028
47.28028 47.28028 47.28028<br>
500.00000 500.00000 500.00000 500.00000 500.00000 500.00000
500.00000 500.00000<br>
<br>
E na verdade eu queria manter a estrutura de cada variável em
uma coluna, sendo:<br>
<br>
> head(dados)<br>
especie dossel elevacao argila presenca<br>
1 sp1 70.63681 671.8686 58.47338 500<br>
2 sp2 70.63681 671.8686 58.47338 500<br>
3 sp3 70.63681 671.8686 58.47338 500<br>
4 sp4 70.63681 671.8686 58.47338 500<br>
5 sp5 70.63681 671.8686 58.47338 500<br>
6 sp6 70.63681 671.8686 58.47338 500<br>
<br>
Obrigado,<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<div>Em 12/03/2013 09:10, Luciano F. Sgarbi
escreveu:<br>
</div><div><div>
<blockquote type="cite">
<div dir="ltr">
<div>é isso?</div>
sapply(split(dados,dados$especie),function(x)
a<-c(apply(x[,c(2:4)],2,mean),sum(x[,5])) )<br>
<div><br>
</div>
<div>att,</div>
<div>Luciano</div>
</div>
<div class="gmail_extra">
<br>
<br>
<div class="gmail_quote">Em 12 de março de 2013 09:40, ASANTOS <span dir="ltr"><<a href="mailto:alexandresantosbr@yahoo.com.br" target="_blank">alexandresantosbr@yahoo.com.br</a>></span>
escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Bom dia pessoal,<br>
<br>
Estou tentando obter um novo objeto com alguns
dados que sera ó resultado de várias operações, sendo:<br>
<br>
#<br>
dados<-expand.grid(especie=c("sp1","sp2","sp3","sp4","sp5",<br>
"sp6","sp7","sp8"),##8 espécies de inseto<br>
dossel=rnorm(5,75,15), ## Cobertura de dossel<br>
elevacao=rnorm(5,750,50),##Elevação do terreno<br>
argila=rnorm(5,45,15),## Teor de argila<br>
presenca=rbinom(5,1,0.6)) ## Presença ou ausência do inseto<br>
#<br>
<br>
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,<br>
<br>
Obrigado<br>
<br>
-- <br>
======================================================================<br>
Alexandre dos Santos<br>
Proteção Florestal<br>
Coordenador do curso Técnico em Florestas<br>
Vice Coordenador do curso de Engenharia Florestal<br>
IFMT - Instituto Federal de Educação, Ciência e Tecnologia
de Mato Grosso<br>
Campus Cáceres<br>
Caixa Postal 244<br>
Avenida dos Ramires, s/n<br>
Bairro: Distrito Industrial<br>
Cáceres - MT CEP: 78.200-000<br>
Fone: <a href="tel:%28%2B55%29%2065%208132-8112" value="+556581328112" target="_blank">(+55) 65 8132-8112</a>
(TIM) <a href="tel:%28%2B55%29%2065%209686-6970" value="+556596866970" target="_blank">(+55) 65 9686-6970</a>
(VIVO)<br>
<a href="mailto:e-mails%3Aalexandresantosbr@yahoo.com.br" target="_blank">e-mails:alexandresantosbr@yahoo.com.br</a><br>
<a href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank">alexandre.santos@cas.ifmt.edu.br</a><br>
======================================================================<br>
<br>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>)
e forneça código mínimo reproduzível.<br>
</blockquote>
</div>
<br>
<br clear="all">
<div><br>
</div>
-- <br>
<div><b style="color:rgb(34,34,34);font-size:12.727272033691406px;font-family:arial,sans-serif">Luciano
F. Sgarbi</b><br>
<br style="color:rgb(34,34,34);font-size:12.727272033691406px;font-family:arial,sans-serif">
<span style="color:rgb(34,34,34);font-size:12.727272033691406px;font-family:arial,sans-serif">Mestrando
em Ecologia e Evolução</span><br style="color:rgb(34,34,34);font-size:12.727272033691406px;font-family:arial,sans-serif">
<span style="color:rgb(34,34,34);font-size:12.727272033691406px;font-family:arial,sans-serif">Laboratório
de Ecologia de Insetos (sl. 222)</span><br style="color:rgb(34,34,34);font-size:12.727272033691406px;font-family:arial,sans-serif">
<div style="color:rgb(34,34,34);font-size:12.727272033691406px;font-family:arial,sans-serif">Departamento
de Ecologia<br>
Instituto de Ciências Biológicas - ICB 1<br>
Universidade Federal de Goiás, campus II<br>
Goiânia-GO<br>
74001-970</div>
<div style="color:rgb(34,34,34);font-size:12.727272033691406px;font-family:arial,sans-serif">Brazil</div>
</div>
<div><br>
</div>
<div><br>
</div>
</div>
<br>
<fieldset></fieldset>
<br>
<pre>_______________________________________________
R-br mailing list
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
</blockquote>
<br>
<pre cols="72">--
======================================================================
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: <a href="tel:%28%2B55%29%2065%208132-8112" value="+556581328112" target="_blank">(+55) 65 8132-8112</a> (TIM) <a href="tel:%28%2B55%29%2065%209686-6970" value="+556596866970" target="_blank">(+55) 65 9686-6970</a> (VIVO)
<a href="mailto:e-mails:alexandresantosbr@yahoo.com.br" target="_blank">e-mails:alexandresantosbr@yahoo.com.br</a>
<a href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank">alexandre.santos@cas.ifmt.edu.br</a>
======================================================================
</pre>
</div></div></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><div><br></div>-- <br>
<blockquote style="margin:0 0 0 40px;border:none;padding:0px"></blockquote><div><b style="color:rgb(34,34,34);font-size:12.727272033691406px;font-family:arial,sans-serif">Luciano F. Sgarbi</b><br>
<br style="color:rgb(34,34,34);font-size:12.727272033691406px;font-family:arial,sans-serif"><span style="color:rgb(34,34,34);font-size:12.727272033691406px;font-family:arial,sans-serif">Mestrando em Ecologia e Evolução</span><br style="color:rgb(34,34,34);font-size:12.727272033691406px;font-family:arial,sans-serif">
<span style="color:rgb(34,34,34);font-size:12.727272033691406px;font-family:arial,sans-serif">Laboratório de Ecologia de Insetos (sl. 222)</span><br style="color:rgb(34,34,34);font-size:12.727272033691406px;font-family:arial,sans-serif">
<div style="color:rgb(34,34,34);font-size:12.727272033691406px;font-family:arial,sans-serif">Departamento de Ecologia<br>Instituto de Ciências Biológicas - ICB 1<br>Universidade Federal de Goiás, campus II<br>
Goiânia-GO<br>74001-970</div><div style="color:rgb(34,34,34);font-size:12.727272033691406px;font-family:arial,sans-serif">Brazil</div></div><div><br></div><div><br></div>
</div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div>