[R-br] Reunir bancos com condição.

classic Classic list List threaded Threaded
7 messages Options
Reply | Threaded
Open this post in threaded view
|

[R-br] Reunir bancos com condição.

R-br mailing list
Bom dia lista!!!

Seguinte, Criei esse exemplo aqui para ajudar no entendimento da minha dúvida:

setwd("C:/Users/diogo/Desktop/testeR")
getwd()

nomes <- c("Diogo", "Rodrigo", "Isabel", "Marcelo","Sarah")
idades <- c(40, 42, 26, 32, 28)
tabela1 <- data.frame(nome = nomes, idade = idades)
write.csv(tabela1, "arq1.csv", row.names = FALSE)

nomes <- c("Antônio", "Letícia", "Cláudio", "Ana Paula","Luiza")
idades <- c(50, 26, 40, 25, 32)
tabela2 <- data.frame(nome = nomes, idade = idades)
write.csv(tabela2, " arq2.csv", row.names = FALSE)

nomes <- c("Maria Clara", "Ana Maria", "Bianca", "Lidiane","Anderson")
idades <- c(32, 32, 30, 34, 29)
tabela3 <- data.frame(nome = nomes, idade = idades)
write.csv(tabela3, " arq3.csv", row.names = FALSE)

lista=list.files()

O comando criou esses arquivos csv de exemplo, onde eles salvam no diretório de trabalho "testeR". Eu reúno esses arquivos por meio dessa função (usei de apoio o dplyr):

lista<-list.files()
arquivos <- lapply(lista, function(x) read.csv2(x, header=TRUE, sep=";")) 
dados    <- do.call("rbind", arquivos) 

Se eu aplicar essa função, ela vai reunir todos os arquivos (arq1.arq2 e arq3).

Minha dúvida: eu gostaria de aplicá-la, de forma a juntar somente "parte" dos arquivos (ex: arq1 com arq3, por exemplo).

Alguém poderia dar uma informação ou ajuda a responder essa dúvida?

Obrigado e bom dia!!!

Diogo Jerônimo
Bacharel em Ciências Estatísticas - ENCE/IBGE
Mestre em Metrologia - PUC-Rio/PósMQI
CONRE: 8514 - SÉRIE A
http://lattes.cnpq.br/8996149312896520

_______________________________________________
R-br mailing list
[hidden email]
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.
Reply | Threaded
Open this post in threaded view
|

Re: [R-br] Reunir bancos com condição.

R-br mailing list
Bom dia Diogo,

É possível filtrar a variável "lista" antes de entrar no "lapply", usando "grep".

Ex.:
#para selecionar "arq1" e "arq3"
  lista = grep("arq[13].csv&", list.files() , value = TRUE)


Att,
Max Verginio


<quote author='R-br mailing list'>
Bom dia lista!!!
Seguinte, Criei esse exemplo aqui para ajudar no entendimento da minha
dúvida:
setwd("C:/Users/diogo/Desktop/testeR")
getwd()
nomes <- c("Diogo", "Rodrigo", "Isabel", "Marcelo","Sarah")idades <- c(40,
42, 26, 32, 28)tabela1 <- data.frame(nome = nomes, idade =
idades)write.csv(tabela1, "arq1.csv", row.names = FALSE)
nomes <- c("Antônio", "Letícia", "Cláudio", "Ana Paula","Luiza")idades <-
c(50, 26, 40, 25, 32)tabela2 <- data.frame(nome = nomes, idade =
idades)write.csv(tabela2, " arq2.csv", row.names = FALSE)
nomes <- c("Maria Clara", "Ana Maria", "Bianca", "Lidiane","Anderson")idades
<- c(32, 32, 30, 34, 29)tabela3 <- data.frame(nome = nomes, idade =
idades)write.csv(tabela3, " arq3.csv", row.names = FALSE)
lista=list.files()
O comando criou esses arquivos csv de exemplo, onde eles salvam no diretório
de trabalho "testeR". Eu reúno esses arquivos por meio dessa função (usei de
apoio o dplyr):
lista<-list.files()arquivos <- lapply(lista, function(x) read.csv2(x,
header=TRUE, sep=";")) dados    <- do.call("rbind", arquivos) 
Se eu aplicar essa função, ela vai reunir todos os arquivos (arq1.arq2 e
arq3).

