<div dir="ltr">Oi Jônatan,<div><br></div><div>Era exatamente este data.frame final que eu queria obter.</div><div>Não vi diferença entre o uso da left_join e full_join, na verdade.</div><div><br></div><div>Muito obrigada pela sua ajuda!</div><div><br></div><div>Heloise.</div></div><div class="gmail_extra"><br><div class="gmail_quote">Em 25 de junho de 2016 17:43, Jônatan <span dir="ltr"><<a href="mailto:jdtatsch@gmail.com" target="_blank">jdtatsch@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Heloíse,<div>a função left_join() do pacote dplyr acho que serve para fazer o que você quer. Ela é um caso particular da merge(). Veja a diferença da full_join() para a left_join(), de repente a última sirva dependendo se você tem mais amostras.</div><div><div>## Load data</div><div>print(load('dataC.inia.rda'))</div><span class=""><div><br></div><div>## Building matrix for replicates</div><div># Sampling 1</div><div>rep1C <- dataC.inia[dataC.inia$replicate == 1,]</div></span><div>str(rep1C)</div><span class=""><div># Sampling 2 </div><div>rep2C <- dataC.inia[dataC.inia$replicate == 2,]</div></span><div>str(rep2C)</div><div>all(names(rep1C) %in% names(rep2C))</div><div># valores únicos das 4 primeiras vars</div><div>lapply(rep1C[ ,1:4], function(x)unique(x))<br></div><div>lapply(rep2C[ ,1:4], function(x)unique(x))</div><div># combinando dados </div><div>library(dplyr)</div><div>comb_repC <- left_join(rep1C[, 1:4], rep2C)</div><div># comb_repC2 <- full_join(rep1C[, 1:4], rep2C)</div><div>comb_repC</div><div># verificação</div><div>dim(rep1C)</div><div>dim(rep2C)</div><div>dim(comb_repC)</div><div># dim(comb_repC2)</div><div>lapply(rep1C[ ,1:4], function(x) unique(x))</div><div>lapply(comb_repC[ ,1:4], function(x) unique(x))</div></div><div><br></div><div><br></div></div><div class="gmail_extra"><div><div class="h5"><br><div class="gmail_quote">2016-06-25 16:50 GMT-03:00 Heloíse Pavanato <span dir="ltr"><<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Oi Leonardo,<div><br></div><div>Obrigada pela sua ajuda.</div><div><br></div><div>Coloquei o arquivo rda no Dropbox. Veja se consegue abrir agora.</div><div><br></div><div><a href="https://www.dropbox.com/s/wg5zmqud4q62yng/dataC.inia.rda?dl=0" target="_blank">https://www.dropbox.com/s/wg5zmqud4q62yng/dataC.inia.rda?dl=0</a><br></div><div><br></div><div>Eu tenho duas ocasiões amostrais que deveriam ser equivalentes. Porém, na primeira (rep1C) tenho mais meses amostrados. Gostaria de preencher a segunda ocasião (rep2C) com os meses faltantes para que fique igual ao primeiro data.frame.</div><div><br></div><div>Estava tentando usar a função "rbind.fill" do pacote "plyr" mas sem sucesso.</div><div><br></div><div>Segue CMR atualizado:</div><div><br></div><div>#---------------------------------------------------------------------</div><div><span><div>## Building matrix for replicates</div><div># Sampling 1</div><div>rep1C <- dataC.inia[dataC.inia$replicate == 1,]</div><div><br></div><div>table(rep1C$area, rep1C$season, rep1C$transect)</div><div>dim(rep1C)</div><div><br></div><div># Sampling 2 </div></span><div>rep2C <- dataC.inia[dataC.inia$replicate == 2,]</div><div>table(rep2C$area, rep2C$season, rep2C$transect)</div><div>dim(rep2C)</div></div><div><br></div><div><div>comb.rep <- rbind.fill(rep1C, rep2C)</div><div>dim(comb.rep[comb.rep$replicate == '2',])</div></div><div class="gmail_extra"><br></div><div class="gmail_extra">#---------------------------------------------------------------------</div><div class="gmail_extra"><br></div><div class="gmail_extra">Obrigada,</div><div class="gmail_extra"><br></div><div class="gmail_extra">Heloise<div><div><br><div class="gmail_quote"><br></div><div class="gmail_quote"><br></div><div class="gmail_quote">Em 25 de junho de 2016 16:32, Leonardo Fontenelle via R-br <span dir="ltr"><<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-style:solid;border-left-color:rgb(204,204,204);padding-left:1ex"><u></u>




