<div dir="ltr"><div class="gmail_default" style=""><div class="gmail_default"><font face="verdana, sans-serif">Alexandre, bom dia!</font></div><div class="gmail_default"><font face="verdana, sans-serif"><br></font></div><div class="gmail_default"><font face="verdana, sans-serif">Não havia atentado para o problema na importação das tabelas, sendo necessário definir as classes. Além disso, na função você deve se referir a "db" antes que "tableFE" e  "x" é definido internamente por lapply().</font></div><div class="gmail_default"><br></div><div class="gmail_default"><font face="verdana, sans-serif"><br></font></div><div class="gmail_default"><font face="monospace, monospace">### <code r></font></div><div class="gmail_default"><font face="monospace, monospace">require(RCurl); require(XML)</font></div><div class="gmail_default"><font face="monospace, monospace">url0 <- "<a href="https://www.dropbox.com/s/znmr0lwda2y6fc5/BD_teste2.html?dl=1">https://www.dropbox.com/s/znmr0lwda2y6fc5/BD_teste2.html?dl=1</a>"</font></div><div class="gmail_default"><font face="monospace, monospace">url1 <- gsub("(^.*)(/s/.*)(\\?.*$)", "<a href="https://dl.dropboxusercontent.com">https://dl.dropboxusercontent.com</a>\\2", url0); url1</font></div><div class="gmail_default"><font face="monospace, monospace"># [1] "<a href="https://dl.dropboxusercontent.com/s/znmr0lwda2y6fc5/BD_teste2.html">https://dl.dropboxusercontent.com/s/znmr0lwda2y6fc5/BD_teste2.html</a>"</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace">page <- getURL(url1)</font></div><div class="gmail_default"><font face="monospace, monospace">tableFE <- readHTMLTable(page, head=T)[[1]]</font></div><div class="gmail_default"><font face="monospace, monospace">str(tableFE) ### todas variáveis estão como fatores - corrigir!</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace">classes <- c(rep("factor", 6), rep("numeric", 4), "factor")</font></div><div class="gmail_default"><font face="monospace, monospace">tableFE <- readHTMLTable(page, head=T, colClasses=classes)[[1]]</font></div><div class="gmail_default"><font face="monospace, monospace">str(tableFE) ### OK!</font></div><div class="gmail_default"><font face="monospace, monospace">head(tableFE)</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace">##Agregando os resultados</font></div><div class="gmail_default"><font face="monospace, monospace">aggPestFE <- function(db=tableFE, key="descricao"){</font></div><div class="gmail_default"><font face="monospace, monospace">lista  <- split(db, db[key])</font></div><div class="gmail_default"><font face="monospace, monospace">result <- lapply(lista, function(x) aggregate(x[,7:8], by=list(x[,3],x[,2],x[,5]), mean))</font></div><div class="gmail_default"><font face="monospace, monospace">return(result)</font></div><div class="gmail_default"><font face="monospace, monospace">}</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace">### Devido aos "defaults", obtém mesmos resultados nas três formas que seguem:</font></div><div class="gmail_default"><font face="monospace, monospace">aggPestFE()[5]</font></div><div class="gmail_default"><font face="monospace, monospace">aggPestFE(tableFE)[5]</font></div><div class="gmail_default"><font face="monospace, monospace">aggPestFE(tableFE, "descricao")[5]</font></div><div class="gmail_default"><font face="monospace, monospace"># $`Lagartas Desfolhadoras`</font></div><div class="gmail_default"><font face="monospace, monospace">#   Group.1           Group.2 Group.3 formiga_area qtd_destruido</font></div><div class="gmail_default"><font face="monospace, monospace"># 1      GN             Chale      26            0          62.5</font></div><div class="gmail_default"><font face="monospace, monospace"># 2      RD Corrego da Coruja      26            0          50.0</font></div><div class="gmail_default"><font face="monospace, monospace"># 3      GN      Aeroporto II      28            0          75.0</font></div><div class="gmail_default"><font face="monospace, monospace"><br></font></div><div class="gmail_default"><font face="monospace, monospace">### </code></font></div></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><font face="arial, helvetica, sans-serif" style="font-size:small"><div style="font-family:'trebuchet ms',sans-serif;display:inline">​</div>================================================<br>Éder Comunello</font><div style="font-size:small"><span style="font-family:arial,helvetica,sans-serif">PhD Student in Agricultural Systems Engineering (USP/Esalq)</span><br></div><div><span style="font-size:small">Brazilian Agricultural Research Corporation (</span><font face="arial, helvetica, sans-serif" style="font-size:small">Embrapa)</font><div style="font-size:small"><font face="arial, helvetica, sans-serif">Dourados, MS, Brazil [</font>22 16.5'S, 54 49.0'W<span style="font-family:arial,helvetica,sans-serif">]</span></div><div><div><br></div><div><br></div></div><div style="font-size:small"><br></div></div></div></div></div></div></div></div></div></div></div>