Minha dúvida: eu gostaria de aplicá-la, de forma a juntar somente "parte"
dos arquivos (ex: arq1 com arq3, por exemplo).
Alguém poderia dar uma informação ou ajuda a responder essa dúvida?
Obrigado e bom dia!!!
Diogo JerônimoBacharel em Ciências Estatísticas - ENCE/IBGEMestre em
Metrologia - PUC-Rio/PósMQICONRE: 8514 - SÉRIE AEmail:
[hidden email]://lattes.cnpq.br/8996149312896520
_______________________________________________
R-br mailing list
[hidden email]
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.
</quote>
Quoted from:
http://r-br.2285057.n4.nabble.com/R-br-Reunir-bancos-com-condicao-tp4668409.html


_____________________________________
Sent from http://r-br.2285057.n4.nabble.com

_______________________________________________
R-br mailing list
[hidden email]
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 fornea cdigo mnimo reproduzvel.
Reply | Threaded
Open this post in threaded view
|

Re: [R-br] Reunir bancos com condição.

R-br mailing list
In reply to this post by R-br mailing list
Tem este arquivo testeR para rodar?
 
Bom dia Diogo,

É possível filtrar a variável "lista" antes de entrar no "lapply", usando "grep".

Ex.:
#para selecionar "arq1" e "arq3"
lista = grep("arq[13].csv&", list.files() , value = TRUE)


Att,
Max Verginio


<quote author='R-br mailing list'>
Bom dia lista!!!
Seguinte, Criei esse exemplo aqui para ajudar no entendimento da minha
dúvida:
setwd("C:/Users/diogo/Desktop/testeR")
getwd()
nomes <- c("Diogo", "Rodrigo", "Isabel", "Marcelo","Sarah")idades <- c(40,
42, 26, 32, 28)tabela1 <- data.frame(nome = nomes, idade =
idades)write.csv(tabela1, "arq1.csv", row.names = FALSE)
nomes <- c("Antônio", "Letícia", "Cláudio", "Ana Paula","Luiza")idades <-
c(50, 26, 40, 25, 32)tabela2 <- data.frame(nome = nomes, idade =
idades)write.csv(tabela2, " arq2.csv", row.names = FALSE)
nomes <- c("Maria Clara", "Ana Maria", "Bianca", "Lidiane","Anderson")idades
<- c(32, 32, 30, 34, 29)tabela3 <- data.frame(nome = nomes, idade =
idades)write.csv(tabela3, " arq3.csv", row.names = FALSE)
lista=list.files()
O comando criou esses arquivos csv de exemplo, onde eles salvam no diretório
de trabalho "testeR". Eu reúno esses arquivos por meio dessa função (usei de
apoio o dplyr):
lista<-list.files()arquivos <- lapply(lista, function(x) read.csv2(x,
header=TRUE, sep=";")) dados    <- do.call("rbind", arquivos) 
Se eu aplicar essa função, ela vai reunir todos os arquivos (arq1.arq2 e
arq3).

Minha dúvida: eu gostaria de aplicá-la, de forma a juntar somente "parte"
dos arquivos (ex: arq1 com arq3, por exemplo).
Alguém poderia dar uma informação ou ajuda a responder essa dúvida?
Obrigado e bom dia!!!
Diogo JerônimoBacharel em Ciências Estatísticas - ENCE/IBGEMestre em
Metrologia - PUC-Rio/PósMQICONRE: 8514 - SÉRIE AEmail:
[hidden email]://lattes.cnpq.br/8996149312896520
_______________________________________________
R-br mailing list
[hidden email]
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.
</quote>
Quoted from:
http://r-br.2285057.n4.nabble.com/R-br-Reunir-bancos-com-condicao-tp4668409.html


_____________________________________
Sent from http://r-br.2285057.n4.nabble.com

_______________________________________________
R-br mailing list
[hidden email]
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 fornea cdigo mnimo reproduzvel.

_______________________________________________
R-br mailing list
[hidden email]
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.
Reply | Threaded
Open this post in threaded view
|

Re: [R-br] Reunir bancos com condição.

R-br mailing list
Oi Mauro, bom dia, mandei um exemplo desses para a lista R ontem.

Obrigado!!!

Diogo Jerônimo
Bacharel em Ciências Estatísticas - ENCE/IBGE
Mestre em Metrologia - PUC-Rio/PósMQI
CONRE: 8514 - SÉRIE A
http://lattes.cnpq.br/8996149312896520

