<div dir="ltr"><div>Diogo,</div><div>Segue minha solução a seu problema. Faça as adaptações necessárias.<br></div><div><br></div><div>Fiz algumas alterações em seu código para tornar a saídas mais legíveis.</div><div><br></div><div><br></div><div>dir.create('~/Downloads/bancosex/')</div>banco1=data.frame(Nome=c("Diogo","Patrícia"),Idade=c(42,40),Salario=c(5000,7000))<br>write.csv2(banco1,file='~/Downloads/bancosex/banco1.csv',row.names=FALSE)<br>banco2=data.frame(Nome=c("João","Alexandre"),Idade=c(41,40),Salario=c(8000,9000))<br>write.csv2(banco2,file='~/Downloads/bancosex/banco2.csv',row.names=FALSE)<br>banco3=data.frame(Nome=c("Angélica","Nádia"),Idade=c(40,38),Salario=c(9500,7500))<br>write.csv2(banco3,file='~/Downloads/bancosex/banco3.csv',row.names=FALSE)<br><div><br></div><div>## dir= uma string com o path para o diretório</div><div>## nameBD= um vetor string com os nomes completos dos arquivos (p.ex "meuarquivo.csv")<br></div><br>importaBD <-function(dir, nameBD){<br><br> lista<- vector(mode = "list", length =length(nameBD))<br> <br> setwd(dir)<br> <br> for(i in 1:length(nameBD)){<br><br> lista[[i]]<-list.files(path=dir,pattern=nameBD)<br> <br> }<br><br> arquivos<-lapply(lista, function(x) read.csv2(x, header=TRUE, sep=";")) <br><br> dados<-do.call("rbind",arquivos)<br><br> print(dados)<br> <br>}<br><br><div>importaBD(dir="~/Downloads/bancosex/",nameBD=c("banco1.csv","banco2.csv"))</div><div><br></div><div> Nome Idade Salario<br>1 Diogo 42 5000<br>2 Patrícia 40 7000<br>3 Diogo 42 5000<br>4 Patrícia 40 7000</div><div><br></div><div>att<br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Em seg., 18 de mai. de 2020 às 19:39, Diogo Jerônimo por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> escreveu:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div><div style="font-family:bookman old style,new york,times,serif;font-size:16px"><div><div dir="ltr">Oi Daniel, boa noite.</div><div dir="ltr"><br></div><div dir="ltr">Esse exemplo eu dei para ilustrar, mas o meu caso é de bases de dados trimestrais em *.csv, onde cada base trimestral tem por volta de 100 Megas, bases que vem desde 2006 até 2020!!! </div><div dir="ltr"><br></div><div dir="ltr">Fora o tamanho, essas bases podem ter variáveis adicionais solicitadas pelo gestor ao longo dos anos (códigos adicionais, dado de alteração de um serviço...), e isso cria conflito se eu juntar as bases com número de colunas diferentes pelo "rbind".</div><div dir="ltr"><br></div><div dir="ltr">No meu caso, um período em que tenho dados uniformes (sem alteração do número de colunas) é entre 2017 e 2018, e nesse caso, não posso apagar e nem copiar as outras bases (por motivos de segurança). Assim, eu teria de escolher somente as bases dos trimestres dos anos que me interessam (2017 trim1,...,2018 trim4) para processar a análise estatística de interesse.</div><div dir="ltr"><br></div><div dir="ltr">Não sei se consegui ser claro, mas é isso.</div><div dir="ltr"><br></div><div dir="ltr">Obrigado!!! </div><div><br></div><div><div style="font-family:Helvetica,Arial,sans-serif;font-size:16px"><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white none repeat scroll 0% 0%"><i id="gmail-m_-6498610700968197006ydpcf278505yui_3_16_0_1_1497025264182_38508"><span id="gmail-m_-6498610700968197006ydpcf278505yui_3_16_0_1_1497025264182_38507" style="color:rgb(0,0,191);font-size:medium"><font style="background-color:inherit" 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 none repeat scroll 0% 0%"><i id="gmail-m_-6498610700968197006ydpcf278505yui_3_16_0_1_1497025264182_38430"><span id="gmail-m_-6498610700968197006ydpcf278505yui_3_16_0_1_1497025264182_38429" style="color:rgb(0,0,191);font-size:medium"><font style="background-color:inherit" 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 none repeat scroll 0% 0%"><i id="gmail-m_-6498610700968197006ydpcf278505yui_3_16_0_1_1497025264182_38309"><span id="gmail-m_-6498610700968197006ydpcf278505yui_3_16_0_1_1497025264182_38308" style="color:rgb(0,0,191);font-size:medium"><font style="background-color:inherit" 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 none repeat scroll 0% 0%"><i id="gmail-m_-6498610700968197006ydpcf278505yui_3_16_0_1_1497025264182_38329"><span id="gmail-m_-6498610700968197006ydpcf278505yui_3_16_0_1_1497025264182_38328" style="color:rgb(0,0,191);font-size:medium"><font id="gmail-m_-6498610700968197006ydpcf278505yui_3_16_0_1_1497025264182_38700" style="background-color:inherit" face="Courier New, courier, monaco, monospace, sans-serif">CONRE: 8514 - SÉRIE A</font></span></i></div><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white none repeat scroll 0% 0%"><br></div></div></div></div><div><span style="color:rgb(38,40,42);font-family:Helvetica Neue,Helvetica,Arial,sans-serif;font-size:13px">Em segunda-feira, 18 de maio de 2020 18:14:38 BRT, Daniel Guimarães Tiezzi por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>> escreveu:</span><br></div></div><div id="gmail-m_-6498610700968197006ydp94dac88cyahoo_quoted_9848402439"><div style="font-family:"Helvetica Neue",Helvetica,Arial,sans-serif;font-size:13px;color:rgb(38,40,42)">
<div><br></div>
<div><br></div>
<div><div id="gmail-m_-6498610700968197006ydp94dac88cyiv9000979461"><div><div><div>Se VC sabe qual os arquivos VC precisa let, certo? Deixe somente eles no seu objeto listas.</div><div><br clear="none"></div><div>Daniel<br clear="none"><br clear="none"><div><div dir="ltr">On Mon, 18 May 2020, 18:11 Mauro Sznelwar por (R-br), <<a shape="rect" href="mailto:r-br@listas.c3sl.ufpr.br" rel="nofollow" target="_blank">r-br@listas.c3sl.ufpr.br</a>> wrote:<br clear="none"></div><blockquote style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div><span style="font-size:medium;color:rgb(0,0,255)">Tem o data set para rodar?</span></div>
<div> </div>
<div><br clear="none"><br clear="none"></div>
<div> </div>
<div style="font-family:bookman old style,new york,times,serif;font-size:16px">
<div dir="ltr" style="font-size:16px">Lista, bom dia e boa semana!!! Criei o "reproduzível" para explicar a dúvida. Nesse exemplo, de uma pasta, identifiquei arquivos "*.csv", e depois apliquei o <strong>lapply</strong> e o <span><span style="color:rgb(0,0,0);font-family:bookman old style,new york,times,serif;font-size:16px"><strong>do.call</strong> </span></span>para importar e juntar esses bancos:</div>
<div dir="ltr">
<div>
<div style="font-size:16px"> </div>
<div><span style="color:rgb(205,35,44);font-size:small">dir.create('c:/users/diogo/desktop/bancosex/')</span></div>
<div><span style="color:rgb(205,35,44);font-size:small">banco1=data.frame(cbind(c("Diogo","Patrícia"),c(42,40),c(5000,7000)))</span></div>
<div dir="ltr">
<div>
<div><span style="color:rgb(205,35,44)">write.csv2(banco1,file='c:/users/diogo/desktop/bancosex/banco1.csv',row.names=FALSE)</span></div>
<div><span style="color:rgb(205,35,44)">banco2=data.frame(cbind(c("João","Alexandre"),c(41,40),c(8000,9000)))<br clear="none"></span></div>
<div><span style="color:rgb(205,35,44)">write.csv2(banco2,file='c:/users/diogo/desktop/bancosex/banco2.csv',row.names=FALSE)</span></div>
<div><span style="color:rgb(205,35,44)">banco3=data.frame(cbind(c("Angélica","Nádia"),c(40,38),c(9500,7500)))<br clear="none"></span></div>
<div><span style="color:rgb(205,35,44)">write.csv2(banco3,file='c:/users/diogo/desktop/bancosex/banco3.csv',row.names=FALSE)</span></div>
<div><span style="color:rgb(205,35,44)"> </span></div>
<div><span style="color:rgb(205,35,44)">setwd('c:/users/diogo/desktop/bancosex/')<br clear="none"></span></div>
<div><span style="color:rgb(205,35,44)">lista<-list.files()</span></div>
<div><span style="color:rgb(205,35,44)">arquivos<-lapply(lista, function(x) read.csv2(x, header=TRUE, sep=";")) </span></div>
<div><span style="color:rgb(205,35,44)">dados<-do.call("rbind", arquivos) </span></div>
<div> </div>
</div>
</div>
<div dir="ltr">Meu problema: esse código vai "pegar" TODOS os bancos da pasta antes de importar e juntar. Eu gostaria de pegar somente PARTE desses bancos (ex: apenas banco1 e banco2, apenas banco2 e banco3...).</div>
<div dir="ltr"> </div>
<div dir="ltr">Alguém saberia como fazer isso?</div>
<div dir="ltr"> </div>
<div dir="ltr">Obrigado!!! </div>
</div>
</div>
<div dir="ltr" style="font-size:16px"> </div>
<div style="font-size:16px">
<div style="font-family:Helvetica,Arial,sans-serif;font-size:16px">
<div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white none repeat scroll 0% 0%"><em id="gmail-m_-6498610700968197006ydp94dac88cyiv9000979461m_-4189396021952135319ydpcf278505yui_3_16_0_1_1497025264182_38508"><span id="gmail-m_-6498610700968197006ydp94dac88cyiv9000979461m_-4189396021952135319ydpcf278505yui_3_16_0_1_1497025264182_38507" style="color:rgb(0,0,191);font-size:medium"><span style="background-color:inherit;font-family:"Courier New",courier,monaco,monospace,sans-serif">Diogo Jerônimo</span></span></em></div>
<div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white none repeat scroll 0% 0%"><em id="gmail-m_-6498610700968197006ydp94dac88cyiv9000979461m_-4189396021952135319ydpcf278505yui_3_16_0_1_1497025264182_38430"><span id="gmail-m_-6498610700968197006ydp94dac88cyiv9000979461m_-4189396021952135319ydpcf278505yui_3_16_0_1_1497025264182_38429" style="color:rgb(0,0,191);font-size:medium"><span style="background-color:inherit;font-family:"Courier New",courier,monaco,monospace,sans-serif">Bacharel em Ciências Estatísticas - ENCE/IBGE</span></span></em></div>
<div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white none repeat scroll 0% 0%"><em id="gmail-m_-6498610700968197006ydp94dac88cyiv9000979461m_-4189396021952135319ydpcf278505yui_3_16_0_1_1497025264182_38309"><span id="gmail-m_-6498610700968197006ydp94dac88cyiv9000979461m_-4189396021952135319ydpcf278505yui_3_16_0_1_1497025264182_38308" style="color:rgb(0,0,191);font-size:medium"><span style="background-color:inherit;font-family:"Courier New",courier,monaco,monospace,sans-serif">Mestre em Metrologia - PUC-Rio/PósMQI</span></span></em></div>
<div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white none repeat scroll 0% 0%"><em id="gmail-m_-6498610700968197006ydp94dac88cyiv9000979461m_-4189396021952135319ydpcf278505yui_3_16_0_1_1497025264182_38329"><span id="gmail-m_-6498610700968197006ydp94dac88cyiv9000979461m_-4189396021952135319ydpcf278505yui_3_16_0_1_1497025264182_38328" style="color:rgb(0,0,191);font-size:medium"><span id="gmail-m_-6498610700968197006ydp94dac88cyiv9000979461m_-4189396021952135319ydpcf278505yui_3_16_0_1_1497025264182_38700" style="background-color:inherit;font-family:"Courier New",courier,monaco,monospace,sans-serif">CONRE: 8514 - SÉRIE A</span></span></em></div>
</div>
</div>
</div>
<div>_______________________________________________<br clear="none"><br clear="none"></div>_______________________________________________<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><div id="gmail-m_-6498610700968197006ydp94dac88cyiv9000979461yqtfd39282"><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.<br clear="none">
</div></blockquote></div></div></div></div></div>_______________________________________________<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><div id="gmail-m_-6498610700968197006ydp94dac88cyqtfd08146"><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></div>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div><br clear="all"><br>-- <br><div dir="ltr" class="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><span><img src="https://docs.google.com/uc?export=download&id=1K2Q7I88EsXpEC1jj1tTw2zATGsGZtjCO&revid=0BwCwxSzHhlcsK1VGNTE0YStEVEZFRG9QWlhjYkNJYnBYbi9JPQ"><br>
Lattes: <a href="http://lattes.cnpq.br/6519538815038307" target="_blank">http://lattes.cnpq.br/6519538815038307</a><br>
Blog: <a href="https://producaoanimalcomr.wordpress.com/" target="_blank">https://producaoanimalcomr.wordpress.com/</a><br>
==========================================</span></div></div></div></div></div></div></div></div></div></div>