<div dir="ltr"><div><div><div>Eu não entendi o que você quer fazer. No seu exemplo, o primeiro elemento é besouro, mas você retornou barata.<br><br></div><div>Os valores de talhao e area nnao parecem bater com os dados do seu exemplo. Como para Formiga o talhão de volta redonda seria 73, se na base original os valores são 74 e 15?<br></div><br></div><div>Abc<br></div><div>Manoel<br><br>> tableFE<br><br> Bichos Talhao Projeto Injuria Area<br> Besouros 73 Abre Campo 25 0.0<br> Barata 15 Volta Redonda 100 0.0<br> Formiga 74 Vitoria 0 12.5<br> Barata 75 Abre Campo 25 0.0<br> Formiga 15 Volta Redonda 0 7.5<br> Besouros 15 Vitoria 100 0.0<br> Formiga 15 Abre Campo 0 1.5<br> Besouros 73 Volta Redonda 50 0.0<br> Barata 15 Vitoria 25 0.0<br> Formiga 15 Abre Campo 0 23.8<br> Barata 73 Volta Redonda 25 0.0<br> Formiga 15 Vitoria 0 5.3<br> Besouros 73 Abre Campo 25 0.0<br> Formiga 74 Volta Redonda 0 2.0<br> Formiga 74 Vitoria 0 11.3<br></div><br></div>Mas seus resultados não têm a média<br><div><div><div class="gmail_extra"><br><div class="gmail_quote">2016-01-21 11:07 GMT-02:00 ASANTOS <span dir="ltr"><<a href="mailto:alexandresantosbr@yahoo.com.br" target="_blank">alexandresantosbr@yahoo.com.br</a>></span>:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">Caros listeiros,<br>
<br>
<br>
Estou tentando criar uma função aggPestFE que para uma primeira variável se for "Formiga", vai tirar a media da coluna 5, mas se for "Besouros" ou "Barata" vai tira a média da coluna 4. Sendo que quero o resultado dado em forma de list, ficando o meu resultado:<br>
<br>
[[1]]<br>
[1] "Barata"<br>
<br>
[[1]][[3]]<br>
Projeto Talhao Injuria(%)<br>
1 Abre Campo 15 25<br>
2 Volta Redonda 73 0<br>
3 Vitoria 74 50<br>
<br>
<br>
[[2]]<br>
[1] "Besouros"<br>
<br>
[[1]][[3]]<br>
Projeto Talhao Injuria(%)<br>
1 Abre Campo 15 0<br>
2 Volta Redonda 73 25<br>
3 Vitoria 74 50<br>
<br>
[[2]]<br>
[1] "Formiga"<br>
<br>
[[1]][[3]]<br>
Projeto Talhao Area (m2)<br>
1 Abre Campo 15 12.5<br>
2 Volta Redonda 73 1.5<br>
3 Vitoria 74 23.8<br>
<br>
<br>
Para isso estou tentando:<br>
<br>
<br>
##Dados artificiais<br>
<br>
Bichos<-c("Besouros","Barata","Formiga","Barata","Formiga","Besouros","Formiga",<br>
"Besouros","Barata","Formiga","Barata","Formiga","Besouros","Formiga","Formiga")<br>
<br>
Talhao<-c(73,15,74,75,15,15,15,73,15,15,73,15,73,74,74)<br>
<br>
<br>
Projeto<-c("Abre Campo", "Volta Redonda","Vitoria","Abre Campo", "Volta Redonda",<br>
"Vitoria","Abre Campo", "Volta Redonda","Vitoria","Abre Campo", "Volta Redonda",<br>
"Vitoria","Abre Campo", "Volta Redonda","Vitoria")<br>
<br>
Injuria<-c(25,100,0,25,0,100,0,50,25,0,25,0,25,0,0)<br>
<br>
<br>
<br>
Area<-c(0,0,12.5,0,7.5,0,1.5,0,0,23.8,0,5.3,0,2.0,11.3)<br>
<br>
<br>
tableFE<-data.frame(Bichos, Talhao, Projeto, Injuria, Area) ## Banco de dados criado<br>
<br>
<br>
##Função<br>
<br>
aggPestFE<-function(x, db=tableFE){<br>
<br>
<br>
mylist <- list()<br>
<br>
<br>
<br>
<br>
if (tableFE[,1] != "Formigas") {<br>
<br>
for (i in length(tableFE[,1])){<br>
<br>
GP_FE2<-tableFE[tableFE[,1]==tableFE[i],]<br>
aggdata <-aggregate(GP_FE2[,4], list(GP_FE2[,3],GP_FE2[,2]), mean)<br>
colnames(aggdata)<-c("Regional","Projeto","Talhão","Injúria média (%)")<br>
tmp <- list(aggdata)<br>
mylist[NPRAGS[i]] <- tmp<br>
result<-mylist<br>
return(result)<br>
}<br>
<br>
<br>
else if (tableFE[,1] == "Formigas") {<br>
<br>
GP_FE2<-[tableFE[,1]<br>
aggdata <-aggregate(GP_FE2[,5], list(GP_FE2[,3],GP_FE2[,2]), mean)<br>
colnames(aggdata)<-c("Regional","Projeto","Talhão","Injúria média (%)")<br>
tmp <- list(aggdata)<br>
mylist[NPRAGS[i]] <- tmp<br>
result<-mylist<br>
return(result)<br>
}<br>
}<br>
<br>
RES<-list(result,aggdata3)<br>
result<-RES<br>
return(result)<br>
}<br>
<br>
<br>
#Teste<br>
aggPestFE(tableFE)<br>
#<br>
<br>
Sem sucesso, alguém poderia me ajudar?<br>
<br>
Obrigado e abraços,<br>
<br>
<br>
<br>
<br>
<br>
<br>
-- <br>
======================================================================<br>
Alexandre dos Santos<br>
Proteção 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>
Lattes: <a href="http://lattes.cnpq.br/1360403201088680" rel="noreferrer" target="_blank">http://lattes.cnpq.br/1360403201088680</a><br>
OrcID: <a href="http://orcid.org/0000-0001-8232-6722" rel="noreferrer" target="_blank">orcid.org/0000-0001-8232-6722</a><br>
Researchgate: <a href="https://www.researchgate.net/profile/Alexandre_Santos10" rel="noreferrer" target="_blank">https://www.researchgate.net/profile/Alexandre_Santos10</a><br>
LinkedIn: <a href="https://br.linkedin.com/in/alexandre-dos-santos-87961635" rel="noreferrer" target="_blank">https://br.linkedin.com/in/alexandre-dos-santos-87961635</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" rel="noreferrer" 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" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e fornea cdigo mnimo reproduzvel.</blockquote></div><br><br clear="all"><br>-- <br><div>Manoel Galdino<br><a href="https://sites.google.com/site/galdinomcz/" target="_blank">https://sites.google.com/site/galdinomcz/</a><br></div>
</div></div></div></div>