Em segunda-feira, 4 de fevereiro de 2019 20:16:22 BRST, Mauro Sznelwar por (R-br) <[hidden email]> escreveu:


Tem este arquivo testeR para rodar?
 
Bom dia Diogo,

É possível filtrar a variável "lista" antes de entrar no "lapply", usando "grep".

Ex.:
#para selecionar "arq1" e "arq3"
lista = grep("arq[13].csv&", list.files() , value = TRUE)


Att,
Max Verginio


<quote author='R-br mailing list'>
Bom dia lista!!!
Seguinte, Criei esse exemplo aqui para ajudar no entendimento da minha
dúvida:
setwd("C:/Users/diogo/Desktop/testeR")
getwd()
nomes <- c("Diogo", "Rodrigo", "Isabel", "Marcelo","Sarah")idades <- c(40,
42, 26, 32, 28)tabela1 <- data.frame(nome = nomes, idade =
idades)write.csv(tabela1, "arq1.csv", row.names = FALSE)
nomes <- c("Antônio", "Letícia", "Cláudio", "Ana Paula","Luiza")idades <-
c(50, 26, 40, 25, 32)tabela2 <- data.frame(nome = nomes, idade =
idades)write.csv(tabela2, " arq2.csv", row.names = FALSE)
nomes <- c("Maria Clara", "Ana Maria", "Bianca", "Lidiane","Anderson")idades
<- c(32, 32, 30, 34, 29)tabela3 <- data.frame(nome = nomes, idade =
idades)write.csv(tabela3, " arq3.csv", row.names = FALSE)
lista=list.files()
O comando criou esses arquivos csv de exemplo, onde eles salvam no diretório
de trabalho "testeR". Eu reúno esses arquivos por meio dessa função (usei de
apoio o dplyr):
lista<-list.files()arquivos <- lapply(lista, function(x) read.csv2(x,
header=TRUE, sep=";")) dados    <- do.call("rbind", arquivos) 
Se eu aplicar essa função, ela vai reunir todos os arquivos (arq1.arq2 e
arq3).

Minha dúvida: eu gostaria de aplicá-la, de forma a juntar somente "parte"
dos arquivos (ex: arq1 com arq3, por exemplo).
Alguém poderia dar uma informação ou ajuda a responder essa dúvida?
Obrigado e bom dia!!!
Diogo JerônimoBacharel em Ciências Estatísticas - ENCE/IBGEMestre em
Metrologia - PUC-Rio/PósMQICONRE: 8514 - SÉRIE AEmail:
[hidden email]://lattes.cnpq.br/8996149312896520
_______________________________________________
R-br mailing list
[hidden email]
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.
</quote>
Quoted from:
http://r-br.2285057.n4.nabble.com/R-br-Reunir-bancos-com-condicao-tp4668409.html


_____________________________________
Sent from http://r-br.2285057.n4.nabble.com

_______________________________________________
R-br mailing list
[hidden email]
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 fornea cdigo mnimo reproduzvel.
_______________________________________________
R-br mailing list
[hidden email]
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
[hidden email]
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.
Reply | Threaded
Open this post in threaded view
|

Re: [R-br] Reunir bancos com condição.

R-br mailing list
In reply to this post by R-br mailing list
Bom dia Max, testei e não consegui rodar seu código ontem. Devo fazer algum alteração a mais?

Obrigado!!! 

Diogo Jerônimo
Bacharel em Ciências Estatísticas - ENCE/IBGE
Mestre em Metrologia - PUC-Rio/PósMQI
CONRE: 8514 - SÉRIE A
http://lattes.cnpq.br/8996149312896520


Em segunda-feira, 4 de fevereiro de 2019 12:26:12 BRST, Max Richard Verginio por (R-br) <[hidden email]> escreveu:


Bom dia Diogo,

É possível filtrar a variável "lista" antes de entrar no "lapply", usando "grep".

Ex.:
#para selecionar "arq1" e "arq3"
  lista = grep("arq[13].csv&", list.files() , value = TRUE)


Att,
Max Verginio


