<div dir="ltr">você pode usar t() com o resultado do comando que eu te mandei,<div style>outra opção é:</div><div style>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 style><br></div><div style>pode ser isso?</div><div style>att,</div><div style>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 class="h5">
    <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">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="font-size:12.727272033691406px;color:rgb(34,34,34);font-family:arial,sans-serif;background-color:rgb(255,255,255)">Luciano F. Sgarbi</b><br>

<br style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.727272033691406px;background-color:rgb(255,255,255)"><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.727272033691406px;background-color:rgb(255,255,255)">Mestrando em Ecologia e Evolução</span><br style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.727272033691406px;background-color:rgb(255,255,255)">

<span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.727272033691406px;background-color:rgb(255,255,255)">Laboratório de Ecologia de Insetos (sl. 222)</span><br style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.727272033691406px;background-color:rgb(255,255,255)">

<div style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.727272033691406px;background-color:rgb(255,255,255)">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-family:arial,sans-serif;font-size:12.727272033691406px;background-color:rgb(255,255,255)">Brazil</div></div><div><br></div><div><br></div>
</div>