<div dir="ltr"><div>Ludmila, boa tarde!</div><div><br></div><div>Usando a amostra dos dados que você postou, não consegui reproduzir o erro. Rodou normalmente. De qualquer modo, vale a dica do colega Rubem para usar <font face="courier new, monospace">split()</font>. Uma vantagem é que as listas saem rotuladas (ver saída de <font face="courier new, monospace">uc_list <i>vs</i>. uc_list2 </font>gerado pelo código que segue<span style="font-family:'courier new',monospace">).</span></div>
<div><br></div><div><font face="courier new, monospace">### <code r></font></div><div><font face="courier new, monospace">sp_names <- c("Abrothrix longipilis", "Aegialomys xanthaeolus", </font></div>
<div><font face="courier new, monospace">              "Acerodon celebensis", "Acerodon mackloti",</font></div><div><font face="courier new, monospace">              "Acomys airensis", "Acomys nesiotes")</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">data <- read.table(text='</font></div><div><font face="courier new, monospace">ID;WDPAID;BINOMIAL;wdpaid</font></div>
<div><font face="courier new, monospace">1;16861;Abrothrix longipilis;NA</font></div><div><font face="courier new, monospace">2;129914;Aegialomys xanthaeolus;NA</font></div><div><font face="courier new, monospace">3;1275;Acerodon celebensis;NA</font></div>
<div><font face="courier new, monospace">4;1491;Acerodon celebensis;NA</font></div><div><font face="courier new, monospace">5;1918;Acerodon celebensis;NA</font></div><div><font face="courier new, monospace">6;1919;Acerodon celebensis;NA', header=T, row.names='ID', sep=';', <a href="http://as.is">as.is</a>=T)</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">uc_list  <- lapply(sp_names, function(x) data$WDPAID[data$BINOMIAL==x])</font></div><div><font face="courier new, monospace">uc_list2 <- split(data$WDPAID, data$BINOMIAL)[sp_names]</font></div>
<div><font face="courier new, monospace">### </code></font></div><div><br></div><div class="gmail_extra"><br clear="all"><div><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>
Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div>
<br><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><br></blockquote></div><br></div>
</div>