<quote author='R-br mailing list'>
Bom dia lista!!!
Seguinte, Criei esse exemplo aqui para ajudar no entendimento da minha
dúvida:
setwd("C:/Users/diogo/Desktop/testeR")
getwd()
nomes <- c("Diogo", "Rodrigo", "Isabel", "Marcelo","Sarah")idades <- c(40,
42, 26, 32, 28)tabela1 <- data.frame(nome = nomes, idade =
idades)write.csv(tabela1, "arq1.csv", row.names = FALSE)
nomes <- c("Antônio", "Letícia", "Cláudio", "Ana Paula","Luiza")idades <-
c(50, 26, 40, 25, 32)tabela2 <- data.frame(nome = nomes, idade =
idades)write.csv(tabela2, " arq2.csv", row.names = FALSE)
nomes <- c("Maria Clara", "Ana Maria", "Bianca", "Lidiane","Anderson")idades
<- c(32, 32, 30, 34, 29)tabela3 <- data.frame(nome = nomes, idade =
idades)write.csv(tabela3, " arq3.csv", row.names = FALSE)
lista=list.files()
O comando criou esses arquivos csv de exemplo, onde eles salvam no diretório
de trabalho "testeR". Eu reúno esses arquivos por meio dessa função (usei de
apoio o dplyr):
lista<-list.files()arquivos <- lapply(lista, function(x) read.csv2(x,
header=TRUE, sep=";")) dados    <- do.call("rbind", arquivos) 
Se eu aplicar essa função, ela vai reunir todos os arquivos (arq1.arq2 e
arq3).

Minha dúvida: eu gostaria de aplicá-la, de forma a juntar somente "parte"
dos arquivos (ex: arq1 com arq3, por exemplo).
Alguém poderia dar uma informação ou ajuda a responder essa dúvida?
Obrigado e bom dia!!!
Diogo JerônimoBacharel em Ciências Estatísticas - ENCE/IBGEMestre em
Metrologia - PUC-Rio/PósMQICONRE: 8514 - SÉRIE AEmail:
[hidden email]://lattes.cnpq.br/8996149312896520
_______________________________________________
R-br mailing list
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo
m�nimo reproduz�vel.
</quote>
Quoted from:


_____________________________________

_______________________________________________
R-br mailing list
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e fornea cdigo mnimo reproduzvel.

_______________________________________________
R-br mailing list
[hidden email]
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.
Reply | Threaded
Open this post in threaded view
|

Re: [R-br] Reunir bancos com condição.

R-br mailing list
In reply to this post by R-br mailing list
Boa tarde,

Desculpe o engano, o ultimo caractere no regex deveria ser "$", que é para significar o final do texto.

Ex.:

lista = grep("arq[13].csv$", list.files() , value = TRUE)


Link com o código completo:
https://pastebin.com/uVa12Euh

Att,
Max Verginio

<quote author='R-br mailing list'>
Bom dia Max, testei e não consegui rodar seu código ontem. Devo fazer algum
alteração a mais?
Obrigado!!! 
Diogo JerônimoBacharel em Ciências Estatísticas - ENCE/IBGEMestre em
Metrologia - PUC-Rio/PósMQI
CONRE: 8514 - SÉRIE


_____________________________________
Sent from http://r-br.2285057.n4.nabble.com

_______________________________________________
R-br mailing list
[hidden email]
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 fornea cdigo mnimo reproduzvel.
Reply | Threaded
Open this post in threaded view
|

Re: [R-br] Reunir bancos com condição.

R-br mailing list
Max, eu é que agradeço a disponibilidade de ajuda!!! Obrigado novamente, agora funcionou!!!!

Diogo Jerônimo
Bacharel em Ciências Estatísticas - ENCE/IBGE
Mestre em Metrologia - PUC-Rio/PósMQI
CONRE: 8514 - SÉRIE A
http://lattes.cnpq.br/8996149312896520


Em terça-feira, 5 de fevereiro de 2019 15:21:09 BRST, Max Richard Verginio por (R-br) <[hidden email]> escreveu:


Boa tarde,

Desculpe o engano, o ultimo caractere no regex deveria ser "$", que é para significar o final do texto.

Ex.:

lista = grep("arq[13].csv$", list.files() , value = TRUE)


Link com o código completo:

Att,
Max Verginio

<quote author='R-br mailing list'>
Bom dia Max, testei e não consegui rodar seu código ontem. Devo fazer algum
alteração a mais?
Obrigado!!! 
Diogo JerônimoBacharel em Ciências Estatísticas - ENCE/IBGEMestre em
Metrologia - PUC-Rio/PósMQI
CONRE: 8514 - SÉRIE


_____________________________________

_______________________________________________
R-br mailing list
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e fornea cdigo mnimo reproduzvel.

_______________________________________________
R-br mailing list
[hidden email]
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.