Olá, Rodando a função lapply como segue: uc_list<-lapply(sp_names, function(x) data$WDPAID[data$BINOMIAL==x]) Deu o seguinte erro (apesar de continuar rodando): Error in sprintf("^%s", makeRegexpSafe(text)) : promise already under evaluation: recursive default argument reference or earlier problems? Alguém sabe me dizer o que significa? -- *Me. Ludmila Rattis* Programa de Pós-graduação em Ecologia/UNICAMP Conservation Biogeography Lab http://www.wix.com/rdloyola/lab <http://sites.ffclrp.usp.br/ficus>
Ludmila, bom dia! Poderia fornecer uma amostra dos objetos 'sp_names' e 'data', a fim de viabilizar a reprodução do código e do erro? Parece ser um erro na formatação dos argumentos passados para a função definida em 'function (x)'. Éder Comunello <c <comunello.eder@gmail.com>omunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W]
Oi Éder, bom dia! Uma amostra de sp_names: sp_names [1] "Abrothrix longipilis" "Aegialomys xanthaeolus" "Acerodon celebensis" "Acerodon mackloti" "Acomys airensis" [6] "Acomys nesiotes" e de data WDPAID BINOMIAL wdpaid 1 16861 Abrothrix longipilis NA 2 129914 Aegialomys xanthaeolus NA 3 1275 Acerodon celebensis NA 4 1491 Acerodon celebensis NA 5 1918 Acerodon celebensis NA 6 1919 Acerodon celebensis NA 2014-02-15 11:24 GMT-02:00 Éder Comunello <comunello.eder@gmail.com>:
Ludmila, bom dia!
Poderia fornecer uma amostra dos objetos 'sp_names' e 'data', a fim de viabilizar a reprodução do código e do erro?
Parece ser um erro na formatação dos argumentos passados para a função definida em 'function (x)'.
Éder Comunello <c <comunello.eder@gmail.com>omunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W]
_______________________________________________ R-br mailing list R-br@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.
-- *Me. Ludmila Rattis* Programa de Pós-graduação em Ecologia/UNICAMP Conservation Biogeography Lab http://www.wix.com/rdloyola/lab <http://sites.ffclrp.usp.br/ficus>
Ludmila, Acho o seu problema pode ser mais facilmente resolvido usando a função split, em vez de lapply: uc_list <- with(data, split(WDPAID, BINOMIAL)) Att., Rubem ________________________________ De: Ludmila Rattis <ludmilarattis@gmail.com> Para: "r-br@listas.c3sl.ufpr.br" <r-br@listas.c3sl.ufpr.br>; ecomunel@gmail.com Enviadas: Sábado, 15 de Fevereiro de 2014 12:16 Assunto: Re: [R-br] Erro em lapply Oi Éder, bom dia! Uma amostra de sp_names: sp_names [1] "Abrothrix longipilis" "Aegialomys xanthaeolus" "Acerodon celebensis" "Acerodon mackloti" "Acomys airensis" [6] "Acomys nesiotes" e de data WDPAID BINOMIAL wdpaid 1 16861 Abrothrix longipilis NA 2 129914 Aegialomys xanthaeolus NA 3 1275 Acerodon celebensis NA 4 1491 Acerodon celebensis NA 5 1918 Acerodon celebensis NA 6 1919 Acerodon celebensis NA 2014-02-15 11:24 GMT-02:00 Éder Comunello <comunello.eder@gmail.com>: Ludmila, bom dia!
Poderia fornecer uma amostra dos objetos 'sp_names' e 'data', a fim de viabilizar a reprodução do código e do erro?
Parece ser um erro na formatação dos argumentos passados para a função definida em 'function (x)'.
Éder Comunello <comunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W]
_______________________________________________ R-br mailing list R-br@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.
-- Me. Ludmila Rattis Programa de Pós-graduação em Ecologia/UNICAMP Conservation Biogeography Lab http://www.wix.com/rdloyola/lab _______________________________________________ R-br mailing list R-br@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.
Ludmila, boa tarde! 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 split(). Uma vantagem é que as listas saem rotuladas (ver saída de uc_list *vs*. uc_list2 gerado pelo código que segue). ### <code r> sp_names <- c("Abrothrix longipilis", "Aegialomys xanthaeolus", "Acerodon celebensis", "Acerodon mackloti", "Acomys airensis", "Acomys nesiotes") data <- read.table(text=' ID;WDPAID;BINOMIAL;wdpaid 1;16861;Abrothrix longipilis;NA 2;129914;Aegialomys xanthaeolus;NA 3;1275;Acerodon celebensis;NA 4;1491;Acerodon celebensis;NA 5;1918;Acerodon celebensis;NA 6;1919;Acerodon celebensis;NA', header=T, row.names='ID', sep=';', as.is=T) uc_list <- lapply(sp_names, function(x) data$WDPAID[data$BINOMIAL==x]) uc_list2 <- split(data$WDPAID, data$BINOMIAL)[sp_names] ### </code> Éder Comunello <c <comunello.eder@gmail.com>omunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W]
participantes (3)
-
Ludmila Rattis -
Rubem Kaipper Ceratti -
Éder Comunello