[R-br] Dúvida para conversão de um output em *txt para data.frame usando tidyverse [RESOLVIDO]

[ASANTOS]

Obrigado Cid, problema perfeitamente resolvido!!!

head(mydf2)

interation avg_loss mAP 1 1001 0.523133 58.6 2 1003 0.496871 58.6 3 1005 
0.523653 58.6 4 1007 0.535484 58.6 5 1009 0.530135 58.6 6 1011 0.524369 
58.6 tail(mydf2) interation avg_loss mAP 1495 3989 0.371550 79.49 1496 
3991 0.358697 79.49 1497 3993 0.352938 79.49 1498 3995 0.352469 79.49 
1499 3997 0.359153 79.49 1500 3999 0.343659 79.49

-- 
Alexandre dos Santos
Geotechnologies and Spatial Statistics applied to Forest Entomology
Instituto Federal de Mato Grosso (IFMT) - Campus Caceres
Caixa Postal 244 (PO Box)
Avenida dos Ramires, s/n - Vila Real
Caceres - MT - CEP 78201-380 (ZIP code)
Phone: (+55) 65 99686-6970 / (+55) 65 3221-2674
Lattes CV: http://lattes.cnpq.br/1360403201088680
OrcID: orcid.org/0000-0001-8232-6722
ResearchGate: www.researchgate.net/profile/Alexandre_Santos10
Publons: https://publons.com/researcher/3085587/alexandre-dos-santos/
--

Em 28/09/2020 17:45, ASANTOS escreveu:
>
> Estou com um problema para criar um dataframe a partir de um conjunto 
> de duas linhas de interesse, sendo:
>
> library(tidyverse)
> myfile<-read_lines("https://raw.githubusercontent.com/Leprechault/yolov3ants/master/yolov3-lca_416_conv81_sub_8_log.txt") 
>
> head(myfile)
>
> Em algumas parte do meu arquivo eu tenho trechos que quero extrair que 
> são:
>
> #Last accuracy mAP em 0.5 = 73.10 %
> #1585: 0.299288, 0.423193 avg loss, 0.001000 rate, 3.927486 seconds, 
> 101440 images
>
> Nesses pontos eu quero remover as informações: mAP em 0.5 = 73.10 % (na 
> primeira linha), 1585: e 0.423193 avg loss (da linha seguinte) e criar 
> um dataframe final que seria:
>
> #  iteration avg_loss mAP
> #  1585      0.423193  73.10
>
> mas quando tento remover a informação de interesse e por ser beginner 
> no tidyverse, não tenho sucesso, sendo a minha tentativa no sentido de:
>
> names_col2 <- c("iteration", "avg_loss", "mAP")
>
> mydf <- myfile %>%
>   str_subset("Last accuracy mAP em 0.5 =") %>%
>   enframe(name = NULL) %>%
>   separate(col = value, into = names_col2, sep = "[=,]") %>%
>   mutate_all(parse_number)
> head(as.data.frame(mydf))
>
>
> Alguém poderia me dar uma luz?
>
> Obrigado e abraços,
>
> Alexandre
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200929/66ceb926/attachment.html>