<html><head></head><body><div class="ydpac6bee7dyahoo-style-wrap" style="font-family:bookman old style, new york, times, serif;font-size:16px;"><div><div>Bom dia Max, testei e não consegui rodar seu código ontem. Devo fazer algum alteração a mais?</div><div><br></div><div>Obrigado!!! </div><div><br></div><div class="ydpac6bee7dsignature"><div style="font-family:Helvetica, Arial, sans-serif;font-size:16px;"><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="ydpcf278505yui_3_16_0_1_1497025264182_38508"><span id="ydpcf278505yui_3_16_0_1_1497025264182_38507" style="color:rgb(0, 0, 191);font-size:medium;"><font face="Courier New, courier, monaco, monospace, sans-serif">Diogo Jerônimo</font></span></i></div><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="ydpcf278505yui_3_16_0_1_1497025264182_38430"><span id="ydpcf278505yui_3_16_0_1_1497025264182_38429" style="color:rgb(0, 0, 191);font-size:medium;"><font face="Courier New, courier, monaco, monospace, sans-serif">Bacharel em Ciências Estatísticas - ENCE/IBGE</font></span></i></div><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="ydpcf278505yui_3_16_0_1_1497025264182_38309"><span id="ydpcf278505yui_3_16_0_1_1497025264182_38308" style="color:rgb(0, 0, 191);font-size:medium;"><font face="Courier New, courier, monaco, monospace, sans-serif">Mestre em Metrologia - PUC-Rio/PósMQI</font></span></i></div><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="ydpcf278505yui_3_16_0_1_1497025264182_38329"><span id="ydpcf278505yui_3_16_0_1_1497025264182_38328" style="color:rgb(0, 0, 191);font-size:medium;"><font face="Courier New, courier, monaco, monospace, sans-serif" id="ydpcf278505yui_3_16_0_1_1497025264182_38700">CONRE: 8514 - SÉRIE A</font></span></i></div><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="ydpcf278505yui_3_16_0_1_1497025264182_38318"><span id="ydpcf278505yui_3_16_0_1_1497025264182_38317" style="color:rgb(0, 0, 191);font-size:medium;"><font face="Courier New, courier, monaco, monospace, sans-serif" id="ydpcf278505yui_3_16_0_1_1497025264182_38696">Email: diogojose21@yahoo.com.br</font></span></i></div><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="ydpcf278505yui_3_16_0_1_1497025264182_38323"><span id="ydpcf278505yui_3_16_0_1_1497025264182_38322" style="line-height:17.12px;color:rgb(0, 0, 191);font-size:medium;"><font face="Courier New, courier, monaco, monospace, sans-serif" id="ydpcf278505yui_3_16_0_1_1497025264182_38695">http://lattes.cnpq.br/8996149312896520</font></span></i></div></div></div></div>
<div><br></div><div><br></div>
</div><div id="ydpbbb1cccbyahoo_quoted_9902714818" class="ydpbbb1cccbyahoo_quoted">
<div style="font-family:'Helvetica Neue', Helvetica, Arial, sans-serif;font-size:13px;color:#26282a;">
<div>
Em segunda-feira, 4 de fevereiro de 2019 12:26:12 BRST, Max Richard Verginio por (R-br) <r-br@listas.c3sl.ufpr.br> escreveu:
</div>
<div><br></div>
<div><br></div>
<div><div dir="ltr">Bom dia Diogo,<br></div><div dir="ltr"><br></div><div dir="ltr">É possível filtrar a variável "lista" antes de entrar no "lapply", usando "grep".<br></div><div dir="ltr"><br></div><div dir="ltr">Ex.:<br></div><div dir="ltr">#para selecionar "arq1" e "arq3"<br></div><div dir="ltr"> lista = grep("arq[13].csv&", list.files() , value = TRUE)<br></div><div dir="ltr"><br></div><div dir="ltr"><br></div><div dir="ltr">Att,<br></div><div dir="ltr">Max Verginio<br></div><div dir="ltr"><br></div><div dir="ltr"><br></div><div dir="ltr"><quote author='R-br mailing list'><br></div><div dir="ltr">Bom dia lista!!!<br></div><div dir="ltr">Seguinte, Criei esse exemplo aqui para ajudar no entendimento da minha<br></div><div dir="ltr">dúvida:<br></div><div dir="ltr">setwd("C:/Users/diogo/Desktop/testeR")<br></div><div dir="ltr">getwd()<br></div><div dir="ltr">nomes <- c("Diogo", "Rodrigo", "Isabel", "Marcelo","Sarah")idades <- c(40,<br></div><div dir="ltr">42, 26, 32, 28)tabela1 <- data.frame(nome = nomes, idade =<br></div><div dir="ltr">idades)write.csv(tabela1, "arq1.csv", row.names = FALSE)<br></div><div dir="ltr">nomes <- c("Antônio", "Letícia", "Cláudio", "Ana Paula","Luiza")idades <-<br></div><div dir="ltr">c(50, 26, 40, 25, 32)tabela2 <- data.frame(nome = nomes, idade =<br></div><div dir="ltr">idades)write.csv(tabela2, " arq2.csv", row.names = FALSE)<br></div><div dir="ltr">nomes <- c("Maria Clara", "Ana Maria", "Bianca", "Lidiane","Anderson")idades<br></div><div dir="ltr"><- c(32, 32, 30, 34, 29)tabela3 <- data.frame(nome = nomes, idade =<br></div><div dir="ltr">idades)write.csv(tabela3, " arq3.csv", row.names = FALSE)<br></div><div dir="ltr">lista=list.files()<br></div><div dir="ltr">O comando criou esses arquivos csv de exemplo, onde eles salvam no diretório<br></div><div dir="ltr">de trabalho "testeR". Eu reúno esses arquivos por meio dessa função (usei de<br></div><div dir="ltr">apoio o dplyr):<br></div><div dir="ltr">lista<-list.files()arquivos <- lapply(lista, function(x) read.csv2(x,<br></div><div dir="ltr">header=TRUE, sep=";")) dados <- do.call("rbind", arquivos) <br></div><div dir="ltr">Se eu aplicar essa função, ela vai reunir todos os arquivos (arq1.arq2 e<br></div><div dir="ltr">arq3).<br></div><div dir="ltr"><br></div><div dir="ltr">Minha dúvida: eu gostaria de aplicá-la, de forma a juntar somente "parte"<br></div><div dir="ltr">dos arquivos (ex: arq1 com arq3, por exemplo).<br></div><div dir="ltr">Alguém poderia dar uma informação ou ajuda a responder essa dúvida?<br></div><div dir="ltr">Obrigado e bom dia!!!<br></div><div dir="ltr">Diogo JerônimoBacharel em Ciências Estatísticas - ENCE/IBGEMestre em<br></div><div dir="ltr">Metrologia - PUC-Rio/PósMQICONRE: 8514 - SÉRIE AEmail:<br></div><div dir="ltr"><a href="mailto:diogojose21@yahoo.com.brhttp" rel="nofollow" target="_blank">diogojose21@yahoo.com.brhttp</a>://lattes.cnpq.br/8996149312896520<br></div><div dir="ltr">_______________________________________________<br></div><div dir="ltr">R-br mailing list<br></div><div dir="ltr"><a href="mailto:R-br@listas.c3sl.ufpr.br" rel="nofollow" target="_blank">R-br@listas.c3sl.ufpr.br</a><br></div><div dir="ltr"><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="nofollow" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br></div><div dir="ltr">Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="nofollow" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forne�a c�digo<br></div><div dir="ltr">m�nimo reproduz�vel.<br></div><div dir="ltr"></quote><br></div><div dir="ltr">Quoted from: <br></div><div dir="ltr"><a href="http://r-br.2285057.n4.nabble.com/R-br-Reunir-bancos-com-condicao-tp4668409.html" rel="nofollow" target="_blank">http://r-br.2285057.n4.nabble.com/R-br-Reunir-bancos-com-condicao-tp4668409.html</a><br></div><div dir="ltr"><br></div><div dir="ltr"><br></div><div dir="ltr">_____________________________________<br></div><div dir="ltr">Sent from <a href="http://r-br.2285057.n4.nabble.com" rel="nofollow" target="_blank">http://r-br.2285057.n4.nabble.com</a><br></div><div dir="ltr"><br></div><div dir="ltr">_______________________________________________<br></div><div dir="ltr">R-br mailing list<br></div><div dir="ltr"><a href="mailto:R-br@listas.c3sl.ufpr.br" rel="nofollow" target="_blank">R-br@listas.c3sl.ufpr.br</a><br></div><div dir="ltr"><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="nofollow" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br></div><div dir="ltr">Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="nofollow" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e fornea cdigo mnimo reproduzvel.</div></div>
</div>
</div></body></html>