<html><head></head><body><div class="ydpd66d01a0yahoo-style-wrap" style="font-family: bookman old style, new york, times, serif; font-size: 16px;"><div><div>Oi Mauro, bom dia, mandei um exemplo desses para a lista R ontem.</div><div><br></div><div>Obrigado!!!</div><div><br></div><div class="ydpd66d01a0signature"><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><div id="ydp69c1d1a6yahoo_quoted_0139570183" class="ydp69c1d1a6yahoo_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 20:16:22 BRST, Mauro Sznelwar por (R-br) <r-br@listas.c3sl.ufpr.br> escreveu:
</div>
<div><br></div>
<div><br></div>
<div><div id="ydp69c1d1a6yiv7932080015"><div><div><span style="color:#0000ff;font-size:medium;">Tem este arquivo testeR para rodar?</span></div>
<div> </div>
<div class="ydp69c1d1a6yiv7932080015yqt7538330927" id="ydp69c1d1a6yiv7932080015yqt43515"><div>Bom dia Diogo,<br clear="none"><br clear="none">É possível filtrar a variável "lista" antes de entrar no "lapply", usando "grep".<br clear="none"><br clear="none">Ex.:<br clear="none">#para selecionar "arq1" e "arq3"<br clear="none"> lista = grep("arq[13].csv&", list.files() , value = TRUE)<br clear="none"><br clear="none"><br clear="none">Att,<br clear="none">Max Verginio<br clear="none"><br clear="none"><br clear="none"><quote author='R-br mailing list'><br clear="none">Bom dia lista!!!<br clear="none">Seguinte, Criei esse exemplo aqui para ajudar no entendimento da minha<br clear="none">dúvida:<br clear="none">setwd("C:/Users/diogo/Desktop/testeR")<br clear="none">getwd()<br clear="none">nomes <- c("Diogo", "Rodrigo", "Isabel", "Marcelo","Sarah")idades <- c(40,<br clear="none">42, 26, 32, 28)tabela1 <- data.frame(nome = nomes, idade =<br clear="none">idades)write.csv(tabela1, "arq1.csv", row.names = FALSE)<br clear="none">nomes <- c("Antônio", "Letícia", "Cláudio", "Ana Paula","Luiza")idades <-<br clear="none">c(50, 26, 40, 25, 32)tabela2 <- data.frame(nome = nomes, idade =<br clear="none">idades)write.csv(tabela2, " arq2.csv", row.names = FALSE)<br clear="none">nomes <- c("Maria Clara", "Ana Maria", "Bianca", "Lidiane","Anderson")idades<br clear="none"><- c(32, 32, 30, 34, 29)tabela3 <- data.frame(nome = nomes, idade =<br clear="none">idades)write.csv(tabela3, " arq3.csv", row.names = FALSE)<br clear="none">lista=list.files()<br clear="none">O comando criou esses arquivos csv de exemplo, onde eles salvam no diretório<br clear="none">de trabalho "testeR". Eu reúno esses arquivos por meio dessa função (usei de<br clear="none">apoio o dplyr):<br clear="none">lista<-list.files()arquivos <- lapply(lista, function(x) read.csv2(x,<br clear="none">header=TRUE, sep=";")) dados <- do.call("rbind", arquivos) <br clear="none">Se eu aplicar essa função, ela vai reunir todos os arquivos (arq1.arq2 e<br clear="none">arq3).<br clear="none"><br clear="none">Minha dúvida: eu gostaria de aplicá-la, de forma a juntar somente "parte"<br clear="none">dos arquivos (ex: arq1 com arq3, por exemplo).<br clear="none">Alguém poderia dar uma informação ou ajuda a responder essa dúvida?<br clear="none">Obrigado e bom dia!!!<br clear="none">Diogo JerônimoBacharel em Ciências Estatísticas - ENCE/IBGEMestre em<br clear="none">Metrologia - PUC-Rio/PósMQICONRE: 8514 - SÉRIE AEmail:<br clear="none">diogojose21@yahoo.com.brhttp://lattes.cnpq.br/8996149312896520<br clear="none">_______________________________________________<br clear="none">R-br mailing list<br clear="none">R-br@listas.c3sl.ufpr.br<br clear="none"><a shape="rect" 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 clear="none">Leia o guia de postagem (<a shape="rect" 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 clear="none">m�nimo reproduz�vel.<br clear="none"></quote><br clear="none">Quoted from: <br clear="none"><a shape="rect" 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 clear="none"><br clear="none"><br clear="none">_____________________________________<br clear="none">Sent from <a shape="rect" href="http://r-br.2285057.n4.nabble.com" rel="nofollow" target="_blank">http://r-br.2285057.n4.nabble.com</a><br clear="none"><br clear="none">_______________________________________________<br clear="none">R-br mailing list<br clear="none">R-br@listas.c3sl.ufpr.br<br clear="none"><a shape="rect" 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 clear="none">Leia o guia de postagem (<a shape="rect" 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><div class="ydp69c1d1a6yqt7538330927" id="ydp69c1d1a6yqt65008">_______________________________________________<br clear="none">R-br mailing list<br clear="none"><a shape="rect" href="mailto:R-br@listas.c3sl.ufpr.br" rel="nofollow" target="_blank">R-br@listas.c3sl.ufpr.br</a><br clear="none"><a shape="rect" 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 clear="none">Leia o guia de postagem (<a shape="rect" 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 m�nimo reproduz�vel.</div></div>
</div>
</div></body></html>