<div dir="ltr">library(vroom)<br>library(tidyverse)<br>myfile <- vroom("<a href="https://raw.githubusercontent.com/Leprechault/yolov3ants/master/yolov3-lca_416_conv81_sub_8_log.txt">https://raw.githubusercontent.com/Leprechault/yolov3ants/master/yolov3-lca_416_conv81_sub_8_log.txt</a>", delim = "\t")<br>head(myfile)<br>str(myfile)<br><br>myfile <- myfile %>% rename(dados = `Prepare additional network for mAP calculation...`)<br><br>myfile <- myfile %>% filter(str_detect(dados, c("avg", "Last accuracy")))<br><br>dim(myfile)<br>dim(myfile)<br><br>even_indexes <- seq(2, dim(myfile)[1], 2)<br>odd_indexes <- seq(1, dim(myfile)[1], 2)<br><br><br>x.dados <- tibble(x = myfile$dados[odd_indexes])<br>y.dados <- tibble(x = myfile$dados[even_indexes])<br><br>dim(x.dados)<br>dim(y.dados)<br><br>x.dados <- x.dados %>%<br> separate(x, c("Last accuracy", "mAP"), sep = "=") %>%<br> mutate_all(parse_number) %>%<br> select("mAP") %>%<br> as.data.frame()<br><br><br>y.dados <- y.dados %>%<br> separate(x, c("interation", "avg_loss", "rate", "sec", "imgs"), sep = c(",", ":")) %>%<br> mutate_all(parse_number) %>%<br> as.data.frame()<br><br>y.dados$id <- 1:dim(y.dados)[1]<br>x.dados$id <- 1:dim(x.dados)[1]<br><br>mydf <- merge(x.dados, y.dados, by="id")<br><br>mydf %>% filter(imgs == "101440")<br><br>mydf2 <- mydf %>% select(interation, avg_loss, mAP)<br><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><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Em seg., 28 de set. de 2020 às 18:45, ASANTOS por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br">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"><br>
Estou com um problema para criar um dataframe a partir de um conjunto de <br>
duas linhas de interesse, sendo:<br>
<br>
library(tidyverse)<br>
myfile<-read_lines("<a href="https://raw.githubusercontent.com/Leprechault/yolov3ants/master/yolov3-lca_416_conv81_sub_8_log.txt" rel="noreferrer" target="_blank">https://raw.githubusercontent.com/Leprechault/yolov3ants/master/yolov3-lca_416_conv81_sub_8_log.txt</a>")<br>
head(myfile)<br>
<br>
Em algumas parte do meu arquivo eu tenho trechos que quero extrair que são:<br>
<br>
#Last accuracy mAP@0.5 = 73.10 %<br>
#1585: 0.299288, 0.423193 avg loss, 0.001000 rate, 3.927486 seconds, <br>
101440 images<br>
<br>
Nesses pontos eu quero remover as informações: mAP@0.5 = 73.10 % (na <br>
primeira linha), 1585: e 0.423193 avg loss (da linha seguinte) e criar <br>
um dataframe final que seria:<br>
<br>
# iteration avg_loss mAP<br>
# 1585 0.423193 73.10<br>
<br>
mas quando tento remover a informação de interesse e por ser beginner no <br>
tidyverse, não tenho sucesso, sendo a minha tentativa no sentido de:<br>
<br>
names_col2 <- c("iteration", "avg_loss", "mAP")<br>
<br>
mydf <- myfile %>%<br>
str_subset("Last accuracy mAP@0.5 =") %>%<br>
enframe(name = NULL) %>%<br>
separate(col = value, into = names_col2, sep = "[=,]") %>%<br>
mutate_all(parse_number)<br>
head(as.data.frame(mydf))<br>
<br>
<br>
Alguém poderia me dar uma luz?<br>
<br>
Obrigado e abraços,<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>