<div><div>Tentei baixar o arquivo, mas o que chegou foi um arquivo vazio (zero byte).<br></div>
<div> </div>
<div>Se o que você quer realmente é esticar um data.frame, você pode fazer algo assim:<br></div>
<div> </div>
<div>df <- data.frame(x = rnorm(10), y = rbinom(10, 1, 0.5))<br></div>
<div>df[11:20, ] <- NA<br></div>
<div>df<br></div>
<div> </div>
<div>Só que... Estou curioso para saber que tipo de problema você pretende resolver com isso.<br></div>
<div> </div>
<div>Att,<br></div>
<div> </div>
<div><div><a href="http://lattes.cnpq.br/9234772336296638" title="Currículo Lattes" target="_blank">Leonardo Ferreira Fontenelle</a><br></div>
</div><div><div>
<div> </div>
<div> </div>
<div>Em Sáb 25 jun. 2016, às 12:20, Heloíse Pavanato via R-br escreveu:<br></div>
</div></div><blockquote type="cite"><div><div><div dir="ltr"><div>Boa tarde,<br></div>
<div> </div>
<div>Eu tenho dois data.frames com número de linhas diferentes (nrow(rep1C) = 73, nrow(rep2C) = 45), e colunas iguais (19).<br></div>
<div>Eu quero que ambos data.frames fiquem com a mesma dimensão. Para isso, rep2C deve ser aumentado com "NA". Porém, quero manter os mesmos índices "area", "season", "month" para ambos data.frames.<br></div>
<div> </div>
<div>Alguém tem alguma idéia de que função usar?<br></div>
<div> </div>
<div>Segue CMR:<br></div>
<div> </div>
<div>#----------------------------------------------------------------------<br></div>
<div> </div>
<div>## Load data<br></div>
<div># file: <span style="color:rgb(17,85,204)"><u><a href="https://www.datafilehost.com/d/64a6a8d9" target="_blank">https://www.datafilehost.com/d/64a6a8d9</a></u></span><br></div>
<div>load('dataC.inia.rda')<br></div>
<div> </div>
<div><div>## Building matrix for replicates<br></div>
<div># Sampling 1<br></div>
<div>rep1C <- dataC.inia[dataC.inia$replicate == 1,]<br></div>
<div> </div>
<div>table(rep1C$area, rep1C$season, rep1C$transect)<br></div>
<div>dim(rep1C)<br></div>
<div> </div>
<div># Sampling 2 <br></div>
<div>rep2 <- dataC.inia[dataC$replicate == 2,]<br></div>
<div>table(rep2$area, rep2$season, rep2$transect)<br></div>
<div>dim(rep2)<br></div>
</div>
<div> </div>
<div> #----------------------------------------------------------------------<br></div>
<div> </div>
<div>Obrigada pela ajuda!<br></div>
<div> </div>
<div>Heloise<br></div>
</div>
</div></div><div><u>_______________________________________________</u><br></div>
<div>R-br mailing list<br></div>
<div><a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br></div>
<div><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br></div>
<div>Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></div>
</blockquote><div> </div>
</div>

<br>_______________________________________________<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></div></div></div></div>
<br>_______________________________________________<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><br clear="all"><div><br></div></div></div><span class="HOEnZb"><font color="#888888">-- <br><div data-smartmail="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><font size="2" style="font-family:arial">###############################################################</font><br><span style="font-family:arial;font-size:small">##  </span><span style="font-size:11px;text-align:center;background-color:rgb(239,239,239);color:rgb(150,150,150);font-family:Verdana,Arial,Helvetica,sans-serif;line-height:13px">Jônatan Dupont Tatsch</span></div><div><span style="font-family:arial;font-size:small">##  </span><span style="color:rgb(150,150,150);font-family:Verdana,Arial,Helvetica,sans-serif;font-size:10.909090995788574px;line-height:12.997159004211426px;text-align:center;background-color:rgb(239,239,239)">Professor do Departamento de Física</span></div><div><span style="font-size:small;font-family:arial">##  </span><span style="color:rgb(150,150,150);font-family:Verdana,Arial,Helvetica,sans-serif;font-size:10.909090995788574px;line-height:12.997159004211426px;text-align:center;background-color:rgb(239,239,239)">Centro de Ciências Exatas e Naturais (CCNE)</span><br></div><div><span style="font-size:small;font-family:arial">##  </span><span style="color:rgb(150,150,150);font-family:Verdana,Arial,Helvetica,sans-serif;font-size:10.909090995788574px;line-height:12.997159004211426px;text-align:center;background-color:rgb(239,239,239)">Universidade Federal de Santa Maria - UFSM</span></div><div><span style="font-family:arial;font-size:small">##  </span><span style="font-size:11px;text-align:center;background-color:rgb(239,239,239);color:rgb(150,150,150);font-family:Verdana,Arial,Helvetica,sans-serif;line-height:13px">Faixa de Camobi, Prédio 13 - Campus UFSM - </span><span style="font-size:11px;text-align:center;background-color:rgb(239,239,239);color:rgb(150,150,150);font-family:Verdana,Arial,Helvetica,sans-serif;line-height:13px">Santa Maria, RS, Brasil - 97105-900</span><br></div><div style="font-family:arial;font-size:small">##  <span style="font-size:11px;text-align:center;background-color:rgb(239,239,239);color:rgb(150,150,150);font-family:Verdana,Arial,Helvetica,sans-serif;line-height:13px">Telefone: <a href="tel:%2B55%2855%2933012083" value="+555533012083" target="_blank">+55(55)33012083</a></span><br></div><div style="font-family:arial;font-size:small">##  <span style="font-size:11px;text-align:center;background-color:rgb(239,239,239);color:rgb(150,150,150);font-family:Verdana,Arial,Helvetica,sans-serif;line-height:13px"><a href="http://www.ufsm.br/meteorologia" target="_blank">www.ufsm.br/meteorologia</a></span></div><div style="font-family:arial;font-size:small">###############################################################</div></div></div></div></div></div></div>
</font></span></div>
</blockquote></div><br></div>