<div dir="ltr"><div>Parece q ainda tinha um erro no método de seleção do
str_detect, agora ta 100%</div><div><br></div><div><br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">library(vroom)<br>library(tidyverse)<br>#Download dos dados<br>myfile <-<br> vroom("<a href="https://raw.githubusercontent.com/Leprechault/yolov3ants/master/result_imgval.txt">https://raw.githubusercontent.com/Leprechault/yolov3ants/master/result_imgval.txt</a>", delim = "\t", skip = 5)<br>myfile <- myfile %>% rename(dados = `folder input=imgval/ and output=backup/`)<br><br>myfile <- myfile %>% filter(str_detect(dados, "lca:|sample")) %>% as.data.frame() %>% filter(!str_detect(dados, "Predict"))<br>myfile2 <- myfile %>%<br> separate(dados, c("Start", "sample"), sep = "/") %>%<br> select("sample") %>% mutate_all(parse_number)<br> <br><br>myfile2[<a href="http://is.na">is.na</a>(myfile2)] <- 1<br>myfile3 <- myfile2 %>% mutate(lca = ifelse(sample == "1", "1", "0"),<br> lca = lead(lca, default = "0")) %>% filter(!sample == "1") %>% mutate(sample = paste0("sample_",sample))<br>myfile3 %>% filter(sample == "sample_5769" | sample =="sample_21884" | sample == "sample_20371" | sample == "sample_19295")</blockquote><div><br><div><div dir="ltr" class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><p class="MsoNormal"><b><span style="font-family:Verdana,sans-serif;color:rgb(102,102,102)">Cid Edson Mendonça Póvoas<br>
</span></b><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(102,102,102)">Cel: +55 (73) 99151-9565</span></b><span></span></p>
<p class="MsoNormal"><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(102,102,102)">Engenheiro </span></b><font color="#666666" face="Verdana, sans-serif"><span style="font-size:13.3333px"><b><span></span>Agrônomo</b></span></font></p><p class="MsoNormal"><font color="#666666" face="Verdana, sans-serif"><span style="font-size:13.3333px"><b>Analista de dados </b></span></font></p>
<p class="MsoNormal"><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(102,102,102)">Técnico em Segurança do Trabalho </span></b><span></span></p>
<p class="MsoNormal"><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(102,102,102)">LinkedIn: </span></b><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(0,176,240)"><a href="http://br.linkedin.com/in/cidedson/" target="_blank"><span style="color:rgb(0,176,240)">http://br.linkedin.com/in/cidedson/</span></a></span></b><span></span></p>
<p class="MsoNormal"><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(102,102,102)">Lattes: </span></b><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(0,176,240)"><a href="http://lattes.cnpq.br/2303498368142537" target="_blank"><span style="color:rgb(0,176,240)">http://lattes.cnpq.br/2303498368142537</span></a></span></b><b><span style="font-size:10pt;font-family:Verdana,sans-serif"><span></span></span></b></p>
<p class="MsoNormal"><br></p></div></div></div></div></div></div></div></div></div></div></div></div><br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Em ter., 29 de set. de 2020 às 15:04, Cid Póvoas <<a href="mailto:cidedson@gmail.com">cidedson@gmail.com</a>> escreveu:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="ltr"><div>Desconsidera o outro, tinha um erro</div><div><br></div>library(vroom)<br>library(tidyverse)<br><br>#Download dos dados<br>myfile <-<br> vroom("<a href="https://raw.githubusercontent.com/Leprechault/yolov3ants/master/result_imgval.txt" target="_blank">https://raw.githubusercontent.com/Leprechault/yolov3ants/master/result_imgval.txt</a>", delim = "\t", skip = 5)<br><br>myfile <- myfile %>% rename(dados = `folder input=imgval/ and output=backup/`)<br><br><br>myfile <- myfile %>% filter(str_detect(dados, c("lca:","sample"))) %>% as.data.frame()<br><br>myfile2 <- myfile %>%<br> separate(dados, c("Start", "sample"), sep = "/") %>%<br> select("sample") %>% mutate_all(parse_number)<br><br><br>myfile2[<a href="http://is.na" target="_blank">is.na</a>(myfile2)] <- 1<br><br>myfile3 <- myfile2 %>% mutate(lca = ifelse(sample == "1", "1", "0"),<br> lca = lead(lca, default = "0")) %>% filter(!sample == "1") %>% mutate(sample = paste0("sample_",sample))<br><br>myfile3 %>% filter(sample == "sample_5769" | sample =="sample_21884")<br><br><br>tail(myfile3)<br>View(myfile)<br><div><div dir="ltr"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><p class="MsoNormal"><b><span style="font-family:Verdana,sans-serif;color:rgb(102,102,102)">Cid Edson Mendonça Póvoas<br>
</span></b><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(102,102,102)">Cel: +55 (73) 99151-9565</span></b><span></span></p>
<p class="MsoNormal"><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(102,102,102)">Engenheiro </span></b><font color="#666666" face="Verdana, sans-serif"><span style="font-size:13.3333px"><b><span></span>Agrônomo</b></span></font></p><p class="MsoNormal"><font color="#666666" face="Verdana, sans-serif"><span style="font-size:13.3333px"><b>Analista de dados </b></span></font></p>
<p class="MsoNormal"><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(102,102,102)">Técnico em Segurança do Trabalho </span></b><span></span></p>
<p class="MsoNormal"><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(102,102,102)">LinkedIn: </span></b><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(0,176,240)"><a href="http://br.linkedin.com/in/cidedson/" target="_blank"><span style="color:rgb(0,176,240)">http://br.linkedin.com/in/cidedson/</span></a></span></b><span></span></p>
<p class="MsoNormal"><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(102,102,102)">Lattes: </span></b><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(0,176,240)"><a href="http://lattes.cnpq.br/2303498368142537" target="_blank"><span style="color:rgb(0,176,240)">http://lattes.cnpq.br/2303498368142537</span></a></span></b><b><span style="font-size:10pt;font-family:Verdana,sans-serif"><span></span></span></b></p>
<p class="MsoNormal"><br></p></div></div></div></div></div></div></div></div></div></div></div></div><br></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Em ter., 29 de set. de 2020 às 10:57, ASANTOS por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>> escreveu:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">Prezados membros,<br>
<br>
Surgiu um novo problema para a extração de informações em um arquivo <br>
*txt quando eu tenho que computar também quando eu não tenho determinada <br>
informação (lca) e preciso considerar isso no meu data.frame final.<br>
<br>
Em meu exemplo:<br>
<br>
#Pacotes<br>
library(vroom)<br>
library(tidyverse)<br>
<br>
#Download dos dados<br>
myfile <- <br>
vroom("<a href="https://raw.githubusercontent.com/Leprechault/yolov3ants/master/result_imgval.txt" rel="noreferrer" target="_blank">https://raw.githubusercontent.com/Leprechault/yolov3ants/master/result_imgval.txt</a>")<br>
<br>
As informações alvo são:<br>
<br>
1) No caso quando ocorreu o evento lca o padrão das linhas é:<br>
<br>
imgval/sample_21915.jpg: Predicted in 7337.147000 milli-seconds.<br>
lca: 65.648048% left_x: 0 top_y: 18 width: 13 height: 27<br>
lca: 45.191948% left_x: 71 top_y: 31 width: 7 height: 12<br>
End<br>
<br>
Então meu data.frame precisa receber a informação:<br>
<br>
image lca<br>
sample_21915.jpg 1<br>
sample_21915.jpg 1<br>
<br>
2) Quando não ocorrer o evento lca, o padrão das linhas será diferente:<br>
<br>
Start processing imgval/sample_3908.jpg<br>
imgval/sample_3908.jpg: Predicted in 7282.433000 milli-seconds.<br>
End<br>
<br>
E nesse caso o meu data.frame precisa receber a seguinte informação:<br>
image lca<br>
sample_3908.jpg 0<br>
<br>
Gostaria de saber ideias de como filtrar essa informação e especialmente <br>
do que fazer para gerar os zeros, se o meu data.frame final que preciso, <br>
após a análise da informação de 100 imagens deve ser:<br>
<br>
image lca<br>
sample_14715 1<br>
sample_3101 0<br>
sample_5769 0<br>
sample_21884 1<br>
sample_4163 0<br>
sample_20368 0<br>
sample_20371 0<br>
sample_3370 0<br>
sample_4434 0<br>
sample_20888 1<br>
sample_19295 1<br>
sample_22196 0<br>
...<br>
sample_20314.jpg 0<br>
<br>
Antecipadamente agradeço,<br>
<br>
Alexandre<br>
<br>
-- <br>
Alexandre dos Santos<br>
Geotechnologies and Spatial Statistics applied to Forest Entomology<br>
Instituto Federal de Mato Grosso (IFMT) - Campus Caceres<br>
Caixa Postal 244 (PO Box)<br>
Avenida dos Ramires, s/n - Vila Real<br>
Caceres - MT - CEP 78201-380 (ZIP code)<br>
Phone: (+55) 65 99686-6970 / (+55) 65 3221-2674<br>
Lattes CV: <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="http://www.researchgate.net/profile/Alexandre_Santos10" rel="noreferrer" target="_blank">www.researchgate.net/profile/Alexandre_Santos10</a><br>
Publons: <a href="https://publons.com/researcher/3085587/alexandre-dos-santos/" rel="noreferrer" target="_blank">https://publons.com/researcher/3085587/alexandre-dos-santos/</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 forneça código mínimo reproduzível.<br>
</blockquote></div>
</blockquote></div>