<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=windows-1252">
</head>
<body>
<font face="Courier New, Courier, monospace">Obrigado Max, Mauro e
Cesar,<br>
<br>
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:<br>
<br>
# Solução 1<br>
library(tidyverse)<br>
myfile <- read_lines("log.txt")<br>
<br>
names_col <- c("iteration", "total_loss", "loss_error", "rate",
"time",<br>
"n_images")<br>
<br>
mydf <- myfile %>%<br>
str_subset("images$") %>%<br>
enframe(name = NULL) %>%<br>
separate(col = value, into = names_col, sep = "[:,]") %>%<br>
</font>
<p><font face="Courier New, Courier, monospace">
mutate_all(parse_number)<br>
</font></p>
<p><br>
</p>
<font face="Courier New, Courier, monospace"> head(as.data.frame(mydf))<br>
# iteration total_loss loss_error rate time n_images<br>
#1 1 799.2195 799.2195 0 654.6613 24<br>
#2 2 799.5554 799.2531 0 672.5197 48<br>
#3 3 801.0438 799.4322 0 667.1184 72<br>
#4 4 799.9001 799.4790 0 647.3321 96<br>
#5 5 801.5366 799.6848 0 660.7798 120<br>
#6 6 799.3589 799.6522 0 683.4424 144<br>
<br>
<br>
<br>
#Solução 2<br>
myfile <- read_lines("log.txt")<br>
tmp <- myfile[grep("^\\d*\\:", unlist(myfile))]<br>
tmp <- do.call(rbind, strsplit(tmp, ", "))<br>
tmp <- data.frame(do.call(rbind, strsplit(tmp[, 1], "\\: ")),
tmp[, -1], <br>
stringsAsFactors=FALSE)<br>
tmp[] <- lapply(tmp, gsub, pat="\\s.+", repl="")<br>
tmp[] <- lapply(tmp, as.numeric)<br>
mydf <- setNames(tmp, c("iteration", "total_loss",
"loss_error", "rate", <br>
"time", "n_images"))<br>
<br>
head(mydf)<br>
# iteration total_loss loss_error rate time n_images<br>
# 1 1 799.2195 799.2195 0 654.6613 24<br>
# 2 2 799.5554 799.2531 0 672.5197 48<br>
# 3 3 801.0438 799.4322 0 667.1184 72<br>
# 4 4 799.9001 799.4790 0 647.3321 96<br>
# 5 5 801.5366 799.6848 0 660.7798 120<br>
# 6 6 799.3589 799.6522 0 683.4424 144<br>
<br>
<br>
<br>
Abraços,<br>
<br>
Alexandre</font><br>
<div class="moz-forward-container"><br>
Em 26/03/2020 11:00, <a class="moz-txt-link-abbreviated" href="mailto:r-br-request@listas.c3sl.ufpr.br">r-br-request@listas.c3sl.ufpr.br</a> escreveu:<br>
<blockquote type="cite">
<pre class="moz-quote-pre" wrap="">Enviar submissões para a lista de discussão R-br para
<a class="moz-txt-link-abbreviated" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>
Para se cadastrar ou descadastrar via WWW, visite o endereço
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
ou, via email, envie uma mensagem com a palavra 'help' no assunto ou
corpo da mensagem para
<a class="moz-txt-link-abbreviated" href="mailto:r-br-request@listas.c3sl.ufpr.br">r-br-request@listas.c3sl.ufpr.br</a>
Você poderá entrar em contato com a pessoa que gerencia a lista pelo
endereço
<a class="moz-txt-link-abbreviated" href="mailto:r-br-owner@listas.c3sl.ufpr.br">r-br-owner@listas.c3sl.ufpr.br</a>
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
(<a class="moz-txt-link-abbreviated" href="mailto:verginio@unesc.net">verginio@unesc.net</a>)
2. Re: Editar dados em arquivo *txt em um data frame
(<a class="moz-txt-link-abbreviated" href="mailto:sznelwar@uol.com.br">sznelwar@uol.com.br</a>)
3. Re: Editar dados em arquivo *txt em um data frame (Cesar Rabak)
4. Re: Editar dados em arquivo *txt em um data frame
(<a class="moz-txt-link-abbreviated" href="mailto:sznelwar@uol.com.br">sznelwar@uol.com.br</a>)
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: <a class="moz-txt-link-abbreviated" href="mailto:verginio@unesc.net">verginio@unesc.net</a>
To: <a class="moz-txt-link-abbreviated" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>
Subject: Re: [R-br] Editar dados em arquivo *txt em um data frame
Message-ID:
<a class="moz-txt-link-rfc2396E" href="mailto:1738291108.330325.1585153664487.JavaMail.administrator@n4.nabble.com"><1738291108.330325.1585153664487.JavaMail.administrator@n4.nabble.com></a>
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 <a class="moz-txt-link-freetext" href="http://r-br.2285057.n4.nabble.com">http://r-br.2285057.n4.nabble.com</a>
------------------------------
Message: 2
Date: Wed, 25 Mar 2020 18:33:22 -0300
From: <a class="moz-txt-link-abbreviated" href="mailto:sznelwar@uol.com.br">sznelwar@uol.com.br</a>
To: <a class="moz-txt-link-abbreviated" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>
Subject: Re: [R-br] Editar dados em arquivo *txt em um data frame
Message-ID:
<a class="moz-txt-link-rfc2396E" href="mailto:5e7bce22943e_5e922b1d522cd10870933@ip-10-81-19-112.ec2.internal.mail"><5e7bce22943e_5e922b1d522cd10870933@ip-10-81-19-112.ec2.internal.mail></a>
Content-Type: text/plain; charset="iso-8859-1"
Um anexo em HTML foi limpo...
URL: <a class="moz-txt-link-rfc2396E" href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200325/4345eda5/attachment-0001.html"><http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200325/4345eda5/attachment-0001.html></a>
------------------------------
Message: 3
Date: Wed, 25 Mar 2020 21:02:08 -0300
From: Cesar Rabak <a class="moz-txt-link-rfc2396E" href="mailto:cesar.rabak@gmail.com"><cesar.rabak@gmail.com></a>
To: a lista Brasileira oficial de discussão do programa R.
<a class="moz-txt-link-rfc2396E" href="mailto:r-br@listas.c3sl.ufpr.br"><r-br@listas.c3sl.ufpr.br></a>
Subject: Re: [R-br] Editar dados em arquivo *txt em um data frame
Message-ID:
<a class="moz-txt-link-rfc2396E" href="mailto:CAKrF98=mp-fZR0jFxuN4VwOF_EceOenERbqav7a+OOucVqarvQ@mail.gmail.com"><CAKrF98=mp-fZR0jFxuN4VwOF_EceOenERbqav7a+OOucVqarvQ@mail.gmail.com></a>
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) <
<a class="moz-txt-link-abbreviated" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> wrote:
<blockquote type="cite"><pre class="moz-quote-pre" wrap="">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 <a class="moz-txt-link-freetext" href="http://r-br.2285057.n4.nabble.com">http://r-br.2285057.n4.nabble.com</a>
_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça
código mínimo reproduzível.
_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça
código mínimo reproduzível.
</pre></blockquote>-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <a class="moz-txt-link-rfc2396E" href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200325/53488a8e/attachment-0001.html"><http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200325/53488a8e/attachment-0001.html></a>
------------------------------
Message: 4
Date: Wed, 25 Mar 2020 21:27:44 -0300
From: <a class="moz-txt-link-abbreviated" href="mailto:sznelwar@uol.com.br">sznelwar@uol.com.br</a>
To: <a class="moz-txt-link-abbreviated" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>
Subject: Re: [R-br] Editar dados em arquivo *txt em um data frame
Message-ID:
<a class="moz-txt-link-rfc2396E" href="mailto:5e7bf70012764_4c462b1d522cd1087147c@ip-10-81-19-112.ec2.internal.mail"><5e7bf70012764_4c462b1d522cd1087147c@ip-10-81-19-112.ec2.internal.mail></a>
Content-Type: text/plain; charset="iso-8859-1"
Um anexo em HTML foi limpo...
URL: <a class="moz-txt-link-rfc2396E" href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200325/5fcc4576/attachment-0001.html"><http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200325/5fcc4576/attachment-0001.html></a>
------------------------------
Message: 5
Date: Wed, 25 Mar 2020 21:31:37 -0300
From: Cesar Rabak <a class="moz-txt-link-rfc2396E" href="mailto:cesar.rabak@gmail.com"><cesar.rabak@gmail.com></a>
To: a lista Brasileira oficial de discussão do programa R.
<a class="moz-txt-link-rfc2396E" href="mailto:r-br@listas.c3sl.ufpr.br"><r-br@listas.c3sl.ufpr.br></a>
Subject: Re: [R-br] Editar dados em arquivo *txt em um data frame
Message-ID:
<a class="moz-txt-link-rfc2396E" href="mailto:CAKrF98nTgqFA9E_Zy5o6X2B2bEQ0LT=fdg1MtMx-nsTBy22xgQ@mail.gmail.com"><CAKrF98nTgqFA9E_Zy5o6X2B2bEQ0LT=fdg1MtMx-nsTBy22xgQ@mail.gmail.com></a>
Content-Type: text/plain; charset="utf-8"
Veja esta linha no texto do OP:
<blockquote type="cite"><pre class="moz-quote-pre" wrap="">#Arquivo original
<a class="moz-txt-link-freetext" href="https://www.dropbox.com/s/pncmjwl3camap6d/log.txt?dl=0">https://www.dropbox.com/s/pncmjwl3camap6d/log.txt?dl=0</a>
</pre></blockquote>Fazendo a entrada conforme a sugestão do Max:
<blockquote type="cite"><pre class="moz-quote-pre" wrap="">str(myfile)
</pre></blockquote> 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) <
<a class="moz-txt-link-abbreviated" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> wrote:
<blockquote type="cite"><pre class="moz-quote-pre" wrap="">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) <
<a class="moz-txt-link-abbreviated" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-rfc2396E" href="http://../../../undefined//compose?to=r-br@listas.c3sl.ufpr.br"><http://../../../undefined//compose?to=r-br@listas.c3sl.ufpr.br></a>> wrote:
<blockquote type="cite"><pre class="moz-quote-pre" wrap="">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 <a class="moz-txt-link-freetext" href="http://r-br.2285057.n4.nabble.com">http://r-br.2285057.n4.nabble.com</a>
_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-rfc2396E" href="http://../../../undefined//compose?to=R-br@listas.c3sl.ufpr.br"><http://../../../undefined//compose?to=R-br@listas.c3sl.ufpr.br></a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça
código mínimo reproduzível.
_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-rfc2396E" href="http://../../../undefined//compose?to=R-br@listas.c3sl.ufpr.br"><http://../../../undefined//compose?to=R-br@listas.c3sl.ufpr.br></a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça
código mínimo reproduzível.
</pre></blockquote>_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça
código mínimo reproduzível.
_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça
código mínimo reproduzível.
</pre></blockquote>-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <a class="moz-txt-link-rfc2396E" href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200325/9e13902f/attachment-0001.html"><http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200325/9e13902f/attachment-0001.html></a>
------------------------------
Message: 6
Date: Wed, 25 Mar 2020 21:36:32 -0300
From: Cesar Rabak <a class="moz-txt-link-rfc2396E" href="mailto:cesar.rabak@gmail.com"><cesar.rabak@gmail.com></a>
To: a lista Brasileira oficial de discussão do programa R.
<a class="moz-txt-link-rfc2396E" href="mailto:r-br@listas.c3sl.ufpr.br"><r-br@listas.c3sl.ufpr.br></a>
Subject: Re: [R-br] Editar dados em arquivo *txt em um data frame
Message-ID:
<a class="moz-txt-link-rfc2396E" href="mailto:CAKrF98nxi4mdR9mtQnS0DOwyfUeqKJ+EBKsAF1hHNKNSb11YvA@mail.gmail.com"><CAKrF98nxi4mdR9mtQnS0DOwyfUeqKJ+EBKsAF1hHNKNSb11YvA@mail.gmail.com></a>
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) <
<a class="moz-txt-link-abbreviated" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> wrote:
<blockquote type="cite"><pre class="moz-quote-pre" wrap="">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 <a class="moz-txt-link-freetext" href="http://r-br.2285057.n4.nabble.com">http://r-br.2285057.n4.nabble.com</a>
_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça
código mínimo reproduzível.
</pre></blockquote>-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <a class="moz-txt-link-rfc2396E" href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200325/cb109757/attachment-0001.html"><http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200325/cb109757/attachment-0001.html></a>
------------------------------
Subject: Legenda do Digest
_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
------------------------------
Fim da Digest R-br, volume 111, assunto 7
*****************************************
</pre>
</blockquote>
</div>
</body>
</html>