<html><head></head><body><div class="ydp5b552a0fyahoo-style-wrap" style="font-family: bookman old style, new york, times, serif; font-size: 16px;"><div><div dir="ltr" data-setdir="false">Obrigado Fernando, vou adequar meu código e ver o resultado!!! Bom dia!!!!</div><div><br></div><div class="ydp5b552a0fsignature"><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" style="background-color: inherit;">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" style="background-color: inherit;">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" style="background-color: inherit;">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" style="background-color: inherit;">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" style="background-color: inherit;">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" style="background-color: inherit;">http://lattes.cnpq.br/8996149312896520</font></span></i></div></div></div></div>
<div><br></div><div><br></div>
</div><div id="ydpfc6603b3yahoo_quoted_0382377726" class="ydpfc6603b3yahoo_quoted">
<div style="font-family:'Helvetica Neue', Helvetica, Arial, sans-serif;font-size:13px;color:#26282a;">
<div>
Em segunda-feira, 18 de maio de 2020 23:24:43 BRT, Fernando Souza <nandodesouza@gmail.com> escreveu:
</div>
<div><br></div>
<div><br></div>
<div><div id="ydpfc6603b3yiv9269584101"><div><div dir="ltr"><div>Diogo,</div><div>Segue minha solução a seu problema. Faça as adaptações necessárias.<br clear="none"></div><div><br clear="none"></div><div>Fiz algumas alterações em seu código para tornar a saídas mais legíveis.</div><div><br clear="none"></div><div><br clear="none"></div><div>dir.create('~/Downloads/bancosex/')</div>banco1=data.frame(Nome=c("Diogo","Patrícia"),Idade=c(42,40),Salario=c(5000,7000))<br clear="none">write.csv2(banco1,file='~/Downloads/bancosex/banco1.csv',row.names=FALSE)<br clear="none">banco2=data.frame(Nome=c("João","Alexandre"),Idade=c(41,40),Salario=c(8000,9000))<br clear="none">write.csv2(banco2,file='~/Downloads/bancosex/banco2.csv',row.names=FALSE)<br clear="none">banco3=data.frame(Nome=c("Angélica","Nádia"),Idade=c(40,38),Salario=c(9500,7500))<br clear="none">write.csv2(banco3,file='~/Downloads/bancosex/banco3.csv',row.names=FALSE)<br clear="none"><div><br clear="none"></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 clear="none"></div><br clear="none">importaBD <-function(dir, nameBD){<br clear="none"><br clear="none"> lista<- vector(mode = "list", length =length(nameBD))<br clear="none"> <br clear="none"> setwd(dir)<br clear="none"> <br clear="none"> for(i in 1:length(nameBD)){<br clear="none"><br clear="none"> lista[[i]]<-list.files(path=dir,pattern=nameBD)<br clear="none"> <br clear="none"> }<br clear="none"><br clear="none"> arquivos<-lapply(lista, function(x) read.csv2(x, header=TRUE, sep=";")) <br clear="none"><br clear="none"> dados<-do.call("rbind",arquivos)<br clear="none"><br clear="none"> print(dados)<br clear="none"> <br clear="none">}<br clear="none"><br clear="none"><div>importaBD(dir="~/Downloads/bancosex/",nameBD=c("banco1.csv","banco2.csv"))</div><div><br clear="none"></div><div> Nome Idade Salario<br clear="none">1 Diogo 42 5000<br clear="none">2 Patrícia 40 7000<br clear="none">3 Diogo 42 5000<br clear="none">4 Patrícia 40 7000</div><div><br clear="none"></div><div>att<br clear="none"></div></div><br clear="none"><div class="ydpfc6603b3yiv9269584101gmail_quote"><div class="ydpfc6603b3yiv9269584101gmail_attr" dir="ltr">Em seg., 18 de mai. de 2020 às 19:39, Diogo Jerônimo 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>> escreveu:<br clear="none"></div><blockquote class="ydpfc6603b3yiv9269584101gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex;"><div class="ydpfc6603b3yiv9269584101yqt0891676744" id="ydpfc6603b3yiv9269584101yqt52020"><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 clear="none"></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 clear="none"></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 clear="none"></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 clear="none"></div><div dir="ltr">Não sei se consegui ser claro, mas é isso.</div><div dir="ltr"><br clear="none"></div><div dir="ltr">Obrigado!!! </div><div><br clear="none"></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-image: none; background-size: initial; background-attachment: scroll; background-origin: initial; background-clip: initial; background-color: white;"><i id="ydpfc6603b3yiv9269584101gmail-m_-6498610700968197006ydpcf278505yui_3_16_0_1_1497025264182_38508"><span id="ydpfc6603b3yiv9269584101gmail-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-image: none; background-size: initial; background-attachment: scroll; background-origin: initial; background-clip: initial; background-color: white;"><i id="ydpfc6603b3yiv9269584101gmail-m_-6498610700968197006ydpcf278505yui_3_16_0_1_1497025264182_38430"><span id="ydpfc6603b3yiv9269584101gmail-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-image: none; background-size: initial; background-attachment: scroll; background-origin: initial; background-clip: initial; background-color: white;"><i id="ydpfc6603b3yiv9269584101gmail-m_-6498610700968197006ydpcf278505yui_3_16_0_1_1497025264182_38309"><span id="ydpfc6603b3yiv9269584101gmail-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-image: none; background-size: initial; background-attachment: scroll; background-origin: initial; background-clip: initial; background-color: white;"><i id="ydpfc6603b3yiv9269584101gmail-m_-6498610700968197006ydpcf278505yui_3_16_0_1_1497025264182_38329"><span id="ydpfc6603b3yiv9269584101gmail-m_-6498610700968197006ydpcf278505yui_3_16_0_1_1497025264182_38328" style="color:rgb(0,0,191);font-size:medium;"><font id="ydpfc6603b3yiv9269584101gmail-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-image: none; background-size: initial; background-attachment: scroll; background-origin: initial; background-clip: initial; background-color: white;"><br clear="none"></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 shape="rect" href="mailto:r-br@listas.c3sl.ufpr.br" rel="nofollow" target="_blank">r-br@listas.c3sl.ufpr.br</a>> escreveu:</span><br clear="none"></div></div><div id="ydpfc6603b3yiv9269584101gmail-m_-6498610700968197006ydp94dac88cyahoo_quoted_9848402439"><div style="font-family:Helvetica, Arial, sans-serif;font-size:13px;color:rgb(38,40,42);">
<div><br clear="none"></div>
<div><br clear="none"></div>
<div><div id="ydpfc6603b3yiv9269584101gmail-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-image: none; background-size: initial; background-attachment: scroll; background-origin: initial; background-clip: initial; background-color: white;"><em id="ydpfc6603b3yiv9269584101gmail-m_-6498610700968197006ydp94dac88cyiv9000979461m_-4189396021952135319ydpcf278505yui_3_16_0_1_1497025264182_38508"><span id="ydpfc6603b3yiv9269584101gmail-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, monaco, monospace, sans-serif;">Diogo Jerônimo</span></span></em></div>
<div style="margin-bottom: 0.0001pt; padding: 0px; line-height: normal; background-image: none; background-size: initial; background-attachment: scroll; background-origin: initial; background-clip: initial; background-color: white;"><em id="ydpfc6603b3yiv9269584101gmail-m_-6498610700968197006ydp94dac88cyiv9000979461m_-4189396021952135319ydpcf278505yui_3_16_0_1_1497025264182_38430"><span id="ydpfc6603b3yiv9269584101gmail-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, 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-image: none; background-size: initial; background-attachment: scroll; background-origin: initial; background-clip: initial; background-color: white;"><em id="ydpfc6603b3yiv9269584101gmail-m_-6498610700968197006ydp94dac88cyiv9000979461m_-4189396021952135319ydpcf278505yui_3_16_0_1_1497025264182_38309"><span id="ydpfc6603b3yiv9269584101gmail-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, 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-image: none; background-size: initial; background-attachment: scroll; background-origin: initial; background-clip: initial; background-color: white;"><em id="ydpfc6603b3yiv9269584101gmail-m_-6498610700968197006ydp94dac88cyiv9000979461m_-4189396021952135319ydpcf278505yui_3_16_0_1_1497025264182_38329"><span id="ydpfc6603b3yiv9269584101gmail-m_-6498610700968197006ydp94dac88cyiv9000979461m_-4189396021952135319ydpcf278505yui_3_16_0_1_1497025264182_38328" style="color:rgb(0,0,191);font-size:medium;"><span id="ydpfc6603b3yiv9269584101gmail-m_-6498610700968197006ydp94dac88cyiv9000979461m_-4189396021952135319ydpcf278505yui_3_16_0_1_1497025264182_38700" style="background-color:inherit;font-family: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="ydpfc6603b3yiv9269584101gmail-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="ydpfc6603b3yiv9269584101gmail-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></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><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">
</blockquote></div><br clear="all"><br clear="none">-- <br clear="none"><div class="ydpfc6603b3yiv9269584101gmail_signature" dir="ltr"><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" data-inlineimagemanipulating="true" class=""><br clear="none">
Lattes: <a shape="rect" href="http://lattes.cnpq.br/6519538815038307" rel="nofollow" target="_blank">http://lattes.cnpq.br/6519538815038307</a><br clear="none">
Blog: <a shape="rect" href="https://producaoanimalcomr.wordpress.com/" rel="nofollow" target="_blank">https://producaoanimalcomr.wordpress.com/</a><br clear="none">
==========================================</span></div></div></div></div></div></div></div></div></div></div></div></div></div>
</div>
</div></body></html>