[R-br] Criar objeto com operações distintas

Terça Março 12 13:20:37 BRT 2013

À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" <luciano.f.sgarbi em gmail.com>
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 <alexandresantosbr em yahoo.com.br>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 <alexandresantosbr em yahoo.com.br>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:alexandresantosbr em yahoo.com.br
>>>         alexandre.santos em cas.ifmt.edu.br
>>> ======================================================================
>>>
>>> _______________________________________________
>>> R-br mailing list
>>> R-br em listas.c3sl.ufpr.br
>>> 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 listR-br em listas.c3sl.ufpr.brhttps://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:alexandresantosbr em yahoo.com.br
>>         alexandre.santos em cas.ifmt.edu.br
>> ======================================================================
>>
>>
>> _______________________________________________
>> R-br mailing list
>> R-br em listas.c3sl.ufpr.br
>> 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
> R-br em listas.c3sl.ufpr.br
> 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.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130312/b577dfda/attachment.html>