Muito obrigado pela ajuda Cid, mas ainda tem alguma informação que está sendo perdida, pois: myfile <- vroom("https://raw.githubusercontent.com/Leprechault/yolov3ants/master/result_imgva...", delim = "\t", skip = 5) myfile <- myfile %>% rename(dados = `folder input=imgval/ and output=backup/`) myfile <- myfile %>% filter(str_detect(dados, c("Start","sample","lca:"))) %>% as.data.frame() %>% filter(!str_detect(dados, c("Predicted"))) dim(myfile) [1] 73  1 Eu sei por contagem direta no arquvo result_imgval.txt  que tem 52 lca no output do result_imgval.txt do myfile só aparecem 18. Seguindo o seu caminho, se eu tento selecionar todos os lca, faço: myfile <- vroom("https://raw.githubusercontent.com/Leprechault/yolov3ants/master/result_imgva...", delim = "\t", skip = 5) myfile <- myfile %>% rename(dados = `folder input=imgval/ and output=backup/`) myfile <- myfile %>% filter(str_detect(dados, c("lca:"))) %>% as.data.frame() dim(myfile) #[1] 73  1 Mais então eu perco a informação dos arquivos *jpg e todo arranjo que modifico nos filtros não consigo recuperar a informação. Eu sei que tudo estará OK, quando no final: unique(myfile3$sample) #[1] 100 -- 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 29/09/2020 13:41, Cid Póvoas escreveu:

#Download dos dados myfile <-   vroom("https://raw.githubusercontent.com/Leprechault/yolov3ants/master/result_imgva... <https://raw.githubusercontent.com/Leprechault/yolov3ants/master/result_imgval.txt>", delim = "\t", skip = 5)

myfile <- myfile %>% rename(dados = `folder input=imgval/ and output=backup/`)

myfile <- myfile %>% filter(str_detect(dados, c("Start","sample","lca:"))) %>% as.data.frame() %>% filter(!str_detect(dados, c("Predicted")))

dim(myfile)

myfile2 <- myfile %>%   separate(dados, c("Start", "sample"), sep = "/") %>%   select("sample")

myfile2[is.na <http://is.na>(myfile2)] <- 1

myfile3 <- myfile2 %>% mutate(lca = ifelse(sample == "1", "1", "0"),                    lca = lead(lca, default = "0")) %>% filter(!sample == "1")

Parece q ainda tinha um erro no método de seleção do str_detect, agora ta 100% library(vroom)

library(tidyverse) #Download dos dados myfile <- vroom(" https://raw.githubusercontent.com/Leprechault/yolov3ants/master/result_imgva...", delim = "\t", skip = 5) myfile <- myfile %>% rename(dados = `folder input=imgval/ and output=backup/`)

myfile <- myfile %>% filter(str_detect(dados, "lca:|sample")) %>% as.data.frame() %>% filter(!str_detect(dados, "Predict")) myfile2 <- myfile %>% separate(dados, c("Start", "sample"), sep = "/") %>% select("sample") %>% mutate_all(parse_number)

myfile2[is.na(myfile2)] <- 1 myfile3 <- myfile2 %>% mutate(lca = ifelse(sample == "1", "1", "0"), lca = lead(lca, default = "0")) %>% filter(!sample == "1") %>% mutate(sample = paste0("sample_",sample)) myfile3 %>% filter(sample == "sample_5769" | sample =="sample_21884" | sample == "sample_20371" | sample == "sample_19295")

*Cid Edson Mendonça Póvoas **Cel: +55 (73) 99151-9565* *Engenheiro **Agrônomo* *Analista de dados * *Técnico em Segurança do Trabalho * *LinkedIn: **http://br.linkedin.com/in/cidedson/ <http://br.linkedin.com/in/cidedson/>* *Lattes: **http://lattes.cnpq.br/2303498368142537 <http://lattes.cnpq.br/2303498368142537>* Em ter., 29 de set. de 2020 às 15:04, Cid Póvoas <cidedson@gmail.com> escreveu:

Desconsidera o outro, tinha um erro

library(vroom) library(tidyverse)

#Download dos dados myfile <- vroom(" https://raw.githubusercontent.com/Leprechault/yolov3ants/master/result_imgva...", delim = "\t", skip = 5)

myfile <- myfile %>% rename(dados = `folder input=imgval/ and output=backup/`)

myfile <- myfile %>% filter(str_detect(dados, c("lca:","sample"))) %>% as.data.frame()

myfile2 <- myfile %>% separate(dados, c("Start", "sample"), sep = "/") %>% select("sample") %>% mutate_all(parse_number)

myfile2[is.na(myfile2)] <- 1

myfile3 <- myfile2 %>% mutate(lca = ifelse(sample == "1", "1", "0"), lca = lead(lca, default = "0")) %>% filter(!sample == "1") %>% mutate(sample = paste0("sample_",sample))

myfile3 %>% filter(sample == "sample_5769" | sample =="sample_21884")

tail(myfile3) View(myfile)

*Cid Edson Mendonça Póvoas **Cel: +55 (73) 99151-9565*

*Engenheiro **Agrônomo*

*Analista de dados *

*Técnico em Segurança do Trabalho *

*LinkedIn: **http://br.linkedin.com/in/cidedson/ <http://br.linkedin.com/in/cidedson/>*

*Lattes: **http://lattes.cnpq.br/2303498368142537 <http://lattes.cnpq.br/2303498368142537>*

Em ter., 29 de set. de 2020 às 10:57, ASANTOS por (R-br) < r-br@listas.c3sl.ufpr.br> escreveu:

...

Prezados membros,

Surgiu um novo problema para a extração de informações em um arquivo *txt quando eu tenho que computar também quando eu não tenho determinada informação (lca) e preciso considerar isso no meu data.frame final.

Em meu exemplo:

#Pacotes library(vroom) library(tidyverse)

#Download dos dados myfile <- vroom(" https://raw.githubusercontent.com/Leprechault/yolov3ants/master/result_imgva... ")

As informações alvo são:

1) No caso quando ocorreu o evento lca o padrão das linhas é:

imgval/sample_21915.jpg: Predicted in 7337.147000 milli-seconds. lca: 65.648048% left_x: 0 top_y: 18 width: 13 height: 27 lca: 45.191948% left_x: 71 top_y: 31 width: 7 height: 12 End

Então meu data.frame precisa receber a informação:

image lca sample_21915.jpg 1 sample_21915.jpg 1

2) Quando não ocorrer o evento lca, o padrão das linhas será diferente:

Start processing imgval/sample_3908.jpg imgval/sample_3908.jpg: Predicted in 7282.433000 milli-seconds. End

E nesse caso o meu data.frame precisa receber a seguinte informação: image lca sample_3908.jpg 0

Gostaria de saber ideias de como filtrar essa informação e especialmente do que fazer para gerar os zeros, se o meu data.frame final que preciso, após a análise da informação de 100 imagens deve ser:

image lca sample_14715 1 sample_3101 0 sample_5769 0 sample_21884 1 sample_4163 0 sample_20368 0 sample_20371 0 sample_3370 0 sample_4434 0 sample_20888 1 sample_19295 1 sample_22196 0 ... sample_20314.jpg 0

Antecipadamente agradeço,

Alexandre

-- 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/ --

_______________________________________________ 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.