Obrigado Max, Mauro e Cesar, Deu certo, só tive que transformar o objeto *tibble* em *dataframe* na solução inicial do Max e tem outra que não necessita do pacote tidyverse, mas utilizam gsub, strsplit e grep, seguem as soluções: # Solução 1 library(tidyverse) myfile <- read_lines("log.txt") names_col <- c("iteration", "total_loss", "loss_error", "rate", "time", "n_images") mydf <- myfile %>% str_subset("images$") %>% enframe(name = NULL) %>% separate(col = value, into = names_col, sep = "[:,]") %>% mutate_all(parse_number) head(as.data.frame(mydf)) # iteration total_loss loss_error rate time n_images #1 1 799.2195 799.2195 0 654.6613 24 #2 2 799.5554 799.2531 0 672.5197 48 #3 3 801.0438 799.4322 0 667.1184 72 #4 4 799.9001 799.4790 0 647.3321 96 #5 5 801.5366 799.6848 0 660.7798 120 #6 6 799.3589 799.6522 0 683.4424 144 #Solução 2 myfile <- read_lines("log.txt") tmp <- myfile[grep("^\\d*\\:", unlist(myfile))] tmp <- do.call(rbind, strsplit(tmp, ", ")) tmp <- data.frame(do.call(rbind, strsplit(tmp[, 1], "\\: ")), tmp[, -1], stringsAsFactors=FALSE) tmp[] <- lapply(tmp, gsub, pat="\\s.+", repl="") tmp[] <- lapply(tmp, as.numeric) mydf <- setNames(tmp, c("iteration", "total_loss", "loss_error", "rate", "time", "n_images")) head(mydf) # iteration total_loss loss_error rate time n_images # 1 1 799.2195 799.2195 0 654.6613 24 # 2 2 799.5554 799.2531 0 672.5197 48 # 3 3 801.0438 799.4322 0 667.1184 72 # 4 4 799.9001 799.4790 0 647.3321 96 # 5 5 801.5366 799.6848 0 660.7798 120 # 6 6 799.3589 799.6522 0 683.4424 144 Abraços, Alexandre Em 26/03/2020 11:00, r-br-request@listas.c3sl.ufpr.br escreveu:
Enviar submissões para a lista de discussão R-br para r-br@listas.c3sl.ufpr.br
Para se cadastrar ou descadastrar via WWW, visite o endereço https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br ou, via email, envie uma mensagem com a palavra 'help' no assunto ou corpo da mensagem para r-br-request@listas.c3sl.ufpr.br
Você poderá entrar em contato com a pessoa que gerencia a lista pelo endereço r-br-owner@listas.c3sl.ufpr.br
Quando responder, por favor edite sua linha Assunto assim ela será mais específica que "Re: Contents of R-br digest..."
Tópicos de Hoje:
1. Re: Editar dados em arquivo *txt em um data frame (verginio@unesc.net) 2. Re: Editar dados em arquivo *txt em um data frame (sznelwar@uol.com.br) 3. Re: Editar dados em arquivo *txt em um data frame (Cesar Rabak) 4. Re: Editar dados em arquivo *txt em um data frame (sznelwar@uol.com.br) 5. Re: Editar dados em arquivo *txt em um data frame (Cesar Rabak) 6. Re: Editar dados em arquivo *txt em um data frame (Cesar Rabak)
----------------------------------------------------------------------
Message: 1 Date: Wed, 25 Mar 2020 11:27:44 -0500 (CDT) From: verginio@unesc.net To: r-br@listas.c3sl.ufpr.br Subject: Re: [R-br] Editar dados em arquivo *txt em um data frame Message-ID: <1738291108.330325.1585153664487.JavaMail.administrator@n4.nabble.com> Content-Type: text/plain; charset=UTF-8
Olá,
Segue uma sugestão:
library(tidyverse) myfile <- read_lines("log.txt")
names_col <- c("iteration", "total_loss", "loss_error", "rate", "time", "n_images")
mydf <- myfile %>% str_subset("images$") %>% enframe(name = NULL) %>% separate(col = value, into = names_col, sep = "[:,]") %>% mutate_all(parse_number)
mydf
Atenciosamente, Max Richard Verginio
_____________________________________ Sent from http://r-br.2285057.n4.nabble.com
------------------------------
Message: 2 Date: Wed, 25 Mar 2020 18:33:22 -0300 From: sznelwar@uol.com.br To: r-br@listas.c3sl.ufpr.br Subject: Re: [R-br] Editar dados em arquivo *txt em um data frame Message-ID: <5e7bce22943e_5e922b1d522cd10870933@ip-10-81-19-112.ec2.internal.mail> Content-Type: text/plain; charset="iso-8859-1"
Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200325/4345eda5/attachment-0001.html>
------------------------------
Message: 3 Date: Wed, 25 Mar 2020 21:02:08 -0300 From: Cesar Rabak <cesar.rabak@gmail.com> To: a lista Brasileira oficial de discussão do programa R. <r-br@listas.c3sl.ufpr.br> Subject: Re: [R-br] Editar dados em arquivo *txt em um data frame Message-ID: <CAKrF98=mp-fZR0jFxuN4VwOF_EceOenERbqav7a+OOucVqarvQ@mail.gmail.com> Content-Type: text/plain; charset="utf-8"
O arquivo que o OP postou o *link* não lhe parece adequado?
On Wed, Mar 25, 2020 at 6:33 PM Mauro Sznelwar por (R-br) < r-br@listas.c3sl.ufpr.br> wrote:
Tem um arquivo para rodar e ver como fica?
Olá,
Segue uma sugestão:
library(tidyverse) myfile <- read_lines("log.txt")
names_col <- c("iteration", "total_loss", "loss_error", "rate", "time", "n_images")
mydf <- myfile %>% str_subset("images$") %>% enframe(name = NULL) %>% separate(col = value, into = names_col, sep = "[:,]") %>% mutate_all(parse_number)
mydf
Atenciosamente, Max Richard Verginio
_____________________________________ Sent from http://r-br.2285057.n4.nabble.com
_______________________________________________ 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.
_______________________________________________ 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.
-------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200325/53488a8e/attachment-0001.html>
------------------------------
Message: 4 Date: Wed, 25 Mar 2020 21:27:44 -0300 From: sznelwar@uol.com.br To: r-br@listas.c3sl.ufpr.br Subject: Re: [R-br] Editar dados em arquivo *txt em um data frame Message-ID: <5e7bf70012764_4c462b1d522cd1087147c@ip-10-81-19-112.ec2.internal.mail>
Content-Type: text/plain; charset="iso-8859-1"
Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200325/5fcc4576/attachment-0001.html>
------------------------------
Message: 5 Date: Wed, 25 Mar 2020 21:31:37 -0300 From: Cesar Rabak <cesar.rabak@gmail.com> To: a lista Brasileira oficial de discussão do programa R. <r-br@listas.c3sl.ufpr.br> Subject: Re: [R-br] Editar dados em arquivo *txt em um data frame Message-ID: <CAKrF98nTgqFA9E_Zy5o6X2B2bEQ0LT=fdg1MtMx-nsTBy22xgQ@mail.gmail.com> Content-Type: text/plain; charset="utf-8"
Veja esta linha no texto do OP:
#Arquivo original https://www.dropbox.com/s/pncmjwl3camap6d/log.txt?dl=0
Fazendo a entrada conforme a sugestão do Max:
str(myfile) chr [1:1445] "obj" "Learning Rate: 0.001, Momentum: 0.9, Decay: 0.0005" ...
HTH -- Cesar Rabak
On Wed, Mar 25, 2020 at 9:27 PM Mauro Sznelwar por (R-br) < r-br@listas.c3sl.ufpr.br> wrote:
Muito obrigado pelo retorno! Sim, eu acabei vendo e consegui rodar, mas ele só motra os dez primeiros dados, como faço para ver o resto?
O arquivo que o OP postou o *link* não lhe parece adequado?
On Wed, Mar 25, 2020 at 6:33 PM Mauro Sznelwar por (R-br) < r-br@listas.c3sl.ufpr.br <http://../../../undefined//compose?to=r-br@listas.c3sl.ufpr.br>> wrote:
Tem um arquivo para rodar e ver como fica?
Olá,
Segue uma sugestão:
library(tidyverse) myfile <- read_lines("log.txt")
names_col <- c("iteration", "total_loss", "loss_error", "rate", "time", "n_images")
mydf <- myfile %>% str_subset("images$") %>% enframe(name = NULL) %>% separate(col = value, into = names_col, sep = "[:,]") %>% mutate_all(parse_number)
mydf
Atenciosamente, Max Richard Verginio
_____________________________________ Sent from http://r-br.2285057.n4.nabble.com
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br <http://../../../undefined//compose?to=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.
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br <http://../../../undefined//compose?to=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.
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.
_______________________________________________ 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.
-------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200325/9e13902f/attachment-0001.html>
------------------------------
Message: 6 Date: Wed, 25 Mar 2020 21:36:32 -0300 From: Cesar Rabak <cesar.rabak@gmail.com> To: a lista Brasileira oficial de discussão do programa R. <r-br@listas.c3sl.ufpr.br> Subject: Re: [R-br] Editar dados em arquivo *txt em um data frame Message-ID: <CAKrF98nxi4mdR9mtQnS0DOwyfUeqKJ+EBKsAF1hHNKNSb11YvA@mail.gmail.com> Content-Type: text/plain; charset="utf-8"
Só gostaria de comentar, que o resultado mydf finda sendo um *tibble* e não mais "apenas" um *data.frame*.
Se isso é vantajoso ou requer que o tiblle seja demovido para data.frame só Alexandre pode aquilatar...
HTH -- Cesar Rabak
On Wed, Mar 25, 2020 at 1:28 PM Max Richard Verginio por (R-br) < r-br@listas.c3sl.ufpr.br> wrote:
Olá,
Segue uma sugestão:
library(tidyverse) myfile <- read_lines("log.txt")
names_col <- c("iteration", "total_loss", "loss_error", "rate", "time", "n_images")
mydf <- myfile %>% str_subset("images$") %>% enframe(name = NULL) %>% separate(col = value, into = names_col, sep = "[:,]") %>% mutate_all(parse_number)
mydf
Atenciosamente, Max Richard Verginio
_____________________________________ Sent from http://r-br.2285057.n4.nabble.com
_______________________________________________ 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.
-------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200325/cb109757/attachment-0001.html>
------------------------------
Subject: Legenda do Digest
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
------------------------------
Fim da Digest R-br, volume 111, assunto 7 *****************************************