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, [email protected] escreveu:
Enviar submissões para a lista de discussão R-br para
[email protected]
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
[email protected]
Você poderá entrar em contato com a pessoa que gerencia a lista pelo
endereço
[email protected]
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
([email protected])
2. Re: Editar dados em arquivo *txt em um data frame
([email protected])
3. Re: Editar dados em arquivo *txt em um data frame (Cesar Rabak)
4. Re: Editar dados em arquivo *txt em um data frame
([email protected])
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: [email protected]
To: [email protected]
Subject: Re: [R-br] Editar dados em arquivo *txt em um data frame
Message-ID:
<1738291108.330325.1585153664487.javamail.administra...@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: [email protected]
To: [email protected]
Subject: Re: [R-br] Editar dados em arquivo *txt em um data frame
Message-ID:
<5e7bce22943e_5e922b1d522cd10870...@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 <[email protected]>
To: a lista Brasileira oficial de discussão do programa R.
<[email protected]>
Subject: Re: [R-br] Editar dados em arquivo *txt em um data frame
Message-ID:
<CAKrF98=mp-fzr0jfxun4vwof_eceoenerbqav7a+ooucvqa...@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) <
[email protected]> 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
[email protected]
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
[email protected]
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: [email protected]
To: [email protected]
Subject: Re: [R-br] Editar dados em arquivo *txt em um data frame
Message-ID:
<5e7bf70012764_4c462b1d522cd10871...@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 <[email protected]>
To: a lista Brasileira oficial de discussão do programa R.
<[email protected]>
Subject: Re: [R-br] Editar dados em arquivo *txt em um data frame
Message-ID:
<CAKrF98nTgqFA9E_Zy5o6X2B2bEQ0LT=fdg1mtmx-nstby22...@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) <
[email protected]> 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) <
[email protected]
<http://../../../undefined//[email protected]>> 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
[email protected]
<http://../../../undefined//[email protected]>
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
[email protected]
<http://../../../undefined//[email protected]>
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
[email protected]
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
[email protected]
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 <[email protected]>
To: a lista Brasileira oficial de discussão do programa R.
<[email protected]>
Subject: Re: [R-br] Editar dados em arquivo *txt em um data frame
Message-ID:
<cakrf98nxi4mdr9mtqns0dowyfueqkj+ebksaf1hhnknsb11...@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) <
[email protected]> 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
[email protected]
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
[email protected]
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
------------------------------
Fim da Digest R-br, volume 111, assunto 7
*****************************************
_______________________________________________
R-br mailing list
[email protected]
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.
